| Server IP : 172.67.134.114 / Your IP : 162.159.115.42 Web Server : Apache/2.4.37 System : Linux almalinux.duckdns.org 4.18.0-553.111.1.el8_10.x86_64 #1 SMP Sun Mar 8 20:06:07 EDT 2026 x86_64 User : ricodeal ( 1046) PHP Version : 7.4.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/libexec/usermin/gnupg/ |
Upload File : |
#!/usr/bin/perl
# edit_secret.cgi
# Display a form for adding an additional secret key
require './gnupg-lib.pl';
&ui_print_header(undef, $text{'secret_title'}, "");
print "$text{'secret_desc'}<br>\n";
print &ui_form_start("secret.cgi", "post");
print &ui_hidden("newkey", 1);
print &ui_table_start(undef, undef, 2);
$remote_user_info[6] =~ s/,*$//;
print &ui_table_row($text{'index_name'},
&ui_textbox("name", $remote_user_info[6], 40));
print &ui_table_row($text{'index_email'},
&ui_textbox("email", &default_email_address(), 40));
print &ui_table_row($text{'index_comment'},
&ui_textbox("comment", undef, 40));
print &ui_table_row($text{'index_size'},
&ui_select("size", undef,
[ [ '', $text{'default'} ],
768, 1024, 2048, 4096, 8192 ]));
print &ui_table_row($text{'index_pass'},
&ui_password("pass", undef, 20));
print &ui_table_end();
print &ui_form_end([ [ undef, $text{'secret_setup'} ] ]);
&ui_print_footer("", $text{'index_return'});