git-svn-id: http://svn.ipfire.org/svn/ipfire/IPFire/source@16 ea5c0bd1-69bd-2848...

[people/teissler/ipfire-2.x.git] / html / cgi-bin / modem.cgi

diff --git a/html/cgi-bin/modem.cgi b/html/cgi-bin/modem.cgi
new file mode 100644 (file)
index 0000000..285466c
--- /dev/null
+++ b/html/cgi-bin/modem.cgi
@@ -0,0 +1,120 @@
+#!/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: modem.cgi,v 1.4.2.7 2005/02/22 22:21:56 gespinasse Exp $\r
+#\r
+\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 %modemsettings=();\r
+my $errormessage = '';\r
+\r
+&Header::showhttpheaders();\r
+\r
+$modemsettings{'ACTION'} = '';\r
+$modemsettings{'VALID'} = '';\r
+\r
+&Header::getcgihash(\%modemsettings);\r
+\r
+if ($modemsettings{'ACTION'} eq $Lang::tr{'save'})\r
+{ \r
+        if (!($modemsettings{'TIMEOUT'} =~ /^\d+$/))\r
+        {\r
+               $errormessage = $Lang::tr{'timeout must be a number'};\r
+               goto ERROR;\r
+        }\r
+ERROR:   \r
+        if ($errormessage) {\r
+                $modemsettings{'VALID'} = 'no'; }\r
+        else {\r
+                $modemsettings{'VALID'} = 'yes'; }\r
+\r
+       &General::writehash("${General::swroot}/modem/settings", \%modemsettings);\r
+}\r
+\r
+if ($modemsettings{'ACTION'} eq $Lang::tr{'restore defaults'})\r
+{\r
+       system('/bin/cp', "${General::swroot}/modem/defaults", "${General::swroot}/modem/settings", '-f');\r
+}\r
+\r
+&General::readhash("${General::swroot}/modem/settings", \%modemsettings);\r
+\r
+&Header::openpage($Lang::tr{'modem configuration'}, 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
+\r
+print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n";\r
+\r
+&Header::openbox('100%', 'left', "$Lang::tr{'modem configuration'}:");\r
+print <<END\r
+<table width='100%'>\r
+<tr>\r
+       <td width='25%' class='base'>$Lang::tr{'init string'}&nbsp;<img src='/blob.gif' alt='*' /></td>\r
+       <td width='25%'><input type='text' name='INIT' value='$modemsettings{'INIT'}' /></td>\r
+       <td width='25%' class='base'>$Lang::tr{'hangup string'}&nbsp;<img src='/blob.gif' alt='*' /></td>\r
+       <td width='25%'><input type='text' name='HANGUP' value='$modemsettings{'HANGUP'}' /></td>\r
+</tr>\r
+<tr>\r
+       <td class='base'>$Lang::tr{'speaker on'}&nbsp;<img src='/blob.gif' alt='*' /></td>\r
+       <td><input type='text' name='SPEAKER_ON' value='$modemsettings{'SPEAKER_ON'}' /></td>\r
+       <td class='base'>$Lang::tr{'speaker off'}&nbsp;<img src='/blob.gif' alt='*' /></td>\r
+       <td><input type='text' name='SPEAKER_OFF' value='$modemsettings{'SPEAKER_OFF'}' /></td>\r
+</tr>\r
+<tr>\r
+       <td class='base'>$Lang::tr{'tone dial'}&nbsp;<img src='/blob.gif' alt='*' /></td>\r
+       <td><input type='text' name='TONE_DIAL' value='$modemsettings{'TONE_DIAL'}' /></td>\r
+       <td class='base'>$Lang::tr{'pulse dial'}&nbsp;<img src='/blob.gif' alt='*' /></td>\r
+       <td><input type='text' name='PULSE_DIAL' value='$modemsettings{'PULSE_DIAL'}' /></td>\r
+</tr>\r
+<tr>\r
+       <td class='base'>$Lang::tr{'connect timeout'}</td>\r
+       <td><input type='text' name='TIMEOUT' value='$modemsettings{'TIMEOUT'}' /></td>\r
+       <td class='base'>&nbsp;</td>\r
+       <td>&nbsp;</td>\r
+</tr>\r
+\r
+</table>\r
+<table width='100%'>\r
+<hr />\r
+<tr>\r
+       <td width='33%'>\r
+               <img src='/blob.gif' align='top' alt='*' />&nbsp;\r
+               <font class='base'>$Lang::tr{'this field may be blank'}</font>\r
+       </td>\r
+       <td width='33%' align='center'>\r
+               <input type='submit' name='ACTION' value='$Lang::tr{'restore defaults'}' />\r
+       </td>\r
+       <td width='33%' align='center'>\r
+               <input type='submit' name='ACTION' value='$Lang::tr{'save'}' />\r
+       </td>\r
+</tr>\r
+</table>\r
+</div>\r
+END\r
+;\r
+&Header::closebox();\r
+\r
+print "</form>\n";\r
+\r
+&Header::closebigbox();\r
+\r
+&Header::closepage();\r