JFIFxxC      C  " }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr#!/usr/bin/perl # index.cgi # Display a form for changing user details require './chfn-lib.pl'; &switch_to_remote_user(); &ui_print_header(undef, $text{'index_title'}, "", undef, 0, 1); if ($config{'change_shell'}) { print "$text{'index_desc'}

\n"; } else { print "$text{'index_desc2'}

\n"; } print &ui_form_start("save.cgi", "post"); print &ui_table_start($text{'index_header'}, undef, 2, [ "width=30%" ]); @uinfo = split(/,/, $remote_user_info[6]); if ($config{'change_real'}) { print &ui_table_row($text{'index_real'}, &ui_textbox("real", $uinfo[0], 40)); } if ($config{'change_office'}) { print &ui_table_row($text{'index_office'}, &ui_textbox("office", $uinfo[1], 40)); } if ($config{'change_ophone'}) { print &ui_table_row($text{'index_ophone'}, &ui_textbox("ophone", $uinfo[2], 40)); } if ($config{'change_hphone'}) { print &ui_table_row($text{'index_hphone'}, &ui_textbox("hphone", $uinfo[3], 40)); } if ($config{'change_shell'}) { open(SHELL, $config{'shells'} || "/etc/shells"); while($s = ) { $s =~ s/\r|\n//g; $s =~ s/#.*$//; next if ($s !~ /\S/); push(@opts, $s); } close(SHELL); print &ui_table_row($text{'index_shell'}, &ui_select("shell", $remote_user_info[8], \@opts, 1, 0, 1)); } print &ui_table_end(); print &ui_form_end([ [ undef, $text{'save'} ] ]); &ui_print_footer("/", $text{'index'});