[prev in list] [next in list] [prev in thread] [next in thread] 

List:       ipcop-svn
Subject:    [Ipcop-svn] SF.net SVN: ipcop:[1750] ipcop/trunk/html
From:       owes () users ! sourceforge ! net
Date:       2008-08-31 12:37:11
Message-ID: E1KZmB5-0004NV-RG () dn4whf1 ! ch3 ! sourceforge ! com
[Download RAW message or body]

Revision: 1750
          http://ipcop.svn.sourceforge.net/ipcop/?rev=1750&view=rev
Author:   owes
Date:     2008-08-31 12:37:09 +0000 (Sun, 31 Aug 2008)

Log Message:
-----------
add a grahpic to replace BACK text, position BACK on top & bottom of page

Modified Paths:
--------------
    ipcop/trunk/html/cgi-bin/graphs.cgi

Added Paths:
-----------
    ipcop/trunk/html/html/images/back.png

Modified: ipcop/trunk/html/cgi-bin/graphs.cgi
===================================================================
--- ipcop/trunk/html/cgi-bin/graphs.cgi	2008-08-31 12:24:09 UTC (rev 1749)
+++ ipcop/trunk/html/cgi-bin/graphs.cgi	2008-08-31 12:37:09 UTC (rev 1750)
@@ -48,30 +48,39 @@
     my $graphname = ucfirst(lc($cgigraphs[1]));
     my ($title, $count) = split('_', $graphname);
     $title = $title." ".$count if ( $count >= 2 );
+    my $back = '';
+    if ($cgigraphs[1] =~ /(GREEN|BLUE|ORANGE|RED)/) {
+        $back = "<a href='/cgi-bin/graphs.cgi?graph=network'>";
+    } 
+    else {
+        $back = "<a href='/cgi-bin/graphs.cgi'>";
+    }
+
     &Header::openbox('100%', 'center', "$title $Lang::tr{'graph'}");
 
     if (-e "$graphdir/${graph}-day.png") {
         my $ftime = localtime((stat("$graphdir/${graph}-day.png"))[9]);
-        print "<center>";
-        print "<b>$Lang::tr{'the statistics were last updated at'}: \
                $ftime</b></center><br /><hr />\n";
-        print "<img src='/graphs/${graph}-day.png' border='0' \
                alt='${graph}-$Lang::tr{'day'}' /><hr />";
-        print "<img src='/graphs/${graph}-week.png' border='0' \
                alt='${graph}-$Lang::tr{'week'}' /><hr />";
-        print "<img src='/graphs/${graph}-month.png' border='0' \
                alt='${graph}-$Lang::tr{'month'}' /><hr />";
-        print "<img src='/graphs/${graph}-year.png' border='0' \
alt='${graph}-$Lang::tr{'year'}' />"; +        print <<END
+<table width='100%'><tr>
+    <td width='10%'>$back<img src='/images/back.png' alt='$Lang::tr{'back'}' \
title='$Lang::tr{'back'}' /></a></td> +    <td align='center'>$Lang::tr{'the \
statistics were last updated at'}: $ftime</td> +    <td width='10%'>&nbsp;</td>
+</tr></table>
+<hr />
+<img src='/graphs/${graph}-day.png' border='0' alt='${graph}-$Lang::tr{'day'}' /><hr \
/> +<img src='/graphs/${graph}-week.png' border='0' alt='${graph}-$Lang::tr{'week'}' \
/><hr /> +<img src='/graphs/${graph}-month.png' border='0' \
alt='${graph}-$Lang::tr{'month'}' /><hr /> +<img src='/graphs/${graph}-year.png' \
border='0' alt='${graph}-$Lang::tr{'year'}' /> +END
+        ;
     } 
     else {
         print $Lang::tr{'no information available'};
     }
+
+    print "<hr /><div align='left'>$back<img src='/images/back.png' \
alt='$Lang::tr{'back'}' title='$Lang::tr{'back'}' /></a></div>\n"; +
     &Header::closebox();
-    print "<div align='center'><table width='80%'><tr><td align='center'>";
-    if ($cgigraphs[1] =~ /(GREEN|BLUE|ORANGE|RED)/) {
-        print "<a href='/cgi-bin/graphs.cgi?graph=network'>";
-    } 
-    else {
-        print "<a href='/cgi-bin/graphs.cgi'>";
-    }
-    print "$Lang::tr{'back'}</a></td></tr></table></div>\n";
-    ;
 }
 elsif ($cgigraphs[1] =~ /network/) {
     for my $color ('GREEN', 'ORANGE', 'BLUE') {
@@ -91,7 +100,7 @@
 
         if (-e "$graphdir/${graphname}-day.png") {
             my $ftime = localtime((stat("$graphdir/${graphname}-day.png"))[9]);
-            print "<center><b>$Lang::tr{'the statistics were last updated at'}: \
$ftime</b></center><br />\n"; +            print "<center>$Lang::tr{'the statistics \
were last updated at'}: $ftime</center><br />\n";  print "<a \
                href='/cgi-bin/graphs.cgi?graph=$graphname'>";
             print "<img src='/graphs/${graphname}-day.png' \
alt='${graphname}-$Lang::tr{'day'}' border='0' />";  print "</a><br />";
@@ -136,7 +145,7 @@
     &Header::openbox('100%', 'center', $title);
     if (-e "$graphdir/$file-day.png") {
         my $ftime = localtime((stat("$graphdir/$file-day.png"))[9]);
-        print "<center><b>$Lang::tr{'the statistics were last updated at'}: \
$ftime</b></center><br />\n"; +        print "<center>$Lang::tr{'the statistics were \
last updated at'}: $ftime</center><br />\n";  print "<a \
                href='/cgi-bin/graphs.cgi?graph=$file'>";
         print "<img src='/graphs/$file-day.png' alt='$alt' border='0' />";
         print "</a><br />";


Property changes on: ipcop/trunk/html/html/images/back.png
___________________________________________________________________
Added: svn:mime-type
   + application/octet-stream


This was sent by the SourceForge.net collaborative development platform, the world's \
largest Open Source development site.

-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
Ipcop-svn mailing list
Ipcop-svn@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/ipcop-svn


[prev in list] [next in list] [prev in thread] [next in thread]