home *** CD-ROM | disk | FTP | other *** search
/ pc.louisiana.edu/pub/unix/ / Louisiana_UNIX.tar / Louisiana_UNIX / ci40_shadow_pw.zip / test_is_valid_unix_pw.pl < prev   
Perl Script  |  2000-03-27  |  268b  |  12 lines
  1. #!/export/home/ciadmin/courseinfo/perl/bin/perl
  2.  
  3.  
  4. my $user_sent = "xxx1260";
  5. my $passwd_sent = "step.dc";
  6.  
  7. open UNIXPW, "|/export/home/ciadmin/is_valid_unix_pw";
  8. print UNIXPW "$user_sent $passwd_sent\n";
  9. close UNIXPW;
  10. print STDOUT "Error $? encountered\n" if ($?);
  11. 1;
  12.