Viewing file:  edit_auth.cgi (2.63 KB) -rwxr-xr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# edit_auth.cgi
# Edit or create an authorized key
require './ssh-lib.pl';
&ReadParse();
if ($in{'new'}) {
&ui_print_header(undef, $text{'auth_create'}, "");
$msg = $text{'auth_desc1'};
$auth = { 'keytype' => 'ssh-dss',
'type' => $in{'type'} || 1 };
}
else {
&ui_print_header(undef, $text{'auth_edit'}, "");
@auths = &list_auths();
$auth = $auths[$in{'idx'}];
}
# Show main key details
print "$msg<p>\n" if ($msg);
print &ui_form_start("save_auth.cgi", "post");
print &ui_hidden("idx", $in{'idx'}),"\n";
print &ui_hidden("new", $in{'new'}),"\n";
print &ui_hidden("type", $auth->{'type'}),"\n";
print &ui_table_start($text{'auth_header'.$auth->{'type'}}, "width=100%", 4);
print &ui_table_row($text{'auth_name'},
&ui_textbox("name", $auth->{'name'}, 40), 3);
if ($auth->{'type'} == 1) {
# Only SSH 1 has bits and exponent
print &ui_table_row($text{'auth_bits'},
&ui_textbox("bits", $auth->{'bits'}, 5), 3);
print &ui_table_row($text{'auth_exp'},
&ui_textbox("exp", $auth->{'exp'}, 5), 3);
}
else {
# Only SSH 2 has key type
print &ui_table_row($text{'auth_keytype'},
&ui_select("keytype", $auth->{'keytype'},
[ [ "ssh-dss", $text{'auth_dss'} ],
[ "ssh-rsa", $text{'auth_rsa'} ] ],
1, 0, 1));
}
print &ui_table_row($text{'auth_key'},
&ui_textarea("key", $auth->{'key'}, 10, 50, "on"), 3);
# Show key options
&parse_options($auth->{'opts'}, \%opts);
print &ui_table_hr();
print &ui_table_row($text{'auth_from'},
&ui_radio("from_def", $opts{'from'} ? 0 : 1,
[ [ 1, $text{'auth_from_all'} ],
[ 0, $text{'auth_from_sel'} ] ])."<br>".
&ui_textarea("from", join(" ", split(/,/, $opts{'from'}->[0])),
3, 50, "on"), 3);
print &ui_table_row($text{'auth_command'},
&ui_textbox("command", $opts{'command'}->[0], 50), 3);
print &ui_table_row($text{'auth_noport'},
&ui_radio("noport", $opts{'no-port-forwarding'} ? 1 : 0,
[ [ 0, $text{'yes'} ], [ 1, $text{'no'} ] ]));
print &ui_table_row($text{'auth_nox11'},
&ui_radio("nox11", $opts{'no-x11-forwarding'} ? 1 : 0,
[ [ 0, $text{'yes'} ], [ 1, $text{'no'} ] ]));
print &ui_table_row($text{'auth_noagent'},
&ui_radio("noagent", $opts{'no-agent-forwarding'} ? 1 : 0,
[ [ 0, $text{'yes'} ], [ 1, $text{'no'} ] ]));
print &ui_table_row($text{'auth_nopty'},
&ui_radio("nopty", $opts{'no-pty'} ? 1 : 0,
[ [ 0, $text{'yes'} ], [ 1, $text{'no'} ] ]));
print &ui_table_end();
if ($in{'new'}) {
print &ui_form_end([ [ "create", $text{'create'} ] ]);
}
else {
print &ui_form_end([ [ "save", $text{'save'} ],
[ "delete", $text{'delete'} ] ]);
}
&ui_print_footer("list_auths.cgi", $text{'auths_return'},
"", $text{'index_return'});
|