Extended Personal Text
1.0
This mod allows Members to edit the personal text more comfortable.
This mod works on Gold SP1
Spam
mailto:spam@spam-ce.com
Sources/Profile.pl
$signature =~ s/\>/>/g;
$usertext = $memsettings[12];
$usertext =~ s/\&\&/\n/g;
$usertext =~ s/\<//g;
$txt{'228'}:
$txt{'228'}: $txt{'664'}
$FORM{'signature'} =~ s~\n~\&\&~g;
while( ($key,$value) = each(%FORM) ) {
$value =~ s~\A\s+~~;
$value =~ s~\s+\Z~~;
$value =~ s~[\n\r]~~g;
$member{$key} = $value;
}
$FORM{'usertext'} =~ s~\n~\
$INFO{'username'} = $member{'username'};
if(length($member{'usertext'}) > 51) { &fatal_error("$txt{'757'}"); }
if( $member{'userpicpersonalcheck'} && ( $member{'userpicpersonal'} =~ m/\.gif\Z/i || $member{'userpicpersonal'} =~ m/\.jpg\Z/i || $member{'userpicpersonal'} =~ m/\.jpeg\Z/i || $member{'userpicpersonal'} =~ m/\.png\Z/i ) ) {
$member{'userpic'} = $member{'userpicpersonal'};
}
$INFO{'username'} = $member{'username'};
if( $member{'userpicpersonalcheck'} && ( $member{'userpicpersonal'} =~ m/\.gif\Z/i || $member{'userpicpersonal'} =~ m/\.jpg\Z/i || $member{'userpicpersonal'} =~ m/\.jpeg\Z/i || $member{'userpicpersonal'} =~ m/\.png\Z/i ) ) {
$member{'userpic'} = $member{'userpicpersonal'};
}
if (length($member{'signature'}) > $MaxSigLen) { $member{'signature'} = substr($member{'signature'},0,$MaxSigLen); }
if (length($member{'usertext'}) > $MaxSigLen) { $member{'usertext'} = substr($member{'usertext'},0,$MaxSigLen); }
$member{'signature'} =~ s/
$member{'usertext'} =~ s/
&ToHTML($member{'gender'});
&ToHTML($member{'usertext'});
&ToHTML($member{'websiteurl'});
&ToHTML($member{'gender'});
&ToHTML($member{'websiteurl'});
&ToHTML($member{'name'});
&FromHTML($member{'usertext'});
$member{'usertext'} =~ s~(\S{15})(?=\S)~$1 ~g;
&ToHTML($member{'usertext'});
if ( length $member{'signature'} > 1000 ) { $member{'signature'} = substr( $member{'signature'}, 0, 1000 ); }
&ToHTML($member{'name'});
if ( length $member{'signature'} > 1000 ) { $member{'signature'} = substr( $member{'signature'}, 0, 1000 ); }
if ( length $member{'usertext'} > 1000 ) { $member{'usertext'} = substr( $member{'usertext'}, 0, 1000 ); }
$memsettings[12]
$memsettings[12]