Attachment 'parent_auth.pl'

Download

   1 #!/usr/bin/perl
   2 
   3 #$password="CHANGETHIS";
   4 
   5 
   6 $|=1;
   7 
   8 unless (defined($password)) {
   9 	die "Please define the password at the beginning of $0";
  10 }
  11 
  12 while (<>) {
  13 	chomp;
  14 	unless (m/^(\S+)\s+(\S+)$/) {
  15 		print "ERR\n";
  16 		next;
  17 	}
  18 	$user=$1;
  19 	$pass=$2;
  20 	if ($pass eq $password) {
  21 		print "OK\n";
  22 	} else {
  23 		print "ERR\n";
  24 	}
  25 }

Attached Files

To refer to attachments on a page, use attachment:filename, as shown below in the list of files. Do NOT use the URL of the [get] link, since this is subject to change and can break easily.
  • [get | view] (2006-02-08 13:49:05, 0.3 KB) [[attachment:parent_auth.pl]]
 All files | Selected Files: delete move to page copy to page

You are not allowed to attach a file to this page.