corrected mpfire stream url

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

diff --git a/html/cgi-bin/updatexlrator.cgi b/html/cgi-bin/updatexlrator.cgi
index 4b2082ada8e198c7de3b0ca07ec9bad6f7495d0c..ad0c4796d8a1d9f29cc21279773eb6d371fc52db 100644 (file)
--- a/html/cgi-bin/updatexlrator.cgi
+++ b/html/cgi-bin/updatexlrator.cgi
@@ -1,17 +1,29 @@
 #!/usr/bin/perl
-#
-# IPCop CGIs
-#
-# This code is distributed under the terms of the GPL
-#
-# (c) 2006 marco.s
-#
+###############################################################################
+#                                                                             #
+# IPFire.org - A linux based firewall                                         #
+# Copyright (C) 2007  Michael Tremer & Christian Schmidt                      #
+#                                                                             #
+# This program is free software: you can redistribute it and/or modify        #
+# it under the terms of the GNU General Public License as published by        #
+# the Free Software Foundation, either version 3 of the License, or           #
+# (at your option) any later version.                                         #
+#                                                                             #
+# This program is distributed in the hope that it will be useful,             #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of              #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
+# GNU General Public License for more details.                                #
+#                                                                             #
+# You should have received a copy of the GNU General Public License           #
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.       #
+#                                                                             #
+###############################################################################
 
 use strict;
 
 # enable only the following on debugging purpose
-use warnings;
-use CGI::Carp 'fatalsToBrowser';
+#use warnings;
+#use CGI::Carp 'fatalsToBrowser';
 
 use IO::Socket;
 
@@ -449,25 +461,31 @@ END
                print "\t\t<td align='center' nowrap='nowrap'>&nbsp;";
                if ($metadata[1] eq 'Adobe')
                {
-                       print "<img src='/images/updxl-src-adobe.gif' alt='Adobe'}' />&nbsp;</td>\n";
+                       print "<img src='/images/updxl-src-adobe.gif' alt='Adobe' />&nbsp;</td>\n";
                } elsif ($metadata[1] eq 'Microsoft')
                {
-                       print "<img src='/images/updxl-src-windows.gif' alt='Microsoft'}' />&nbsp;</td>\n";
+                       print "<img src='/images/updxl-src-windows.gif' alt='Microsoft' />&nbsp;</td>\n";
                } elsif ($metadata[1] eq 'Symantec')
                {
-                       print "<img src='/images/updxl-src-symantec.gif' alt='Symantec'}' />&nbsp;</td>\n";
+                       print "<img src='/images/updxl-src-symantec.gif' alt='Symantec' />&nbsp;</td>\n";
                } elsif ($metadata[1] eq 'Avira')
                {
-                       print "<img src='/images/updxl-src-avira.gif' alt='Avira'}' />&nbsp;</td>\n";
+                       print "<img src='/images/updxl-src-avira.gif' alt='Avira' />&nbsp;</td>\n";
                } elsif ($metadata[1] eq 'Avast')
                {
-                       print "<img src='/images/updxl-src-avast.gif' alt='Avast'}' />&nbsp;</td>\n";
+                       print "<img src='/images/updxl-src-avast.gif' alt='Avast' />&nbsp;</td>\n";
                } elsif ($metadata[1] eq 'IPFire')
                {
-                       print "<img src='/images/IPFire.png' width='18' height='18' alt='IPFire'}' />&nbsp;</td>\n";
+                       print "<img src='/images/IPFire.png' width='18' height='18' alt='IPFire' />&nbsp;</td>\n";
+               } elsif ($metadata[1] eq 'Apple')
+               {
+                       print "<img src='/images/updxl-src-apple.gif' alt='Apple' />&nbsp;</td>\n";
+               } elsif ($metadata[1] eq 'Kaspersky')
+               {
+                       print "<img src='/images/updxl-src-kaspersky.gif' alt='Kaspersky' />&nbsp;</td>\n";
                } elsif ($metadata[1] eq 'Linux')
                {
-                       print "<img src='/images/tux.png' alt='Linux'}' />&nbsp;</td>\n";
+                       print "<img src='/images/tux.png' alt='Linux' />&nbsp;</td>\n";
                } else
                {
                        print "<img src='/images/updxl-src-unknown.gif' alt='$Lang::tr{'updxlrtr unknown'}' />&nbsp;</td>\n";
@@ -549,6 +567,10 @@ print <<END
                <td class='base'>&nbsp;</td>
                <td align='center'><img src='/images/updxl-src-avira.gif' alt='Avira' /></td>
                <td class='base'>Avira</td>
+               <td class='base'>&nbsp;</td>
+               <td align='center'><img src='/images/updxl-src-apple.gif' alt='Apple' /></td>
+               <td class='base'>Apple</td>
+               <td class='base'>&nbsp;</td>
        </tr>
        <tr>
                <td class='base' colspan='2'>&nbsp;</td>
@@ -561,8 +583,12 @@ print <<END
                <td align='center'><img src='/images/updxl-src-avast.gif' alt='Avast' /></td>
                <td class='base'>Avast</td>
                <td class='base'>&nbsp;</td>
+               <td align='center'><img src='/images/updxl-src-kaspersky.gif' alt='Kaspersky' /></td>
+               <td class='base'>Kaspersky</td>
+               <td class='base'>&nbsp;</td>
                <td align='center'><img src='/images/updxl-src-unknown.gif' alt='$Lang::tr{'updxlrtr unknown'}' /></td>
                <td class='base'>$Lang::tr{'updxlrtr unknown'}</td>
+               <td class='base'>&nbsp;</td>
        </tr>
 </table>
 END