PAL.C.T MINI SHELL
#!/usr/bin/perl
# edit_sig.cgi
# Display the user's .signature file for editing
require './mailbox-lib.pl';
$sf = &get_signature_file();
$sf ||= ".signature";
&ui_print_header(undef, $text{'sig_title'}, "");
print &text('sig_desc', "<tt>$sf</tt>"),"<p>\n";
print &ui_form_start("save_sig.cgi", "form-data");
print &ui_textarea("sig", &get_signature(), 5, 80);
print &ui_form_end([ [ undef, $text{'save'} ] ]);
&ui_print_footer("", $text{'mail_return'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`