X-Git-Url: http://git.ipfire.org/?a=blobdiff_plain;f=html%2Fcgi-bin%2Fremote.cgi;h=ab373791b3811e5606ba6e2da6ddc7c891180cbe;hb=069ae085ad8e635055e7e126723e8994a779c722;hp=581f4d228909fcc8630dd10d30c9e6c347cbb4eb;hpb=cd1a2927226c734d96478e12bb768256fb64a06a;p=people%2Fpmueller%2Fipfire-2.x.git
diff --git a/html/cgi-bin/remote.cgi b/html/cgi-bin/remote.cgi
index 581f4d2289..ab373791b3 100644
--- a/html/cgi-bin/remote.cgi
+++ b/html/cgi-bin/remote.cgi
@@ -1,180 +1,180 @@
-#!/usr/bin/perl
-#
-# SmoothWall CGIs
-#
-# This code is distributed under the terms of the GPL
-#
-# (c) The SmoothWall Team
-#
-# $Id: remote.cgi,v 1.6.2.8 2005/02/22 22:21:56 gespinasse Exp $
-#
-
-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 %remotesettings=();
-my %checked=();
-my $errormessage='';
-
-&Header::showhttpheaders();
-
-$remotesettings{'ENABLE_SSH'} = 'off';
-$remotesettings{'ENABLE_SSH_PROTOCOL1'} = 'off';
-$remotesettings{'ENABLE_SSH_PORTFW'} = 'off';
-$remotesettings{'ACTION'} = '';
-&Header::getcgihash(\%remotesettings);
-
-if ($remotesettings{'ACTION'} eq $Lang::tr{'save'})
-{
- # not existing here indicates the box is unticked
- $remotesettings{'ENABLE_SSH_PASSWORDS'} = 'off' unless exists $remotesettings{'ENABLE_SSH_PASSWORDS'};
- $remotesettings{'ENABLE_SSH_KEYS'} = 'off' unless exists $remotesettings{'ENABLE_SSH_KEYS'};
-
-
- &General::writehash("${General::swroot}/remote/settings", \%remotesettings);
- if ($remotesettings{'ENABLE_SSH'} eq 'on')
- {
- &General::log($Lang::tr{'ssh is enabled'});
- if ($remotesettings{'ENABLE_SSH_PASSWORDS'} eq 'off'
- and $remotesettings{'ENABLE_SSH_KEYS'} eq 'off')
- {
- $errormessage = $Lang::tr{'ssh no auth'};
- }
- system ('/bin/touch', "${General::swroot}/remote/enablessh");
- }
- else
- {
- &General::log($Lang::tr{'ssh is disabled'});
- unlink "${General::swroot}/remote/enablessh";
- }
-
- if ($remotesettings{'ENABLE_SSH_PROTOCOL1'} eq 'on')
- {
- &General::log($Lang::tr{'ssh1 enabled'});
- }
- else
- {
- &General::log($Lang::tr{'ssh1 disabled'});
- }
-
- system('/usr/local/bin/restartssh') == 0
- or $errormessage = "$Lang::tr{'bad return code'} " . $?/256;
-}
-
-&General::readhash("${General::swroot}/remote/settings", \%remotesettings);
-
-# not existing here means they're undefined and the default value should be
-# used
- $remotesettings{'ENABLE_SSH_PASSWORDS'} = 'on' unless exists $remotesettings{'ENABLE_SSH_PASSWORDS'};
- $remotesettings{'ENABLE_SSH_KEYS'} = 'on' unless exists $remotesettings{'ENABLE_SSH_KEYS'};
-
-$checked{'ENABLE_SSH'}{'off'} = '';
-$checked{'ENABLE_SSH'}{'on'} = '';
-$checked{'ENABLE_SSH'}{$remotesettings{'ENABLE_SSH'}} = "checked='checked'";
-$checked{'ENABLE_SSH_PROTOCOL1'}{'off'} = '';
-$checked{'ENABLE_SSH_PROTOCOL1'}{'on'} = '';
-$checked{'ENABLE_SSH_PROTOCOL1'}{$remotesettings{'ENABLE_SSH_PROTOCOL1'}} = "checked='checked'";
-$checked{'ENABLE_SSH_PORTFW'}{'off'} = '';
-$checked{'ENABLE_SSH_PORTFW'}{'on'} = '';
-$checked{'ENABLE_SSH_PORTFW'}{$remotesettings{'ENABLE_SSH_PORTFW'}} = "checked='checked'";
-$checked{'ENABLE_SSH_PASSWORDS'}{'off'} = '';
-$checked{'ENABLE_SSH_PASSWORDS'}{'on'} = '';
-$checked{'ENABLE_SSH_PASSWORDS'}{$remotesettings{'ENABLE_SSH_PASSWORDS'}} = "checked='checked'";
-$checked{'ENABLE_SSH_KEYS'}{'off'} = '';
-$checked{'ENABLE_SSH_KEYS'}{'on'} = '';
-$checked{'ENABLE_SSH_KEYS'}{$remotesettings{'ENABLE_SSH_KEYS'}} = "checked='checked'";
-
-
-&Header::openpage($Lang::tr{'remote access'}, 1, '');
-
-&Header::openbigbox('100%', 'left', '', $errormessage);
-
-if ($errormessage) {
- &Header::openbox('100%', 'left', $Lang::tr{'error messages'});
- print "$errormessage \n";
- &Header::closebox();
-}
-
-print "
\n";
-
-&Header::openbox('100%', 'left', $Lang::tr{'ssh host keys'});
-
-print "\n";
-
-print <$Lang::tr{'ssh key'} |
- $Lang::tr{'ssh fingerprint'} |
- $Lang::tr{'ssh key size'} |
-END
-;
-
-&viewkey("/etc/ssh/ssh_host_key.pub","RSA1");
-&viewkey("/etc/ssh/ssh_host_rsa_key.pub","RSA2");
-&viewkey("/etc/ssh/ssh_host_dsa_key.pub","DSA");
-
-print "
\n";
-
-&Header::closebox();
-
-&Header::closebigbox();
-
-&Header::closepage();
-
-
-sub viewkey
-{
- my $key = $_[0];
- my $name = $_[1];
-
- if ( -e $key )
- {
- my @temp = split(/ /,`/usr/bin/ssh-keygen -l -f $key`);
- my $keysize = &Header::cleanhtml($temp[0],"y");
- my $fingerprint = &Header::cleanhtml($temp[1],"y");
- print "$key ($name) | $fingerprint | $keysize |
\n";
- }
-}
+#!/usr/bin/perl
+#
+# SmoothWall CGIs
+#
+# This code is distributed under the terms of the GPL
+#
+# (c) The SmoothWall Team
+#
+# $Id: remote.cgi,v 1.6.2.8 2005/02/22 22:21:56 gespinasse Exp $
+#
+
+use strict;
+
+# enable only the following on debugging purpose
+#use warnings;
+#use CGI::Carp 'fatalsToBrowser';
+
+require '/var/ipfire/general-functions.pl';
+require "${General::swroot}/lang.pl";
+require "${General::swroot}/header.pl";
+
+my %remotesettings=();
+my %checked=();
+my $errormessage='';
+
+&Header::showhttpheaders();
+
+$remotesettings{'ENABLE_SSH'} = 'off';
+$remotesettings{'ENABLE_SSH_PROTOCOL1'} = 'off';
+$remotesettings{'ENABLE_SSH_PORTFW'} = 'off';
+$remotesettings{'ACTION'} = '';
+&Header::getcgihash(\%remotesettings);
+
+if ($remotesettings{'ACTION'} eq $Lang::tr{'save'})
+{
+ # not existing here indicates the box is unticked
+ $remotesettings{'ENABLE_SSH_PASSWORDS'} = 'off' unless exists $remotesettings{'ENABLE_SSH_PASSWORDS'};
+ $remotesettings{'ENABLE_SSH_KEYS'} = 'off' unless exists $remotesettings{'ENABLE_SSH_KEYS'};
+
+
+ &General::writehash("${General::swroot}/remote/settings", \%remotesettings);
+ if ($remotesettings{'ENABLE_SSH'} eq 'on')
+ {
+ &General::log($Lang::tr{'ssh is enabled'});
+ if ($remotesettings{'ENABLE_SSH_PASSWORDS'} eq 'off'
+ and $remotesettings{'ENABLE_SSH_KEYS'} eq 'off')
+ {
+ $errormessage = $Lang::tr{'ssh no auth'};
+ }
+ system ('/usr/bin/touch', "${General::swroot}/remote/enablessh");
+ }
+ else
+ {
+ &General::log($Lang::tr{'ssh is disabled'});
+ unlink "${General::swroot}/remote/enablessh";
+ }
+
+ if ($remotesettings{'ENABLE_SSH_PROTOCOL1'} eq 'on')
+ {
+ &General::log($Lang::tr{'ssh1 enabled'});
+ }
+ else
+ {
+ &General::log($Lang::tr{'ssh1 disabled'});
+ }
+
+ system('/usr/local/bin/restartssh') == 0
+ or $errormessage = "$Lang::tr{'bad return code'} " . $?/256;
+}
+
+&General::readhash("${General::swroot}/remote/settings", \%remotesettings);
+
+# not existing here means they're undefined and the default value should be
+# used
+ $remotesettings{'ENABLE_SSH_PASSWORDS'} = 'on' unless exists $remotesettings{'ENABLE_SSH_PASSWORDS'};
+ $remotesettings{'ENABLE_SSH_KEYS'} = 'on' unless exists $remotesettings{'ENABLE_SSH_KEYS'};
+
+$checked{'ENABLE_SSH'}{'off'} = '';
+$checked{'ENABLE_SSH'}{'on'} = '';
+$checked{'ENABLE_SSH'}{$remotesettings{'ENABLE_SSH'}} = "checked='checked'";
+$checked{'ENABLE_SSH_PROTOCOL1'}{'off'} = '';
+$checked{'ENABLE_SSH_PROTOCOL1'}{'on'} = '';
+$checked{'ENABLE_SSH_PROTOCOL1'}{$remotesettings{'ENABLE_SSH_PROTOCOL1'}} = "checked='checked'";
+$checked{'ENABLE_SSH_PORTFW'}{'off'} = '';
+$checked{'ENABLE_SSH_PORTFW'}{'on'} = '';
+$checked{'ENABLE_SSH_PORTFW'}{$remotesettings{'ENABLE_SSH_PORTFW'}} = "checked='checked'";
+$checked{'ENABLE_SSH_PASSWORDS'}{'off'} = '';
+$checked{'ENABLE_SSH_PASSWORDS'}{'on'} = '';
+$checked{'ENABLE_SSH_PASSWORDS'}{$remotesettings{'ENABLE_SSH_PASSWORDS'}} = "checked='checked'";
+$checked{'ENABLE_SSH_KEYS'}{'off'} = '';
+$checked{'ENABLE_SSH_KEYS'}{'on'} = '';
+$checked{'ENABLE_SSH_KEYS'}{$remotesettings{'ENABLE_SSH_KEYS'}} = "checked='checked'";
+
+
+&Header::openpage($Lang::tr{'remote access'}, 1, '');
+
+&Header::openbigbox('100%', 'left', '', $errormessage);
+
+if ($errormessage) {
+ &Header::openbox('100%', 'left', $Lang::tr{'error messages'});
+ print "$errormessage \n";
+ &Header::closebox();
+}
+
+print "\n";
+
+&Header::openbox('100%', 'left', $Lang::tr{'ssh host keys'});
+
+print "\n";
+
+print <$Lang::tr{'ssh key'} |
+ $Lang::tr{'ssh fingerprint'} |
+ $Lang::tr{'ssh key size'} |
+END
+;
+
+&viewkey("/etc/ssh/ssh_host_key.pub","RSA1");
+&viewkey("/etc/ssh/ssh_host_rsa_key.pub","RSA2");
+&viewkey("/etc/ssh/ssh_host_dsa_key.pub","DSA");
+
+print "
\n";
+
+&Header::closebox();
+
+&Header::closebigbox();
+
+&Header::closepage();
+
+
+sub viewkey
+{
+ my $key = $_[0];
+ my $name = $_[1];
+
+ if ( -e $key )
+ {
+ my @temp = split(/ /,`/usr/bin/ssh-keygen -l -f $key`);
+ my $keysize = &Header::cleanhtml($temp[0],"y");
+ my $fingerprint = &Header::cleanhtml($temp[1],"y");
+ print "$key ($name) | $fingerprint | $keysize |
\n";
+ }
+}