SMP-Config angepasst.. CGIs usw. wurden im Windoof-Format gespeichert... muss noch...

[ipfire-2.x.git] / html / cgi-bin / upload.cgi

diff --git a/html/cgi-bin/upload.cgi b/html/cgi-bin/upload.cgi
index 59395fe9031ebc57d5b50098b2ac9801cd88d01a..03d27b9ec8ef6042409ca2bee57a73a23b52a17c 100644 (file)
--- a/html/cgi-bin/upload.cgi
+++ b/html/cgi-bin/upload.cgi
@@ -1,187 +1,187 @@
-#!/usr/bin/perl\r
-#\r
-# SmoothWall CGIs\r
-#\r
-# This code is distributed under the terms of the GPL\r
-#\r
-# (c) The SmoothWall Team\r
-#\r
-# $Id: upload.cgi,v 1.2.2.21 2005/08/14 23:43:38 gespinasse Exp $\r
-#\r
-\r
-use File::Copy;\r
-use strict;\r
-\r
-# enable only the following on debugging purpose\r
-#use warnings;\r
-#use CGI::Carp 'fatalsToBrowser';\r
-\r
-require 'CONFIG_ROOT/general-functions.pl';\r
-require "${General::swroot}/lang.pl";\r
-require "${General::swroot}/header.pl";\r
-\r
-my %uploadsettings=();\r
-my $errormessage = '';\r
-\r
-&Header::showhttpheaders();\r
-$uploadsettings{'ACTION'} = '';\r
-\r
-&Header::getcgihash(\%uploadsettings, {'wantfile' => 1, 'filevar' => 'FH'});\r
-\r
-my $extraspeedtouchmessage='';\r
-my $extrafritzdslmessage='';\r
-my $extraeciadslmessage='';\r
-my $modem='';\r
-my $firmwarename='';\r
-my $kernel='';\r
-\r
-my $speedtouch = &Header::speedtouchversion;\r
-if ($speedtouch == 4) {\r
-       $modem='v4_b';\r
-       $firmwarename="$Lang::tr{'upload'} ZZZL_3.012";\r
-} else {\r
-       $modem='v0123';\r
-       $firmwarename="$Lang::tr{'upload'} KQD6_3.012";\r
-}\r
-\r
-$kernel=`/bin/uname -r | /usr/bin/tr -d '\012'`;\r
-\r
-if ($uploadsettings{'ACTION'} eq $firmwarename) {\r
-       if ($modem eq 'v0123' || $modem eq 'v4_b') {\r
-               if (copy ($uploadsettings{'FH'}, "${General::swroot}/alcatelusb/firmware.$modem.bin") != 1) {\r
-                       $errormessage = $!;\r
-               } else {\r
-                       $extraspeedtouchmessage = $Lang::tr{'upload successful'};\r
-               }\r
-       }\r
-}\r
-elsif ($uploadsettings{'ACTION'} eq "$Lang::tr{'upload'} fcdsl-${General::version}.tgz")\r
-{\r
-       if (copy ($uploadsettings{'FH'}, "/var/patches/fcdsl-x.tgz") != 1) {\r
-               $errormessage = $!;\r
-       } else {\r
-               $extrafritzdslmessage = $Lang::tr{'upload successful'};\r
-       }\r
-}\r
-elsif ($uploadsettings{'ACTION'} eq $Lang::tr{'upload synch.bin'})\r
-{\r
-       if (copy ($uploadsettings{'FH'}, "${General::swroot}/eciadsl/synch.bin") != 1) {\r
-               $errormessage = $!;\r
-       } else {\r
-               $extraeciadslmessage = $Lang::tr{'upload successful'};\r
-       }\r
-}\r
-\r
-&Header::openpage($Lang::tr{'firmware upload'}, 1, '');\r
-\r
-&Header::openbigbox('100%', 'left', '', $errormessage);\r
-\r
-if ($errormessage) {\r
-       &Header::openbox('100%', 'left', $Lang::tr{'error messages'});\r
-       print "<font class='base'>$errormessage&nbsp;</font>\n";\r
-       &Header::closebox();\r
-}\r
-print "<form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>\n";\r
-\r
-&Header::openbox('100%','left', $Lang::tr{'alcatelusb upload'});\r
-print <<END\r
-<table width='100%'>\r
-<tr>\r
-       <td colspan='4'>$Lang::tr{'alcatelusb help'}<br />\r
-       URL: <a href='http://www.speedtouch.com/support.htm'>http://www.speedtouch.com/support.htm</a>\r
-       </td>\r
-</tr>\r
-<tr><td colspan='4'>$Lang::tr{'modem'}: Rev <b>$speedtouch</b></td></tr>\r
-<tr>\r
-       <td width='5%' class='base' nowrap='nowrap'>$Lang::tr{'upload file'}:&nbsp;</td>\r
-       <td width='45%'><input type="file" size='30' name="FH" /></td>\r
-       <td width='35%' align='center'><input type='submit' name='ACTION' value='$firmwarename' /></td>\r
-       <td width='15%'>\r
-END\r
-;\r
-if (-e "${General::swroot}/alcatelusb/firmware.$modem.bin") {\r
-       if ($extraspeedtouchmessage ne '') {\r
-               print ("$extraspeedtouchmessage</td>");\r
-       } else {\r
-               print ("$Lang::tr{'present'}</td>");\r
-       }\r
-} else {\r
-       print ("$Lang::tr{'not present'}</td>");\r
-}\r
-print <<END\r
-</tr>\r
-</table>\r
-END\r
-;\r
-\r
-&Header::closebox();\r
-\r
-&Header::openbox('100%','left', $Lang::tr{'eciadsl upload'});\r
-print <<END\r
-<table width='100%'>\r
-<tr>\r
-       <td colspan='4'>$Lang::tr{'eciadsl help'}<br />\r
-       URL: <a href='http://eciadsl.flashtux.org/'>http://eciadsl.flashtux.org/</a>\r
-       </td>\r
-</tr>\r
-<tr>\r
-       <td width='5%' class='base' nowrap='nowrap'>$Lang::tr{'upload file'}:&nbsp;</td>\r
-       <td width='45%'><input type="file" size='30' name="FH" /></td>\r
-       <td width='35%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'upload synch.bin'}' /></td>\r
-       <td width='15%'>\r
-END\r
-;\r
-if (-e "${General::swroot}/eciadsl/synch.bin") {\r
-       if ($extraeciadslmessage ne '') {\r
-               print ("$extraeciadslmessage</td>");\r
-       } else {\r
-               print ("$Lang::tr{'present'}</td>");\r
-       }\r
-} else {\r
-       print ("$Lang::tr{'not present'}</td>");\r
-}\r
-print <<END\r
-</tr>\r
-</table>\r
-END\r
-;\r
-&Header::closebox();\r
-\r
-&Header::openbox('100%','left', $Lang::tr{'fritzdsl upload'});\r
-print <<END\r
-<table width='100%'>\r
-<tr>\r
-       <td colspan='4'>$Lang::tr{'fritzdsl help'}<br />\r
-       URL: <a href='http://www.ipcop.org/'>http://www.ipcop.org/</a>\r
-       </td>\r
-</tr>\r
-<tr>\r
-       <td width='5%' class='base' nowrap='nowrap'>$Lang::tr{'upload file'}:&nbsp;</td>\r
-       <td width='45%'><input type="file" size='30' name="FH" /></td>\r
-       <td width='35%' align='center'><input type='submit' name='ACTION' value="$Lang::tr{'upload'} fcdsl-${General::version}.tgz"/></td>\r
-       <td width='15%'>\r
-END\r
-;\r
-if ($extrafritzdslmessage ne '') {\r
-       print ("$extrafritzdslmessage</td></tr><tr><td>&nbsp;</td><td><pre>");\r
-       print `/usr/local/bin/installfcdsl`;\r
-       print ("</pre></td>");\r
-} else {\r
-       if (-e "/lib/modules/$kernel/misc/fcdsl.o.gz") {\r
-               print ("$Lang::tr{'present'}</td>");\r
-       } else {\r
-               print ("$Lang::tr{'not present'}</td>");\r
-       }\r
-}\r
-print <<END\r
-</tr>\r
-</table>\r
-END\r
-;\r
-&Header::closebox();\r
-\r
-print "</form>\n";\r
-\r
-&Header::closebigbox();\r
-\r
-&Header::closepage();\r
+#!/usr/bin/perl
+#
+# SmoothWall CGIs
+#
+# This code is distributed under the terms of the GPL
+#
+# (c) The SmoothWall Team
+#
+# $Id: upload.cgi,v 1.2.2.21 2005/08/14 23:43:38 gespinasse Exp $
+#
+
+use File::Copy;
+use strict;
+
+# enable only the following on debugging purpose
+#use warnings;
+#use CGI::Carp 'fatalsToBrowser';
+
+require 'CONFIG_ROOT/general-functions.pl';
+require "${General::swroot}/lang.pl";
+require "${General::swroot}/header.pl";
+
+my %uploadsettings=();
+my $errormessage = '';
+
+&Header::showhttpheaders();
+$uploadsettings{'ACTION'} = '';
+
+&Header::getcgihash(\%uploadsettings, {'wantfile' => 1, 'filevar' => 'FH'});
+
+my $extraspeedtouchmessage='';
+my $extrafritzdslmessage='';
+my $extraeciadslmessage='';
+my $modem='';
+my $firmwarename='';
+my $kernel='';
+
+my $speedtouch = &Header::speedtouchversion;
+if ($speedtouch == 4) {
+       $modem='v4_b';
+       $firmwarename="$Lang::tr{'upload'} ZZZL_3.012";
+} else {
+       $modem='v0123';
+       $firmwarename="$Lang::tr{'upload'} KQD6_3.012";
+}
+
+$kernel=`/bin/uname -r | /usr/bin/tr -d '\012'`;
+
+if ($uploadsettings{'ACTION'} eq $firmwarename) {
+       if ($modem eq 'v0123' || $modem eq 'v4_b') {
+               if (copy ($uploadsettings{'FH'}, "${General::swroot}/alcatelusb/firmware.$modem.bin") != 1) {
+                       $errormessage = $!;
+               } else {
+                       $extraspeedtouchmessage = $Lang::tr{'upload successful'};
+               }
+       }
+}
+elsif ($uploadsettings{'ACTION'} eq "$Lang::tr{'upload'} fcdsl-${General::version}.tgz")
+{
+       if (copy ($uploadsettings{'FH'}, "/var/patches/fcdsl-x.tgz") != 1) {
+               $errormessage = $!;
+       } else {
+               $extrafritzdslmessage = $Lang::tr{'upload successful'};
+       }
+}
+elsif ($uploadsettings{'ACTION'} eq $Lang::tr{'upload synch.bin'})
+{
+       if (copy ($uploadsettings{'FH'}, "${General::swroot}/eciadsl/synch.bin") != 1) {
+               $errormessage = $!;
+       } else {
+               $extraeciadslmessage = $Lang::tr{'upload successful'};
+       }
+}
+
+&Header::openpage($Lang::tr{'firmware upload'}, 1, '');
+
+&Header::openbigbox('100%', 'left', '', $errormessage);
+
+if ($errormessage) {
+       &Header::openbox('100%', 'left', $Lang::tr{'error messages'});
+       print "<font class='base'>$errormessage&nbsp;</font>\n";
+       &Header::closebox();
+}
+print "<form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>\n";
+
+&Header::openbox('100%','left', $Lang::tr{'alcatelusb upload'});
+print <<END
+<table width='100%'>
+<tr>
+       <td colspan='4'>$Lang::tr{'alcatelusb help'}<br />
+       URL: <a href='http://www.speedtouch.com/support.htm'>http://www.speedtouch.com/support.htm</a>
+       </td>
+</tr>
+<tr><td colspan='4'>$Lang::tr{'modem'}: Rev <b>$speedtouch</b></td></tr>
+<tr>
+       <td width='5%' class='base' nowrap='nowrap'>$Lang::tr{'upload file'}:&nbsp;</td>
+       <td width='45%'><input type="file" size='30' name="FH" /></td>
+       <td width='35%' align='center'><input type='submit' name='ACTION' value='$firmwarename' /></td>
+       <td width='15%'>
+END
+;
+if (-e "${General::swroot}/alcatelusb/firmware.$modem.bin") {
+       if ($extraspeedtouchmessage ne '') {
+               print ("$extraspeedtouchmessage</td>");
+       } else {
+               print ("$Lang::tr{'present'}</td>");
+       }
+} else {
+       print ("$Lang::tr{'not present'}</td>");
+}
+print <<END
+</tr>
+</table>
+END
+;
+
+&Header::closebox();
+
+&Header::openbox('100%','left', $Lang::tr{'eciadsl upload'});
+print <<END
+<table width='100%'>
+<tr>
+       <td colspan='4'>$Lang::tr{'eciadsl help'}<br />
+       URL: <a href='http://eciadsl.flashtux.org/'>http://eciadsl.flashtux.org/</a>
+       </td>
+</tr>
+<tr>
+       <td width='5%' class='base' nowrap='nowrap'>$Lang::tr{'upload file'}:&nbsp;</td>
+       <td width='45%'><input type="file" size='30' name="FH" /></td>
+       <td width='35%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'upload synch.bin'}' /></td>
+       <td width='15%'>
+END
+;
+if (-e "${General::swroot}/eciadsl/synch.bin") {
+       if ($extraeciadslmessage ne '') {
+               print ("$extraeciadslmessage</td>");
+       } else {
+               print ("$Lang::tr{'present'}</td>");
+       }
+} else {
+       print ("$Lang::tr{'not present'}</td>");
+}
+print <<END
+</tr>
+</table>
+END
+;
+&Header::closebox();
+
+&Header::openbox('100%','left', $Lang::tr{'fritzdsl upload'});
+print <<END
+<table width='100%'>
+<tr>
+       <td colspan='4'>$Lang::tr{'fritzdsl help'}<br />
+       URL: <a href='http://www.ipcop.org/'>http://www.ipcop.org/</a>
+       </td>
+</tr>
+<tr>
+       <td width='5%' class='base' nowrap='nowrap'>$Lang::tr{'upload file'}:&nbsp;</td>
+       <td width='45%'><input type="file" size='30' name="FH" /></td>
+       <td width='35%' align='center'><input type='submit' name='ACTION' value="$Lang::tr{'upload'} fcdsl-${General::version}.tgz"/></td>
+       <td width='15%'>
+END
+;
+if ($extrafritzdslmessage ne '') {
+       print ("$extrafritzdslmessage</td></tr><tr><td>&nbsp;</td><td><pre>");
+       print `/usr/local/bin/installfcdsl`;
+       print ("</pre></td>");
+} else {
+       if (-e "/lib/modules/$kernel/misc/fcdsl.o.gz") {
+               print ("$Lang::tr{'present'}</td>");
+       } else {
+               print ("$Lang::tr{'not present'}</td>");
+       }
+}
+print <<END
+</tr>
+</table>
+END
+;
+&Header::closebox();
+
+print "</form>\n";
+
+&Header::closebigbox();
+
+&Header::closepage();