]>
git.ipfire.org Git - people/pmueller/ipfire-2.x.git/blob - html/cgi-bin/proxygraphs.cgi
c4b575b2905612881a27986cf8cf85703a470778
3 # (c) 2002 Robert Wood <rob@empathymp3.co.uk>
5 # $Id: proxygraphs.cgi,v 1.2.2.5 2005/02/22 22:21:56 gespinasse Exp $
10 # enable only the following on debugging purpose
12 #use CGI::Carp 'fatalsToBrowser';
14 require '/var/ipfire/general-functions.pl';
15 require "${General::swroot}/lang.pl";
16 require "${General::swroot}/header.pl";
23 &Header
::showhttpheaders
();
25 my $dir = "/srv/web/ipfire/html/sgraph";
26 $cgiparams{'ACTION'} = '';
27 &Header
::getcgihash
(\
%cgiparams);
28 my $sgraphdir = "/srv/web/ipfire/html/sgraph";
30 &Header
::openpage
($Lang::tr
{'proxy access graphs'}, 1, '');
32 &Header
::openbigbox
('100%', 'left');
34 &Header
::openbox
('100%', 'left', $Lang::tr
{'proxy access graphs'} . ":" );
36 if (open(IPACHTML
, "$sgraphdir/index.html"))
41 $skip = 1 if /^<HR>$/;
47 s/<IMG SRC=([^"'>]+)>/<img src='\/sgraph\
/$1' alt='Graph' \/>/;
50 s/<([^>]*)>/\L<$1>\E/g;
51 s/(size|align|border|color)=([^'"> ]+)/$1='$2'/g;
57 print $Lang::tr
{'no information available'}; }
61 &Header
::closebigbox
();