log files

Ottawa_IWOV

Does anyone know the right way to log this command on a WINDOWS 2000/NT platform?

sub setEA
{
my ($file,$eaname,$eavalue) = @_;

unless ($eaname =~ m|TeamSite/|)
{
$eaname = "TeamSite/Metadata/".$eaname;
}#end unless

my @arguments = ();
push @arguments, '-s';
push @arguments, "$eaname=$eavalue";
push @arguments, '-u';
push @arguments, "$file";

my $eaargs = '-s "'.$eaname.'"="'.$eavalue.'" -u "'.$file.'"';

if (-e $file) # Set if the file exists
{
if ($eaname) # Set if eaname passed in
{
#print STDERR "iwextattr $eaargs\n";
`$iwhome/bin/iwextattr $eaargs`;
}
}
}#end sub

Lucas Cochrane
lcochrane@dc.com

Adam Stoller

...log this command on a WINDOWS 2000/NT platform

What do you mean? In the event log - or just for debugging purposes?

For the latter - just create a simple subroutine for debug logging and call it with whatever you want to log.

sub debug{
    my $msg = join(" ", @_);
    if (open(DBG, ">>$LOGFILE")){
       print DBG "$msg\n";
       close(DBG);
    }
}

All you need to do is define what you want $LOGFILE to be, and insert debug("your message here"); statements wherever you want to verify information.

--fish
(Interwoven Senior Technical Consultant)