Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Perl Script To Detect Data Mover Failure In EMC NAS Arrays.

by perl514 (Pilgrim)
on Jan 31, 2013 at 13:37 UTC ( #1016320=CUFP: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    ###############################################################
    #
    ...
    NASBOX3        127.0.0.3
    NASBOX4        127.0.0.4
    
  2. or download this
    [params]
    smtp_server_name = mail.server.com
    ...
    mail_text = "location/of/dmcheck.txt"
        
    
  3. or download this
    #!/usr/bin/perl
    use warnings;
    ...
        $nasmsg->send;
        
        unlink $mailtext || die "Cannot delete $mailtext.$!.$^E";
    
  4. or download this
    ######################################################################
    +#####################################################################
    +###############
    Script nasmon.pl on mgmthost auto run at Thu Jan 31 05:53:19 2013 [mgm
    +thost Time]
    ...
    DM is OK: 5 - slot_3 contacted
    DM is OK: 5 - slot_4 contacted
    DM is OK: 5 - slot_5 contacted
    
  5. or download this
    use Learning::Perl;
    use Beginning::Perl::Ovid;
    print "Awesome Books";
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://1016320]
Approved by Corion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (17)
As of 2014-10-30 16:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (208 votes), past polls