MPFire hinzugefügt - CGI mpg123 Frontend

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

diff --git a/html/cgi-bin/samba.cgi b/html/cgi-bin/samba.cgi
index 69cb9fe25872fabe0cb57690ccb3df75b806d788..6c52a8457907072054eec17e60ad9d90f2b0823e 100644 (file)
--- a/html/cgi-bin/samba.cgi
+++ b/html/cgi-bin/samba.cgi
@@ -571,10 +571,14 @@ END
        @user = <FILE>;
        close(FILE);
        system('/usr/local/bin/sambactrl locksmbpasswd');
+       
+       my $lines = 0;
+       
        foreach $userentry (sort @user)
                {
                @userline = split( /\:/, $userentry );
-               print "<tr><td align='left'>$userline[0]</td><td align='left'>";
+    if ($lines % 2) {print "<tr bgcolor='$color{'color20'}'>";} else {print "<tr bgcolor='$color{'color22'}'>";}
+               print "<td align='left'>$userline[0]</td><td align='left'>";
                if ($userline[4] =~ /N/)
                        {
                        print "$Lang::tr{'not set'}</td><td align='left'>";
@@ -663,6 +667,7 @@ END
 END
 ;
                                }
+               $lines++;
                }
        print <<END
        </table>
@@ -796,12 +801,14 @@ END
 ;
 
 my @Shares = keys(%shares);
+my $lines = 0;
 
 foreach my $shareentry (sort @Shares)
        {
        chomp $shareentry;
+       if ($lines % 2) {print "<tr bgcolor='$color{'color20'}'>";} else {print "<tr bgcolor='$color{'color22'}'>";}
        print <<END
-       <tr><td align='left'>$shareentry</td>
+       <td align='left'>$shareentry</td>
        <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
                        <input type='hidden' name='NAME' value='$shareentry' />
                        <input type='hidden' name='ACTION' value='sharechange' />
@@ -814,6 +821,7 @@ foreach my $shareentry (sort @Shares)
        </form></td></tr>
 END
 ;
+  $lines++;
        }
 
 print <<END