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.You are not allowed to attach a file to this page.