|
$txt{'468'}
| ~;
if($INFO{'caller'} == 1) { fopen(FILE, "$memberdir/$username.msg"); }
else { fopen(FILE, "$memberdir/$username.outbox"); }
@messages = ;
fclose(FILE);
foreach $line (@messages) {
($mfrom, $msubject, $mdate, $mmessage, $mip) = split(/\|/,$line);
$mdate = &timeformat($mdate);
foreach (@censored) {
($tmpa,$tmpb) = @{$_};
$mmessage =~ s~\Q$tmpa\E~$tmpb~gi;
}
if($enable_ubbc) { &DoUBBC; }
print qq~
|
$txt{'279'}: $mfrom |
$txt{'280'}: $mdate |
|
$mmessage
| ~;
print " |