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

maggotbrain's scratchpad

by maggotbrain (Monk)
on Jan 29, 2007 at 18:52 UTC ( #597145=scratchpad: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    print "What IP address do you want to allow ssh logins from? ";
        $_ = <>;
        chomp($_);
    ...
        length($allowed_ipaddr) or die "Sorry, '$_' is not a valid IP addr
    +ess.\n";
        $allowed_ipaddr = inet_ntoa($allowed_ipaddr); # convert to dotted 
    +quad, if necessary.
        print " You have authorized the host with IP address $allowed_ipad
    +dr to log in via ssh.\n";
    

Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (6)
As of 2014-08-30 04:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (291 votes), past polls