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
|
#!/usr/bin/perl
#
# Test auth_ticket.py against Apache::AuthTicket
#
use strict;
use warnings FATAL => 'all';
use Test::More tests => 2;
use File::Basename;
BEGIN {
use lib dirname($0) . "/../cgi";
}
use Apache::AuthTicket;
my $secret = 'cb3e1d39-98eb-4161-8bbd-f4e706999b0e';
my $ts = 1108811260;
my $username = 'foobar';
my $ip = '192.168.1.1';
my ($at, $ticket1, $ticket2, $cookie1, $cookie2);
# Get Apache::AuthTicket versions
$at = Apache::AuthTicket->new(secret => $secret);
$ticket1 = $at->ticket(uid => $username, ip_addr => $ip, ts => $ts, base64 => 0);
$cookie1 = $at->cookie(uid => $username, ip_addr => $ip, ts => $ts);
$cookie1 =~ s/^.*auth_tkt="?//; # Normalise "
$cookie1 =~ s/"?;.*//; # Normalise "
# Get auth_ticket.py versions
$ticket2 = qx(python -c "import auth_ticket; atp = auth_ticket.AuthTicket('$secret', '$username', '$ip', time=$ts); print atp.cookie_value()");
chomp $ticket2;
$cookie2 = qx(python -c "import auth_ticket; atp = auth_ticket.AuthTicket('$secret', '$username', '$ip', time=$ts); print atp.cookie()");
chomp $cookie2;
$cookie2 =~ s/^.*auth_tkt="?//; # Normalise "
$cookie2 =~ s/"?;.*//; # Normalise "
# Test
is($ticket1, $ticket2, 'ticket test 1');
is($cookie1, $cookie2, 'cookie test 1');
# vim:sw=2:et:sm:smartindent
|
