1#!/usr/local/bin/perl 2# create_form.cgi 3# Display a form for creating a new PAM service 4 5require './pam-lib.pl'; 6&ui_print_header(undef, $text{'create_title'}, ""); 7 8print "<form action=create_pam.cgi>\n"; 9print "<table border style=\"width: 100%\">\n"; 10print "<tr $tb> <td><b>$text{'create_header'}</b></td> </tr>\n"; 11print "<tr $cb> <td><table width=100%>\n"; 12 13print "<tr> <td><b>$text{'create_name'}</b></td>\n"; 14print "<td><input name=name size=20></td> </tr>\n"; 15 16print "<tr> <td><b>$text{'create_desc'}</b></td>\n"; 17print "<td><input name=desc size=30></td> </tr>\n"; 18 19print "<tr> <td valign=top><b>$text{'create_mods'}</b></td> <td>\n"; 20print "<input type=radio name=mods value=0> $text{'create_0'}<br>\n"; 21print "<input type=radio name=mods value=1 checked> $text{'create_1'}<br>\n"; 22print "<input type=radio name=mods value=2> $text{'create_2'}\n"; 23print "</td> </tr>\n"; 24 25print "</table></td></tr></table>\n"; 26print "<input type=submit value='$text{'create'}'></form>\n"; 27 28&ui_print_footer("", $text{'index_return'}); 29