#!/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 ('/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 "$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 "
$fingerprint