I found this in the newly added code of sub BlockReportBody in 1.13:
this->{mailfrom}") if $ReportLog;
Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê mlog( 0,"warning: at least one line 'us...@domain=>to' must
be in body for an admin request") if $ReportLog;
Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê my ($numdays) = $sub =~ /^\s*(\d+)\s*/;
Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê $numdays = 5 unless $numdays;
Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê sendBlockReport(
Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê$fh,
Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê$this->{mailfrom},
Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê$this->{mailfrom},
Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê"ERROR : " . &BlockReportText(
Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê'sub', $this->{mailfrom},
Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê$numdays, 'n/a',
Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê$this->{mailfrom}
Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê),
"\r\n\r\nWarning: possibly unsupported format in admin block request!\r\nAt
least one line 'us...@domain=>to' is required in an admin request.\r\nYou
request was ignored!"
Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê);
Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê if ( !$this->{blqueued} ) {
Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê forwardBlockRequest($fh,$host);
Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê stateReset($fh);
Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê $this->{getline} = \&getline;
Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê sendque( $this->{friend}, "RSET\r\n" );
Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê }
Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê return;
}
tk
------------------------------------------------------------------------------
_______________________________________________
Assp-test mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/assp-test
