Ajax Speedmeter ist ueber Guioptions deaktivierbar -> friss gut CPU

[people/teissler/ipfire-2.x.git] / html / html / themes / maniac / include / functions.pl
diff --git a/html/html/themes/maniac/include/functions.pl b/html/html/themes/maniac/include/functions.pl

index 476991a4d2b5f4156aad76f20888c05c8f53405a..6a2067bceb07b95e75926c6aad939be791274a92 100644 (file)
--- a/html/html/themes/maniac/include/functions.pl
+++ b/html/html/themes/maniac/include/functions.pl
@@ -156,6 +156,10 @@ END
              }
          }
      </script>
+END
+;
+if ($settings{'SPEED'} ne 'off') {
+print <<END
                  <script type="text/javascript" language="javascript">
                   
                      var http_request = false;
@@ -211,6 +215,12 @@ END
                  </script>
    </head>
    <body onLoad="LoadInetInfo('/cgi-bin/speed.cgi')">
+END
+;
+}
+else {
+print "</head><body>";}
+print <<END
  <!-- IPFIRE HEADER -->
  
  <div id="header">
@@ -341,13 +351,21 @@ END
                 <br class="clear" />    
                 <div id="footer" class="fixed">
                         <b>Status:</b> $status <b>Uptime:</b>$uptime <b>Version:</b> $FIREBUILD
-        <br />
-        <form name='speed'>
-        <b>$Lang::tr{'bandwidth usage'}:</b> $Lang::tr{'incoming'}:<input type="text" name="rxkb" size="5" value="0 kb/s" style="font-size: 12px; font-family: Arial, Helvetica;text-align: center;color:green; border: 1px solid black; padding: 0; background-color:black; vertical-align: middle" />
-        $Lang::tr{'outgoing'}: <input type="text" name="txkb" size="5" value="0 kb/s" style="font-size: 12px; font-family: Arial, Helvetica;text-align: center;color:red; border: 1px solid black; padding: 0; background-color:black; vertical-align: middle"  />
-        </form>
-               </div>
-       </div>
+END
+;
+if ($settings{'SPEED'} ne 'off') {
+print <<END                        
+                        <br />
+                        <form name='speed'>
+                                <b>$Lang::tr{'bandwidth usage'}:</b> $Lang::tr{'incoming'}:<input type="text" name="rxkb" size="5" value="0 kb/s" style="font-size: 12px; font-family: Arial, Helvetica;text-align: center;color:green; border: 1px solid #FFFFFF; padding: 0; background-color: #FFFFFF; vertical-align: middle" />
+                                $Lang::tr{'outgoing'}: <input type="text" name="txkb" size="5" value="0 kb/s" style="font-size: 12px; font-family: Arial, Helvetica;text-align: center;color:red; border: 1px solid #FFFFFF; padding: 0; background-color: #FFFFFF; vertical-align: middle"/>
+                        </form>
+END
+;
+}
+print <<END
+                </div>
+        </div>
  </div>
  </body>
  </html>