procmail
[Top] [All Lists]

UPDATED: passing variables to a perl script

2000-11-27 10:52:10
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Ok,     
        Here is the perl script and procmailrc file I am using to pass
variables to. I am not really a perl programmer so I may have made a
fundamental mistake in my perl script.

begin .procmailrc

SHELL=/bin/sh

:0fbw
| sed 's/usazdolmon0//'

:0 B:
* ()\/ usaz[^   ]+
{ SERVER=$MATCH }

:0
* ^From:.*\/[^  ].*
{ FROM=$MATCH }

:0
| /home/netsaint/blah

end .procmailrc

begin perl script
#!/usr/bin/perl -w

%techs = qw(
        3232006599(_at_)pagenetmessage(_dot_)net        BlakeBarnette
        3232013648(_at_)pagenetmessage(_dot_)net        JasonAmbrose
        3232013566(_at_)pagenetmessage(_dot_)net        JoelDudley
        3232003415(_at_)pagenetmessage(_dot_)net        HunterBennett
        3232013866(_at_)pagenetmessage(_dot_)net        ShaneReutzel
        3232013565(_at_)pagenetmessage(_dot_)net        TonyHamrick
);

$TIME = time;
$TECH = $techs{$FROM};
open(COMMAND,">/usr/local/netsaint/var/rw/netsaint.cmd") || die
"Can't create file";
        print COMMAND "[$TIME]
ADD_HOST_COMMENT;$SERVER;0;$TECH;ACKNOWLEDGEMENT: $TECH has
acknowledged this problem";
close(COMMAND);
        open(COMMAND,">>/usr/local/netsaint/var/rw/netsaint.cmd") || die
"Can't create file";
        print COMMAND "[$TIME] ACKNOWLEDGE_HOST_PROBLEM;$SERVER;$TECH has
acknowledged this problem";
close(COMMAND);

end perl script

thanks for looking at my script!!

Joel Dudley
Unix System Administrator 
DevelopOnline.com
- ----------------------------------------
"For the scientist who has lived by his faith in the power of reason,
the story ends like a bad dream. He has scaled the mountains of
ignorance; he is about to conquer the highest peak; as he pulls
himself over the final rock, he is greeted by a band of theologians
who have been sitting there for centuries."
- - Dr. Robert Jastrow, Founder Goddart Space Flight Institute 





-----BEGIN PGP SIGNATURE-----
Version: PGP 6.5.3

iQA/AwUBOiJ/z74SdmErPHWZEQJlDQCfSQwmPGqQ+8VOpaMHW82i8JP8Vd4AnjvW
jCg+KAAzZYlH7hrUBGyDvLnC
=DcNy
-----END PGP SIGNATURE-----
_______________________________________________
procmail mailing list
procmail(_at_)lists(_dot_)RWTH-Aachen(_dot_)DE
http://MailMan.RWTH-Aachen.DE/mailman/listinfo/procmail

<Prev in Thread] Current Thread [Next in Thread>