#!/usr/bin/perl
# mit Punkt fuer Farbe berechnen statt auswahl
# Programm mit Umkehrung der Reihenfolge
# mit Titel und Sortierung
require"./read.pl";
require"./size.lib";
$out="temp\.gif";
$temp="temp\.txt";
$a=140;$b=100;
#$a=20;$b=50;
&ReadParse;
$test=0;
$speicher_farbe=0;$farbe_zaehler=0;
@speicher=(1..8);
@farbe_oben=("255,0,0","255,255,0","0,255,0","0,255,255","255,0,255","0,0,255");
@farbe_seite=("204,0,0","204,204,0","0,204,0","0,204,204","204,0,204","0,0,204");
$GRAU="165,165,165";
@wert_zeichnen=();
$wert_wert="";$zahl_wert=0;
$wert_wert=$in{'wert'};#||"15,15,28,80";
$wert_namen=$in{'namen'};#||"www.netViper.de,www.PERL-lernen.de,www.compilermaster.de,www.hit-statistik.de";
$farbe_schrift=$in{'fs'}||"0,0,0";#"163,124,154";
$farbe_schatten=$in{'schatten'}||"255,255,0";
$titel=$in{'titel'}||"3D Tortendiagramm von www.netViper.de !";
if(index($wert_wert,"\n")!= -1){chop($wert_wert);};
@wert_wert=split(/,/,$wert_wert);
@wert_namen=split(/,/,$wert_namen);
$zahl_wert=@wert_wert;
$zahl_namen=@wert_namen;
if($test == 1){print "Content-type:text/html\n\n";}
if($test == 1){print "werner";}
$zahl = 0;
if($zahl_wert < 2 || $zahl_namen < 2){$zahl++;}
if($zahl_wert > 6 || $zahl_namen > 6){$zahl++;}
if($zahl_wert != $zahl_namen){$zahl++;}
#print "Zahl =", $zahl, "
";
if($zahl >= 1)
{
$wert_wert="15,15,28,80";
$wert_namen="www.netViper.de,www.PERL-lernen.de,www.compilermaster.de,www.hit-statistik.de";
@wert_wert=split(/,/,$wert_wert);
@wert_namen=split(/,/,$wert_namen);
}
#-------------- Sortierung -------------
@unsort=();$gesamt=0;
for(@wert_wert)
{
push(@unsort,$_.":".shift(@wert_namen));
$gesamt+=$_;
}
#----------------------------------------
#print @unsort, "
";
@sort = sort NummernSort @unsort;
#print @sort, "
";
#$gross=pop(@sort);
@wert_prozent=@wert_namen_neu=@wert_wert_neu=();
$zaehler=1;
$prozent_gesamt=0;
for(@sort)
{
$prozent_gesamt+=$prozent;
#print "Sort=", $_, "
";
@teile=split(/:/,$_);
$prozent=int(($teile[0]*100)/$gesamt);
if($prozent < 1){$prozent=1;}
$platz{$zaehler}=$teile[1];
$name{$teile[1]}=$zaehler;$zaehler++;
$name=$teile[1];
$$name{'prozent'}=$prozent;
#print $$name{'prozent'}, "
";
$$name{'wert'}=$teile[0];
}
$zaehler--;
$prozent=100 - $prozent_gesamt;
$$name{'prozent'}=$prozent;
$anzahl=$zaehler;
$wert_prozent_gesamt=0;
$wert_gesamt=0;
#for(@wert_prozent)
for(1..($anzahl-1))
{
$name=$platz{$_};
$wert_prozent=$$name{'prozent'};
$wert_gesamt+=$wert_prozent;
$wert_zwischen=$wert_gesamt;
#$wert_zwischen=$$name{'wert'};
if($wert_gesamt == 25){$$name{'kumu_prozent'}=$wert_gesamt;$$name{'zeichnen'}=1;goto next2;}
if($wert_gesamt > 50){$wert_zwischen=50-($wert_gesamt-50);}
##if($wert_gesamt > 75){$wert_zwischen=75-($wert_gesamt-75);}
$wert_wert=25-$wert_zwischen;
$wert_zeichnen=abs(int((125*$wert_wert)/25));
if($test==1){print "ZW $name Zwischen $wert_zwischen $wert_wert
";}
#print "1. $wert_wert Zeichen [$wert_zeichnen] original [$wert_gesamt]
";
$$name{'zeichnen'}=$wert_zeichnen;
$$name{'kumu_prozent'}=$wert_gesamt;
next2:
}
#$anzahl=&anzeigen($anzahl);
#exit(0);
#@wert_zeichnen = reverse @wert_zeichnen;
#@wert_original = reverse @wert_original;
@speicherx=@speichery=();
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
push(@fly,"new\n");
push(@fly,"size 505,400\n");
push(@fly,"fill 1,1,250,255,255\n");
$a=int(245/2);$b=25;
#----- Ueberschrift --------------
#push(@fly,"frect ".(125-$a).",25,500,100,200,200,200\n");
#push(@fly,"frect 310,80,500,360,200,200,200\n");
#----------------------------------
$title_string=$titel;
$Bild_breit=500;
$pos_schrift=&Berechne_Mitte((length($title_string)*6),$Bild_breit);# small *6
@farbe_2=&Ber_Farbe("GE");
push(@fly,"string ".$farbe_schatten.",".$pos_schrift.",43,medium,".$title_string."\n");
push(@fly,"string ".$farbe_schrift.",".($pos_schrift-1).",44,medium,".$title_string."\n");
$title_teil="";
for(0..(length($title_string))){$title_teil.="-";}
$title_string=$title_teil;
$pos_schrift=&Berechne_Mitte((length($title_string)*6),$Bild_breit);# small *6
push(@fly,"string ".$farbe_schatten.",".$pos_schrift.",58,medium,".$title_string."\n");
push(@fly,"string ".$farbe_schrift.",".($pos_schrift-1).",59,medium,".$title_string."\n");
push(@fly,&Zeichne_Border(0,25,$Bild_breit,85));
@farbe_2=&Ber_Farbe($farbe_in);
# tabellenkopf
#push(@fly,"string ".$farbe_schatten.",291,99,small,Platz Name Wert Anteil\n");
#push(@fly,"string ".$farbe_schrift.",290,100,small,Platz Name Wert Anteil\n");
#----------------------------------
# Copyright
push(@fly,"string ".$farbe_schatten.",291,384,small,2000(C)Copyright - www.netViper.de\n");
push(@fly,"string ".$farbe_schrift.",290,385,small,2000(C)Copyright - www.netViper.de\n");
# Nulllinie
push(@fly,"line 125,180,".(125+$a).",180,$GRAU\n");# nach links
#nur zum test-------------------------------------------------
#push(@fly,"line ".(125+$a).",180,".(125+$a).",".(180+(2*$b)).",".$farbe_schatten."\n");
open(HTML,">jetzt.txt");
print HTML "";
close (HTML);
#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
$zahl=0;$farbe_seite=0;$zahly=1;$farbe=0;
for($x=0;$x<=$a;$x++)
{
$y=int(sqrt((1-(($x**2)/($a**2)))*($b**2)));
$yy=$y+180;$xx=$x+125;
$xx{$zahly}=$xx;$yy{$zahly}=$yy;
push(@speichery,"$zahly Y= $xx,$yy \n");$zahly++;
# normal(unten) von mitte nach rechts
push(@fly,"setpixel $xx,".($yy+50).",165,165,165\n");
# links (unten), mitte nach links
push(@fly,"setpixel ".($xx-(2*$x)).",".($yy+50).",165,165,165\n");
# normal(oben) von mitte nach rechts
push(@fly,"setpixel $xx,$yy,165,165,165\n");
# normal(oben) spiegelung
$yy_spiegel=180-($yy-180);
push(@fly,"setpixel $xx,$yy_spiegel,165,165,165\n");
# links oben
push(@fly,"setpixel ".($xx-(2*$x)).",$yy,165,165,165\n");
# links oben spiegel
push(@fly,"setpixel ".($xx-(2*$x)).",$yy_spiegel,165,165,165\n");
}# ende $x
#-------------------------------------------------------------------
for($y=0;$y<=$b;$y++)
{
$x=int(sqrt((1-(($y**2)/($b**2)))*($a**2)));
$yy=$y+180+50;$xx=$x+125;
$yy_spiegel=180-($yy-180);
push(@speicherx,"$zahlx X= $xx,$yy\n");$zahlx++;
#push(@fly,"line 125,230,$xx,$yy,255,255,0\n");
# unten normal von rechts n mitte
push(@fly,"setpixel $xx,$yy,165,165,165\n");
# oben normal von rechts n mitte
push(@fly,"setpixel $xx,".($yy-50).",165,165,165\n");
# spiegelung
push(@fly,"setpixel $xx,".($yy_spiegel+50).",165,165,165\n");
# unten links von links n mitte
push(@fly,"setpixel ".($xx-(2*$x)).",$yy,165,165,165\n");
# oben links von links n mitte
push(@fly,"setpixel ".($xx-(2*$x)).",".($yy-50).",165,165,165\n");
# spiegelung
push(@fly,"setpixel ".($xx-(2*$x)).",".($yy_spiegel+50).",165,165,165\n");
}# ende $y
# linke und rechte Seite zeichnen
push(@fly,"line ".(125-$a).",180,".(125-$a).",".(180+(2*$b)).",165,165,165\n");
push(@fly,"line ".(125+$a).",180,".(125+$a).",".(180+(2*$b)).",165,165,165\n");
if($test==1){$anzahl=&anzeigen($anzahl);}
#goto ohneflaeche;
#---------------Balken zeichnen ---------------------------
@neu_neu=();$zaehler=0;
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ hier llllllllllllllll
#$linex[0]=125+$a;$liney[0]=180;
$linex[0]=$liney[0]=0;
$linex[2]=125;$liney[2]=180;$farbe=0;$farbe_anfang=1000;
# berechne Anfang von Hoehe
$line_gesamt=-30;
$line_gesamt+=($anzahl*20);
if($anzahl == 2){$line_gesamt=40;}
$line_oben=-($b)+10;
#for(@wert_original;)
for($x=($anzahl-1);$x>0;$x--)
{
$name=$platz{$x};
$kumu_prozent=$$name{'kumu_prozent'};
$_=$kumu_prozent;
$prozent=$$name{'prozent'};
$wert=$$name{'wert'};
$wert_zeichnen=$$name{'zeichnen'};
$xx=$xx{$wert_zeichnen};$yy=$yy{$wert_zeichnen};
if($test==1){print "Hier $name $kumu_prozent $wert_zeichnen $xx $yy
";}
open(HTML,">>jetzt.txt");
print HTML "1. $name $xx $yy\n";
close(HTML);
#$xxfarbe_oben=0;$yyfarbe_oben=1;
#print "2. $_ Zeichen [$wert_zeichnen] original [$kumu_prozent] $wert_zeichnen Original = $kumu_prozent $xx $yy
";
if($_ > 25 && $_ <=50){$xx=125-($xx-125);if($_ == 50){$xx=125-$a;$yy=180;$farbe_anfang=$farbe;$korr=1;}}
if($_ > 50 && $_ <=75){
#$xxfarbe_oben=0;$yyfarbe_oben=-1;
$xx=125-($xx-125);$yy=180-($yy-180);
if($_ == 75){$xx=125;$yy=180-$b;}
push(@fly,"line 125,180,$xx,$yy,$GRAU\n");
$farbe_anfang=$farbe;
$nicht_zeichnen=55;
goto weitergut;
}# ende zw 50-75
if($_ > 75){
$yy=180-($yy-180);
push(@fly,"line 125,180,$xx,$yy,$GRAU\n");
$nicht_zeichnen=55;
goto weitergut;
}# ende 76 -100
push(@fly,"line 125,180,$xx,$yy,$GRAU\n");
push(@fly,"line $xx,$yy,$xx,".($yy+(2*$b)).",165,165,165\n");
#push(@fly,"string ".$farbe_schatten.",$xx,$yy,medium,$zaehler Zeichen $wert_zeichnen\n");
push(@fly,"fill ".($xx+1).",".($yy+$b).",".$farbe_seite[$farbe]."\n");
weitergut:
$linex[1]=$xx;$liney[1]=$yy;
$linex[0]=$xx_old;$liney[0]=$yy_old;
$linex[2]=125;$liney[2]=180;
if($linex[0] != 0 && $liney[0] != 0)
{
($erg_xx,$erg_yy)=split(/,/,&HP_farbe($linex[0],$liney[0],$linex[1],$liney[1],$linex[2],$liney[2]));
push(@fly,"fill $erg_xx,$erg_yy,".$farbe_oben[$farbe_soso]."\n");
$anzeige_namen=$name_old;
$anzeige_prozent=$prozent_old;
$anzeige_wert=$wert_old;
if($$name_old{'kumu_prozent'} <= 50)
{
push(@fly,"string 0,0,0,$erg_xx,".($erg_yy+$b).",medium,.\n");
push(@fly,"line ".($erg_xx+2).",".($erg_yy+$b+10).",".($erg_xx+2).",".($erg_yy+$b+40+$line_gesamt).",0,0,0\n");
$lang=int((length($anzeige_namen))*12);
push(@fly,"line ".($erg_xx+2).",".($erg_yy+$b+40+$line_gesamt).",".($erg_xx+2+$lang).",".($erg_yy+$b+40+$line_gesamt).",0,0,0\n");
$line_gesamt-=20;$farbe--;
push(@fly,"string ".$farbe_oben[$farbe].",".($erg_xx+2+3).",".($erg_yy+$b+40+$line_gesamt+8).",small,$anzeige_namen, Wert = $anzeige_wert, $anzeige_prozent % \n");
push(@fly,"string ".$farbe_schrift.",".($erg_xx+2+3-1).",".($erg_yy+$b+40+$line_gesamt+8).",small,$anzeige_namen, Wert = $anzeige_wert, $anzeige_prozent % $test_so\n");
$farbe++;
}# ende if $test_l != 55
else{
push(@fly,"string 0,0,0,".($erg_xx-2).",".($erg_yy-8).",medium,.\n");
#push(@fly,"setpixel $erg_xx,$erg_yy,0,0,0\n");
push(@fly,"line ".($erg_xx).",".($erg_yy).",".($erg_xx).",".($erg_yy-10+$line_oben).",0,0,0\n");
$lang=int((length($anzeige_namen))*12);
push(@fly,"line ".($erg_xx).",".($erg_yy-10+$line_oben).",".($erg_xx+$lang).",".($erg_yy-10+$line_oben).",0,0,0\n");
$farbe--;
push(@fly,"string ".$farbe_oben[$farbe].",".($erg_xx+4).",".($erg_yy-10-15+$line_oben).",small,$anzeige_namen, Wert = $anzeige_wert, $anzeige_prozent % \n");
push(@fly,"string ".$farbe_schrift.",".($erg_xx+3).",".($erg_yy-10-15+$line_oben).",small,$anzeige_namen, Wert = $anzeige_wert, $anzeige_prozent % $test_so\n");
$farbe++;$line_oben-=40;
}
}# ende ist das erste mal
$name_old=$name;
$wert_old=$wert;
$prozent_old=$prozent;
$xx_old=$xx;$yy_old=$yy;
$farbe_soso=$farbe;
if($nicht_zeichnen != 55){$linex[0]=$linex[1];$liney[0]=$liney[1];$nicht_zeichnen = 0;}
$linex[2]=125;$liney[2]=180;
$zahl_farbe=@farbe_oben;
$zahl_farbe2=@farbe_seite;if($zahl_farbe2 < $zahl_farbe){$zahl_farbe=$zahl_farbe2;}
$farbe++;if($farbe == $zahl_farbe){$farbe=0;}
}# schleifenende @kumu_prozent
#...................................................##################### E N D E ########.........
if($test==1){exit(0);}
# letzte obere Flaeche
$linex[0]=$xx;$liney[0]=$yy;
$linex[1]=125+$a;$liney[1]=180;
#if($farbexx_old ne ""){
($erg_xx,$erg_yy)=split(/,/,&HP_farbe($linex[0],$liney[0],$linex[1],$liney[1],$linex[2],$liney[2]));
push(@fly,"fill $erg_xx,".($erg_yy+$korr).",".$farbe_oben[$farbe_soso]."\n");
#push(@fly,"setpixel $erg_xx,$erg_yy,0,0,0\n");
#push(@fly,"string 0,0,0,$erg_xx,$erg_yy,medium,..\n");
$name=$platz{1};
$anzeige_namen=$name;
$anzeige_prozent=$$name{'prozent'};
$anzeige_wert=$$name{'wert'};
push(@fly,"string 0,0,0,$erg_xx,".($erg_yy+$b).",medium,.\n");
push(@fly,"line ".($erg_xx+2).",".($erg_yy+$b+10).",".($erg_xx+2).",".($erg_yy+$b+40+$line_gesamt).",0,0,0\n");
$lang=int((length($anzeige_namen))*12);
push(@fly,"line ".($erg_xx+2).",".($erg_yy+$b+40+$line_gesamt).",".($erg_xx+2+$lang).",".($erg_yy+$b+40+$line_gesamt).",0,0,0\n");
$line_gesamt-=20;$farbe--;
push(@fly,"string ".$farbe_oben[$farbe].",".($erg_xx+2+3).",".($erg_yy+$b+40+$line_gesamt+8).",small,$anzeige_namen, Wert = $anzeige_wert, $anzeige_prozent % \n");
push(@fly,"string ".$farbe_schrift.",".($erg_xx+2+3-1).",".($erg_yy+$b+40+$line_gesamt+8).",small,$anzeige_namen, Wert = $anzeige_wert, $anzeige_prozent % $test_so\n");
$farbe++;
if($farbe_anfang == 1000){$farbe_anfang=$farbe;}
# grosse obere Flaeche
push(@fly,"fill ".(125+$a-5).",".(180-1).",".$farbe_oben[$farbe]."\n");
push(@fly,"string 0,0,0,".(125+$a-5-4).",".(180-1-10).",medium,.\n");
push(@fly,"line ".(125+$a-5).",".(180-1).",".(125+$a-5+15).",".(180-1).",0,0,0\n");
push(@fly,"line ".(125+$a-5+15).",".(180-1).",".(125+$a-5+15).",".(180-1+32).",0,0,0\n");
$name=$platz{$anzahl};
$anzeige_namen="$name, Wert = ".$$name{'wert'}.", ".$$name{'prozent'}." % ";
push(@fly,"string ".$farbe_oben[$farbe].",".(125+$a-5+15+3).",".(180-1+20).",small,$anzeige_namen\n");
push(@fly,"string ".$farbe_schrift.",".(125+$a-5+15+3-1).",".(180-1+20).",small,$anzeige_namen\n");
$lang=int((length($anzeige_namen))*6);
push(@fly,"line ".(125+$a-5+15).",".(180-1+32).",".(125+$a-5+15+$lang).",".(180-1+32).",0,0,0\n");
# erste seitenflaeche
push(@fly,"fill ".(125-$a+1).",".(180+$b).",".$farbe_seite[$farbe_anfang]."\n");
#push(@fly,"string ".$farbe_oben[$farbe].",".(125+$a-5).",".(180-1).",medium,x\n");
push(@fly,"end\n");
open(FLY,">$temp");
for(@fly)
{
$wert=$_;
print FLY $wert, "\n";
}
close(FLY);
`./fly -i $temp -o $out`;&ZEICHNEN($out);
open(FILE,">save.txt");
for(@neu)
{
print FILE $_, "\n";
}
close(FILE);
#-----------------------------------------------------
$out="temp2\.gif";
$temp="temp2\.txt";
&statistik("torten_statistk.txt");
exit(0);
sub HP_farbe
{
local($linex[0],$liney[0],$linex[1],$liney[1],$linex[2],$liney[2])=@_;
($setxx_a,$setyy_a)=split(/,/,&berechnen($linex[0],$liney[0],$linex[1],$liney[1]));
($setxx_b,$setyy_b)=split(/,/,&berechnen($setxx_a,$setyy_a,$linex[2],$liney[2]));
($setxx_c,$setyy_c)=split(/,/,&berechnen($setxx_a,$setyy_a,$setxx_b,$setyy_b));
($setxx_d,$setyy_d)=split(/,/,&berechnen($setxx_a,$setyy_a,$setxx_c,$setyy_c));
($setxx_e,$setyy_e)=split(/,/,&berechnen($setxx_a,$setyy_a,$setxx_d,$setyy_d));
($setxx,$setyy)=split(/,/,&berechnen($setxx_a,$setyy_a,$setxx_e,$setyy_e));
return("$setxx,$setyy");
}
sub berechnen
{
local($wertx[0],$werty[0],$wertx[1],$werty[1])=@_;
if($wertx[0]>$wertx[1]){$absxx=abs($wertx[0]-$wertx[1]);$setxx=$wertx[1]+int($absxx/2);}
else{$absxx=abs($wertx[1]-$wertx[0]);$setxx=$wertx[0]+int($absxx/2);}
if($werty[0]>$werty[1]){$absyy=abs($werty[0]-$werty[1]);$setyy=$werty[1]+int($absyy/2);}
else{$absyy=abs($werty[1]-$werty[0]);$setyy=$werty[0]+int($absyy/2);}
return("$setxx,$setyy");
}
sub NummernSort{ if($a < $b) { return -1; } elsif($a == $b) { return 0; } else
{ return 1; }}
sub Berechne_Mitte{
local($breite_string,$breite_bild)=@_;
$breite_halb=$breite_bild/=2;
$breite_string/=2;
$breite_bild-=$breite_string;
return $breite_bild;
}
sub Ber_Farbe{
$wert=shift;
#print "wert = $wert
";
if($wert eq "GR"){@lager=("163,198,154","69,139,50","36,73,0");}# gruen
if($wert eq "B"){@lager=("32,157,221","23,87,120","0,48,73");}# blau
if($wert eq "R"){@lager=("237,44,85","155,96,89","66,7,19");}# gruen
if($wert eq "GE"){@lager=("241,242,136","207,209,35","109,110,5");}# blau
return @lager;
}
sub Zeichne_Border{
local($XX1,$YY1,$XX2,$YY2)=@_;
@liste=();
# links
$Links=$XX1+2;
for(1..2)
{$farbe=$_;
for(0..1)
{
push(@liste,"line $Links,".($YY1+2).",$Links,".($YY2-2).",".$farbe_2[$farbe]."\n");
$Links+=1;
}
}
# rechts
$Links=$XX2-5;
for(1..2)
{$farbe=$_;
for(0..1)
{
push(@liste,"line $Links,".($YY1+2).",$Links,".($YY2-2).",".$farbe_2[$farbe]."\n");
$Links+=1;
}
}
# oben
$Links=$YY1+2;$X_L1=$XX1+2;$X_L2=$XX2-2;
for(1..2)
{$farbe=$_;
for(0..1)
{
push(@liste,"line $X_L1,$Links,$X_L2,$Links,".$farbe_2[$farbe]."\n");
$Links+=1;$X_L1+=1;$X_L2-=1;
}
}
# unten
$Links=$YY2-4;$X_L1=$XX1+2+4;$X_L2=$XX2-2-4;
for(1..2)
{$farbe=$_;
for(0..1)
{
push(@liste,"line $X_L1,$Links,$X_L2,$Links,".$farbe_2[$farbe]."\n");
$Links+=1;$X_L1-=1;$X_L2+=1;
}
}
return @liste;
}
sub statistik{
local($torten_statistik)=@_;
@months = ('Januar','Februar','Maerz','April','Mai','Juni','Juli','August','September','Oktober','November','Dezember');
@days = ('Sonntag','Montag','Dienstag','Mittwoch','Donnerstag','Freitag','Samstag');
($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
if ($sec < 10) { $sec = "0$sec"; }
if ($min < 10) { $min = "0$min"; }
if ($hour < 10) { $hour = "0$hour"; }
if ($mday < 10) { $mday = "0$mday"; }
$woche = "$days[$wday]";$year+=1900;
$datum = "$mday. $months[$mon] $year";
$zeit = "$hour:$min";
#####################################################################
$agent = "";
$userURL = " ";
$host = "";
$ip = "";
$arglist = "";
if( defined($ENV{'HTTP_USER_AGENT'}) ) {
$agent = $ENV{'HTTP_USER_AGENT'};
}
if( defined($ENV{'HTTP_REFERER'}) ) {
$userURL = $ENV{'HTTP_REFERER'};
}
if( defined($ENV{'REMOTE_HOST'}) ) {
$host = $ENV{'REMOTE_HOST'};
}
if( defined($ENV{'REMOTE_ADDR'}) ) {
$ip = $ENV{'REMOTE_ADDR'};
}
if( defined($ENV{'QUERY_STRING'}) ) {
$arglist = $ENV{'QUERY_STRING'};
}
open(LOG, ">>$torten_statistik");
print LOG "torte,$woche,$datum,$zeit,$agent,$userURL,$host,$ip,$arglist\n";
close(LOG);
#############################################
}
sub anzeigen{
local($anzahl)=@_;
for(1..($anzahl))
{
$wert=$_;
$name=$platz{$wert};
#print "Name $name wert=", $$name{'wert'}, " prozent= ", $$name{'prozent'}," zeichnen= ", $$name{'zeichnen'}, " kumu_prozent= ", $$name{'kumu_prozent'}, "
";
}
return $anzahl;
}