1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
#!/usr/bin/perl -w
# Thanks to Steve Mock @SDSC for expect stuff
#
use CGI qw/:standard/;
use Expect;
# Edit this line to reflect location of myproxy-get-delegation
my $program = "/usr/local/myproxy/bin/myproxy-get-delegation";
my $username = param(USERNAME);
my $password = param(PASSWORD);
my $lifetime = param(LIFETIME);
# Check length of password
my $len = length ($password);
if (($len < 5) || ($len > 10)) {
passwordtoolong();
}
# zap everything past first nonword character
$username =~ s/\W.*//;
if ($lifetime =~ /\D/) {
invalidlifetime();
}
my $outfile = "$username.cred";
my $args = "-s localhost -l $username -t $lifetime -o $outfile";
# use expect to run the command
my $cmd_filehandle = Expect->spawn("$program $args");
# this looks for the string "Pass Phrase:" for 20 seconds
# and failing that, does the "error" subroutine.
unless ($cmd_filehandle->expect(20, "Pass Phrase:"))
{
printerror();
}
print $cmd_filehandle "$password\n";
# gather the output into the array
@output = <$cmd_filehandle>;
# close the filehandle to the command
$cmd_filehandle->soft_close();
# now you have an array called @outputmsg which has the rest of the output...
# get rid of output[0], since it contains the password
$outputmsg = join(" ", $output[1]);
if ($cmd_filehandle->exitstatus() != 0) {
$outputmsg =~ s/(.*):\s//;
&printerror($outputmsg);
} else {
&printsuccess;
}
sub passwordtoolong
{
print header;
print "<BODY BGCOLOR=#efefef>";
print "<TITLE>Incorrect Password</TITLE>";
print "<H1><FONT FACE=Arial COLOR=Red><STRONG>";
print "The password must be between 5 and 10 characters.";
print "</STRONG></FONT></H1>";
exit;
}
sub invalidlifetime
{
print header;
print "<BODY BGCOLOR=#efefef>";
print "<TITLE>Invalid Lifetime</TITLE>";
print "<H1><FONT FACE=Arial COLOR=Red><STRONG>";
print "The lifetime parameter must contain only digits.";
print "</STRONG></FONT></H1>";
exit;
}
sub printerror
{
my $errmsg = $_[0];
print header;
print "<BODY BGCOLOR=#efefef>";
print "<TITLE>Error!</TITLE>";
print "<H1><FONT FACE=Arial COLOR=Red><STRONG>";
print "Error executing myproxy-get-delegation!\n";
print "</STRONG></FONT></H1>";
print "$errmsg";
exit;
}
sub printsuccess
{
print header;
print "<BODY BGCOLOR=#efefef>";
print "<TITLE>Error!</TITLE>";
print "<H1><FONT FACE=Arial COLOR=Blue><STRONG>";
print "Received a delegated proxy for $username good for $lifetime hours.";
print "</STRONG></FONT></H1>";
exit;
}
|
