In the following snippet - I'm trying to just read my opendeploy base log file and then print any errors to a string - however, this simple script can't open the log file - does someone see something I don't? Is this because IWOV Perl is a little different then standard PERL? What I indeed to do once I get this working is look at OD and DD logs then whereever it says error - I want to e-mail those strings to myself!
#!d:\iw-home\INTERW~1\TeamSite/iw-perl/bin/iwperl.exe
$LOGFILE = "D:\iw-home\Interwoven\OpenDeploy\OpenDeployNG\log\myserver_odbase.log";
open (LOGFILE) or die("Could not open log file.");
foreach $line (<LOGFILE>) {
chomp($line); # remove the newline from $line.
# do line-by-line processing.
print if /\berror\b/i;
}
Edited by koneill on 06/25/03 07:44 AM (server time).
