(RADIATOR) sub append (Util.pm, v 2.19.1)

Hugh Irvine hugh at open.com.au
Fri Apr 19 20:01:41 CDT 2002


Hello Sergey -

Thanks for the suggestion.

I have copied Mike on this mail and he will look at it next week.

regards

Hugh


On Fri, 19 Apr 2002 22:27, Sergey Y. Afonin wrote:
> 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

-- 
Radiator: the most portable, flexible and configurable RADIUS server
anywhere. Available on *NIX, *BSD, Windows 95/98/2000, NT, MacOS X.
-
Nets: internetwork inventory and management - graphical, extensible,
flexible with hardware, software, platform and database independence.
===
Archive at http://www.open.com.au/archives/radiator/
Announcements on radiator-announce at open.com.au
To unsubscribe, email 'majordomo at open.com.au' with
'unsubscribe radiator' in the body of the message.


More information about the radiator mailing list