", 1); }
s/$code/$img/ig;
}
$_ = &hexstr($_, 0);
$_;
}
#=======================================================================================
sub graph {
my($type, $border, $maxsize, $width, @GRAPH) = @_;
my(@TITLE, @DATA, %DATA);
my($title, $data, $max, $sum, $count, $color, $code, $size, $intro, $i, $j, $option);
($type, $option) = split(/:/, $type);
if ($type == 2) { $intro = shift(@GRAPH); }
my($colorspan) = 54321;
if ($option) {
foreach (@GRAPH) {
($title, $data) = split(/=/, $_);
$i = sprintf("%04d", $data);
$_ = "$i=$title=$data";
}
@GRAPH = sort(@GRAPH);
if ($option == 2) { @GRAPH = reverse(@GRAPH); }
}
$i = 0;
foreach (@GRAPH) {
if ($option) { ($dummy, $title, $data) = split(/=/, $_); }
else { ($title, $data) = split(/=/, $_); }
if ($title) {
push(@TITLE, $title);
$count++;
if ($type == 2) {
@DATA = split(/\,/, $data);
$j = 0;
foreach $line (@DATA) {
$DATA{$i, $j} = $line;
$DATA{$i} += $line;
$j++;
}
$sum += $DATA{$i};
$i++;
} else {
push(@DATA, $data + 0);
$max < $data && ($max = $data);
$sum += $data;
}
}
}
!$sum && return(0);
if ($type == 2) {
undef @DATA;
my(@INTRO) = split(/\,/, $intro);
my($end) = $j - 1;
for ($j = 0; $j <= $end; $j++) {
for ($i = 0; $i < $count; $i++) {
if ($DATA[$j] < $DATA{$i, $j}) { $DATA[$j] = $DATA{$i, $j}; }
}
}
print "\n";
print "
| \n";
foreach $i (0 .. @TITLE -1) {
print "\n";
print "
| \n";
}
print "||||
| \n"; foreach (0 .. @TITLE -1) { print " | $TITLE[$_] ($DATA{$_}) | \n";
}
print "
\n";
print "
| \n";
}
print "|
| $TITLE[$_] (", &comma($DATA[$_]), ") | \n";
}
print "
| $TITLE[$_](", &comma($DATA[$_]), ") | \n"; print "";
if ($DATA[$_]) {
print "
| \n";
print "
Error
\n"; print "$cgiurl\n"; print "$err\n"; print "
\n"; print "\n"; exit; } #======================================================================================= sub get_url { local($_, $flag, $encode) = @_; my(%HTML, $hostname, $addr, $path, $name); if ($ENV{'WINDIR'}) { $socket = 1; } else { $socket = 2; } s/^(.*):\/\///; if (/^([\w\.\-]+)(\/*.*)$/) { $hostname = $1; $path = $2; if ($path !~ /\/$/ && $path !~ /\./) { $path .= '/'; } } else { $HTML{'Err'} = '404 URL Syntax Error'; return(%HTML); } $addr = gethostbyname($hostname); if (!$addr) { $HTML{'Err'} = '404 Not Server Name'; return(%HTML); } $name = pack("S n a4 x8", 2, 80, $addr); socket(SOCK, 2, $socket, 0); if (connect(SOCK, $name)) { binmode(SOCK); select(SOCK); $| = 1; select(STDOUT); print SOCK "GET $path HTTP/1.0\r\n\r\n"; while (