| \n";
print " | \n";
print " |
| \n";
print " | \n";
print " \n"; print " |
Images generated using vnStat image output. FOOTER } sub send_image($) { my ($file)= @_; -r $file or do { print "Content-type: text/plain\n\nERROR: can't find $file\n"; exit 1; }; print "Content-type: image/png\n"; print "Content-length: ".((stat($file))[7])."\n"; print "\n"; open(IMG, $file) or die; my $data; print $data while read(IMG, $data, 16384)>0; } sub main() { mkdir $tmp_dir, 0755 unless -d $tmp_dir; my $img = $ENV{QUERY_STRING}; if(defined $img and $img =~ /\S/) { if($img =~ /^(\d+)-s$/) { my $file = "$tmp_dir/vnstat_$1.png"; graph($graphs[$1]{interface}, $file, "-s"); send_image($file); } elsif($img =~ /^(\d+)-hs$/) { my $file = "$tmp_dir/vnstat_$1_hs.png"; graph($graphs[$1]{interface}, $file, "-hs"); send_image($file); } elsif($img =~ /^(\d+)-d$/) { my $file = "$tmp_dir/vnstat_$1_d.png"; graph($graphs[$1]{interface}, $file, "-d"); send_image($file); } elsif($img =~ /^(\d+)-m$/) { my $file = "$tmp_dir/vnstat_$1_m.png"; graph($graphs[$1]{interface}, $file, "-m"); send_image($file); } elsif($img =~ /^(\d+)-t$/) { my $file = "$tmp_dir/vnstat_$1_t.png"; graph($graphs[$1]{interface}, $file, "-t"); send_image($file); } elsif($img =~ /^(\d+)-h$/) { my $file = "$tmp_dir/vnstat_$1_h.png"; graph($graphs[$1]{interface}, $file, "-h"); send_image($file); } elsif($img =~ /^(\d+)-f$/) { print_fullhtml($1); } else { die "ERROR: invalid argument\n"; } } else { if ($#graphs == 0) { print_fullhtml(0); } else { print_html(); } } } main();