samba.cgi: Use new perl system functions

[people/pmueller/ipfire-2.x.git] / html / cgi-bin / p2p-block.cgi

diff --git a/html/cgi-bin/p2p-block.cgi b/html/cgi-bin/p2p-block.cgi
old mode 100755 (executable)
new mode 100644 (file)
index 5ed5874..d147255
--- a/html/cgi-bin/p2p-block.cgi
+++ b/html/cgi-bin/p2p-block.cgi
@@ -41,7 +41,7 @@ my %color = ();
 my %mainsettings = ();
 
 &General::readhash("${General::swroot}/main/settings", \%mainsettings);
-&General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
+&General::readhash("/srv/web/ipfire/html/themes/ipfire/include/colors.txt", \%color);
 
 &Header::showhttpheaders();
 &Header::getcgihash(\%fwdfwsettings);
@@ -84,14 +84,14 @@ open(FILE, "<$p2pfile") or die "Unable to read $p2pfile";
 @p2ps = <FILE>;
 close FILE;
 
-&Header::openbox('100%', 'center', $Lang::tr{'p2p block'});
+&Header::openbox('100%', 'center',);
 print <<END;
        <table width='35%' class='tbl'>
                <tr>
-                       <th align=center colspan='2'bgcolor='$color{'color22'}' >
+                       <th align='center' colspan='2' bgcolor='$color{'color22'}' >
                                <b>$Lang::tr{'protocol'}</b>
                        </th>
-                       <th align='center'bgcolor='$color{'color22'}' >
+                       <th align='center' bgcolor='$color{'color22'}' >
                                <b>$Lang::tr{'status'}</b>
                        </th>
                </tr>