#!/usr/bin/perl
use CGI;
use CGI::Carp qw(fatalsToBrowser);
require daten;
$ipAdresse = $ENV{'REMOTE_ADDR'};
$form = $ENV{'QUERY_STRING'};
#538 / for($tt=2;$tt<$anza;$tt++)
if($form eq '')
{
print "content-Type:text/html\n\n";
print "\n";
print"
PORT ROYAL Setliste+Kalender
\n";
};
($form, $linknummer, $comentnummer, $speichernr, $setlistname) = split /\?/ ,$form;
if($linknummer eq ""){$linknummer = 0;};
$browser = $ENV{'HTTP_USER_AGENT'};
$suchwort[1]="Firefox"; $such_browser[1]="FX";
$suchwort[2]="Netscape"; $such_browser[2]="NS";
$suchwort[3]="MSIE"; $such_browser[3]="IE";
$suchwort[4]="Opera"; $such_browser[4]="OP";
$browser_ak = "";
for($uu=0; $uu<@suchwort; $uu++){if($browser =~ /$suchwort[$uu]/gi){$browser_ak = $such_browser[$uu];};};
#------------------------------------------------ Tabellendaten ---------------------------------------------------------
#------------------------------------------------ Tabellendaten ---------------------------------------------------------
#------------------------------------------------ Tabellendaten ---------------------------------------------------------
#if($form ne "fehler.htm")
#{
@celle="";
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::SaveParser;
#my $parser = Spreadsheet::ParseExcel->new();
my $parser = new Spreadsheet::ParseExcel::SaveParser;
my $workbook = $parser->Parse('Mappe1.xls');
my $adminbook = $parser->Parse('Mappe2.xls');
$worksheet = $workbook->Worksheet(0);
$row = 0;
$ze[0] = 1;
$ze[1] = 2;
$ze[2] = 3;
$ze[3] = 4;
$ze[4] = 5;
$ze[5] = 6;
if($browser_ak eq "IE")
{
$width[0] = "10";
$width[1] = "130";
$width[2] = "113";
$width[3] = "40";
$width[4] = "50";
$width[5] = "110";
$width[6] = "50";
$width[7] = "30";
$width[8] = "1100";
$width[8] = $width[8]-$width[7]-$width[6]-$width[5]-$width[4]-$width[3]-$width[2]-$width[1]-$width[0];
}
else
{
$width[0] = "10";
$width[1] = "130";
$width[2] = "150";
$width[3] = "40";
$width[4] = "50";
$width[5] = "130";
$width[6] = "43";
$width[7] = "30";
$width[8] = "750";
$width[8] = $width[8]-$width[7]-$width[6]-$width[5]-$width[4]-$width[3]-$width[2]-$width[1]-$width[0];
};
#};
#------------------------------------------------ Tabellendaten ---------------------------------------------------------
#------------------------------------------------ Tabellendaten ---------------------------------------------------------
#------------------------------------------------ Tabellendaten ---------------------------------------------------------
if($form ne '')
{
header();
};
if($form eq 'menue.htm')
{
print"
\n";
$leerz = " ";
print "
LogIn
Bitte warten ;)
\n";
print"