]>
git.ipfire.org Git - people/teissler/ipfire-2.x.git/blob - html/cgi-bin/upload.cgi
5 # This code is distributed under the terms of the GPL
7 # (c) The SmoothWall Team
9 # $Id: upload.cgi,v 1.2.2.21 2005/08/14 23:43:38 gespinasse Exp $
15 # enable only the following on debugging purpose
17 #use CGI::Carp 'fatalsToBrowser';
19 require 'CONFIG_ROOT/general-functions.pl';
20 require "${General::swroot}/lang.pl";
21 require "${General::swroot}/header.pl";
23 my %uploadsettings=();
24 my $errormessage = '';
26 &Header
::showhttpheaders
();
27 $uploadsettings{'ACTION'} = '';
29 &Header
::getcgihash
(\
%uploadsettings, {'wantfile' => 1, 'filevar' => 'FH'});
31 my $extraspeedtouchmessage='';
32 my $extrafritzdslmessage='';
33 my $extraeciadslmessage='';
38 my $speedtouch = &Header
::speedtouchversion
;
39 if ($speedtouch == 4) {
41 $firmwarename="$Lang::tr{'upload'} ZZZL_3.012";
44 $firmwarename="$Lang::tr{'upload'} KQD6_3.012";
47 $kernel=`/bin/uname -r | /usr/bin/tr -d '\012'`;
49 if ($uploadsettings{'ACTION'} eq $firmwarename) {
50 if ($modem eq 'v0123' || $modem eq 'v4_b') {
51 if (copy
($uploadsettings{'FH'}, "${General::swroot}/alcatelusb/firmware.$modem.bin") != 1) {
54 $extraspeedtouchmessage = $Lang::tr
{'upload successful'};
58 elsif ($uploadsettings{'ACTION'} eq "$Lang::tr{'upload'} fcdsl-${General::version}.tgz")
60 if (copy
($uploadsettings{'FH'}, "/var/patches/fcdsl-x.tgz") != 1) {
63 $extrafritzdslmessage = $Lang::tr
{'upload successful'};
66 elsif ($uploadsettings{'ACTION'} eq $Lang::tr
{'upload synch.bin'})
68 if (copy
($uploadsettings{'FH'}, "${General::swroot}/eciadsl/synch.bin") != 1) {
71 $extraeciadslmessage = $Lang::tr
{'upload successful'};
75 &Header
::openpage
($Lang::tr
{'firmware upload'}, 1, '');
77 &Header
::openbigbox
('100%', 'left', '', $errormessage);
80 &Header
::openbox
('100%', 'left', $Lang::tr
{'error messages'});
81 print "<font class='base'>$errormessage </font>\n";
84 print "<form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>\n";
86 &Header
::openbox
('100%','left', $Lang::tr
{'alcatelusb upload'});
90 <td colspan='4'>$Lang::tr{'alcatelusb help'}<br />
91 URL: <a href='http://www.speedtouch.com/support.htm'>http://www.speedtouch.com/support.htm</a>
94 <tr><td colspan='4'>$Lang::tr{'modem'}: Rev <b>$speedtouch</b></td></tr>
96 <td width='5%' class='base' nowrap='nowrap'>$Lang::tr{'upload file'}: </td>
97 <td width='45%'><input type="file" size='30' name="FH" /></td>
98 <td width='35%' align='center'><input type='submit' name='ACTION' value='$firmwarename' /></td>
102 if (-e
"${General::swroot}/alcatelusb/firmware.$modem.bin") {
103 if ($extraspeedtouchmessage ne '') {
104 print ("$extraspeedtouchmessage</td>");
106 print ("$Lang::tr{'present'}</td>");
109 print ("$Lang::tr{'not present'}</td>");
119 &Header
::openbox
('100%','left', $Lang::tr
{'eciadsl upload'});
123 <td colspan='4'>$Lang::tr{'eciadsl help'}<br />
124 URL: <a href='http://eciadsl.flashtux.org/'>http://eciadsl.flashtux.org/</a>
128 <td width='5%' class='base' nowrap='nowrap'>$Lang::tr{'upload file'}: </td>
129 <td width='45%'><input type="file" size='30' name="FH" /></td>
130 <td width='35%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'upload synch.bin'}' /></td>
134 if (-e
"${General::swroot}/eciadsl/synch.bin") {
135 if ($extraeciadslmessage ne '') {
136 print ("$extraeciadslmessage</td>");
138 print ("$Lang::tr{'present'}</td>");
141 print ("$Lang::tr{'not present'}</td>");
150 &Header
::openbox
('100%','left', $Lang::tr
{'fritzdsl upload'});
154 <td colspan='4'>$Lang::tr{'fritzdsl help'}<br />
155 URL: <a href='http://www.ipfire.org/'>http://www.ipfire.org/</a>
159 <td width='5%' class='base' nowrap='nowrap'>$Lang::tr{'upload file'}: </td>
160 <td width='45%'><input type="file" size='30' name="FH" /></td>
161 <td width='35%' align='center'><input type='submit' name='ACTION' value="$Lang::tr{'upload'} fcdsl-${General::version}.tgz"/></td>
165 if ($extrafritzdslmessage ne '') {
166 print ("$extrafritzdslmessage</td></tr><tr><td> </td><td><pre>");
167 print `/usr/local/bin/installfcdsl`;
168 print ("</pre></td>");
170 if (-e
"/lib/modules/$kernel/misc/fcdsl.o.gz") {
171 print ("$Lang::tr{'present'}</td>");
173 print ("$Lang::tr{'not present'}</td>");
185 &Header
::closebigbox
();
187 &Header
::closepage
();