Backup Central

I'm trying use Activestate Perl 5.8.x with Legato Networker 7.1.1 on
Windows for notifications. My perl test scripts are not taking in standard
input <STDIN>. See example below. However the scripts do work in command
prompt. I already read previous postings by people who had similar problems
but no solution was given. Anyone out there have any ideas? Thanks.

-Adam

ps.-i also tried John Stoffel's nss.pl script and that didn't work either.
I contacted him and he has no experience with Windows legato notifications
with perl.

Example1:
#!e:/perl/bin/perl.exe

open (LEGATO, "-");
< at > INPUT = <LEGATO>;
close(LEGATO);

open (OUT, ">>e:/temp/legato.txt");

foreach $rawline ( < at > INPUT) {
print OUT $rawline;
}
close (OUT);

Note: To sign off this list, send a "signoff networker" command via email

I tested the following

write a script: see below

on the command prompt do

dir | perl aa.pl

the output of the dir command is written in xx.txt

script:

# <-- starts here

while(<>) {
push( < at > XX,$_);
}

my $file = "c:/xx.txt";
open(OUT,">$file") || die "FATAL: cannot open '$file',$!";
foreach $line ( < at > XX) {
print OUT $line;
}
close OUT || die "FATAL: cannot close '$file',$!";

# <--end here

Question: how did you define your notification

Maarten

On Wednesday 22 September 2004 16:05, Adam Yen wrote:
I'm trying use Activestate Perl 5.8.x with Legato Networker 7.1.1 on
Windows for notifications. My perl test scripts are not taking in standard
input <STDIN>. See example below. However the scripts do work in command
prompt. I already read previous postings by people who had similar problems
but no solution was given. Anyone out there have any ideas? Thanks.

-Adam

ps.-i also tried John Stoffel's nss.pl script and that didn't work either.
I contacted him and he has no experience with Windows legato notifications
with perl.

Example1:
#!e:/perl/bin/perl.exe

open (LEGATO, "-");
< at > INPUT = <LEGATO>;
close(LEGATO);

open (OUT, ">>e:/temp/legato.txt");

foreach $rawline ( < at > INPUT) {
print OUT $rawline;
}
close (OUT);

--
Note: To sign off this list, send a "signoff networker" command via email

Maarten Boot,
Compuware Europe B.V.
Hoogoorddreef 5
1101 BA Amsterdam

Note: To sign off this list, send a "signoff networker" command via email

In Legato Networker server gui->Notifications->Savegroup->Action field
I have=20
e:\perl\bin\perl.exe -w test.pl. I also tried test.pl alone and no go.
The email program Blat works fine though.

-Adam


-----Original Message-----
From: Legato NetWorker discussion [mailto:NETWORKER < at > LISTMAIL.TEMPLE.EDU]
On Behalf Of Adam Yen
Sent: Wednesday, September 22, 2004 10:05 AM
To: NETWORKER < at > LISTMAIL.TEMPLE.EDU
Subject: [Networker] Windows Networker Notification and Perl

I'm trying use Activestate Perl 5.8.x with Legato Networker 7.1.1 on
Windows for notifications. My perl test scripts are not taking in
standard input <STDIN>. See example below. However the scripts do work
in command prompt. I already read previous postings by people who had
similar problems but no solution was given. Anyone out there have any
ideas? Thanks.

-Adam

ps.-i also tried John Stoffel's nss.pl script and that didn't work
either.
I contacted him and he has no experience with Windows legato
notifications with perl.

Example1:
#!e:/perl/bin/perl.exe

open (LEGATO, "-");
< at > INPUT =3D <LEGATO>;
close(LEGATO);

open (OUT, ">>e:/temp/legato.txt");

foreach $rawline ( < at > INPUT) {
print OUT $rawline;
}
close (OUT);

Note: To sign off this list, send a "signoff networker" command via
view and post messages to the list.
=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D=
*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D

Note: To sign off this list, send a "signoff networker" command via email
=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D

Maybe because test.pl does not exist ? that is where networker expects it to
be.
You should specify the full path of your script.

Bye
Ernie
----- Original Message -----
From: "Yen, Adam" <yen < at > STARGEN.COM>
To: <NETWORKER < at > LISTMAIL.TEMPLE.EDU>
Sent: Wednesday, September 22, 2004 4:35 PM
Subject: Re: [Networker] Windows Networker Notification and Perl


In Legato Networker server gui->Notifications->Savegroup->Action field
I have
e:\perl\bin\perl.exe -w test.pl. I also tried test.pl alone and no go.
The email program Blat works fine though.

-Adam


-----Original Message-----
From: Legato NetWorker discussion [mailto:NETWORKER < at > LISTMAIL.TEMPLE.EDU]
On Behalf Of Adam Yen
Sent: Wednesday, September 22, 2004 10:05 AM
To: NETWORKER < at > LISTMAIL.TEMPLE.EDU
Subject: [Networker] Windows Networker Notification and Perl

I'm trying use Activestate Perl 5.8.x with Legato Networker 7.1.1 on
Windows for notifications. My perl test scripts are not taking in
standard input <STDIN>. See example below. However the scripts do work
in command prompt. I already read previous postings by people who had
similar problems but no solution was given. Anyone out there have any
ideas? Thanks.

-Adam

ps.-i also tried John Stoffel's nss.pl script and that didn't work
either.
I contacted him and he has no experience with Windows legato
notifications with perl.

Example1:
#!e:/perl/bin/perl.exe

open (LEGATO, "-");
< at > INPUT = <LEGATO>;
close(LEGATO);

open (OUT, ">>e:/temp/legato.txt");

foreach $rawline ( < at > INPUT) {
print OUT $rawline;
}
close (OUT);

Note: To sign off this list, send a "signoff networker" command via
view and post messages to the list.

Note: To sign off this list, send a "signoff networker" command via email

Note: To sign off this list, send a "signoff networker" command via email

Thanks to everyone who gave their advice on this issue. I finally
figured out the problem.=20
When calling a perl script from Legato Networker server
gui->Notifications->Savegroup->Action=20
Field, you need to specify the full path of the perl interpreter and
script.

Example:

c:\perl\bin\perl.exe "c:\program files\legato\nsr\bin\test.pl"
-<arguments>

So <STDIN>,<>, works fine in the perl script.

-Adam


-----Original Message-----
From: Legato NetWorker discussion [mailto:NETWORKER < at > LISTMAIL.TEMPLE.EDU]
On Behalf Of Adam Yen
Sent: Wednesday, September 22, 2004 10:05 AM
To: NETWORKER < at > LISTMAIL.TEMPLE.EDU
Subject: [Networker] Windows Networker Notification and Perl

I'm trying use Activestate Perl 5.8.x with Legato Networker 7.1.1 on
Windows for notifications. My perl test scripts are not taking in
standard input <STDIN>. See example below. However the scripts do work
in command prompt. I already read previous postings by people who had
similar problems but no solution was given. Anyone out there have any
ideas? Thanks.

-Adam

ps.-i also tried John Stoffel's nss.pl script and that didn't work
either.
I contacted him and he has no experience with Windows legato
notifications with perl.

Example1:
#!e:/perl/bin/perl.exe

open (LEGATO, "-");
< at > INPUT =3D <LEGATO>;
close(LEGATO);

open (OUT, ">>e:/temp/legato.txt");

foreach $rawline ( < at > INPUT) {
print OUT $rawline;
}
close (OUT);

Note: To sign off this list, send a "signoff networker" command via
view and post messages to the list.
=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D=
*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D

Note: To sign off this list, send a "signoff networker" command via email
=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D*=3D