Hello.
What do you think about this replace for "append" ?
sub append
{
my ($file, $line) = @_;
if ( substr($file, 0, 1) eq "|" ) {
open(FILE, "$file") || return;
}
else {
open(FILE, ">>$file") || return;
}
print FILE $line;
close(FILE) || return;
return 1;
}
It's allow write some logs to STDIN of external programs...
For example:
PasswordLogFileName |/etc/radiator/logpwd
--
whith respect, Sergey Afonin
[EMAIL PROTECTED]
===
Archive at http://www.open.com.au/archives/radiator/
Announcements on [EMAIL PROTECTED]
To unsubscribe, email '[EMAIL PROTECTED]' with
'unsubscribe radiator' in the body of the message.
