$txt{'325'}: $txt{'326'}
|
|
|
$txt{'327'}:
|
|
~;
$FORM{'signature'} =~ s~\n~\&\&~g;
my( $ignorelist, $notify );
$ignorelist = "$FORM{'ignore'}";
$notify = "$FORM{'notify'}";
$ignorelist =~ s~\A\n\s*~~;
$ignorelist =~ s~\s*\n\Z~~;
$ignorelist =~ s~\n\s*\n~\n~g;
$ignorelist =~ s~[\n\r]~\|~g;
$ignorelist =~ s~\|\|~\|~g;
$notify =~ s~[\n\r]~~g;
fopen(FILE, "+>$memberdir/$username.imconfig");
print FILE "$ignorelist\n$notify\n";
fclose(FILE);
|