#!/opt/SUNWstade/bin/perl -I/opt/SUNWstade/lib
use System;

#
# SAVE EMAILS IN /var/adm/messages.email
#

System->set_home("/opt/SUNWstade");


($renv) = PDM::ConfigFile->read();

System->set_renv($renv);

@LINES = <STDIN>;

open(W, ">>/var/adm/messages.email");

print W "<MESSAGE>\n";

print W " " .join(" ", @LINES);

print W "</MESSAGE>\n";

close(W);

