The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

UNOBE / WWW-Facebook-API-v0.4.1 / t / md5.t 

            

              
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

              
#######################################################################
# $Date: 2007-05-03T11:42:54.177571Z $
# $Revision: 1413 $
# $Author: unobe $
# ex: set ts=8 sw=4 et
#########################################################################
use Test::More tests => 3;
use strict;
use warnings;
BEGIN { use_ok('WWW::Facebook::API'); }
chdir 't' if -d 't';
my %params = (
    v           => '1.0',
    session_key => 'f849e13d7c31bd1815eab65a-3309787',
    call_id     => 1180528987.70698,
    api_key     => 'an amazing summer is awaiting',
    format      => 'XML',
    method      => 'facebook.profile.setFBML',
);
my $sig    = 'f73d589a6f305f914b0086654f0b7f43';
my $secret = 'garden';
$params{'markup'} = join '', <DATA>;
my $api = WWW::Facebook::API->new;
is $api->generate_sig(
    params => \%params,
    secret => $secret
    ),
    $sig, 'signature generation okay';
$api->secret($secret);
is $api->verify_sig( params => \%params, sig => $sig ), 1, 'verify_sig ok';
__DATA__
<h3>Friends With Shared Interests</h3>
<table class="users">
<tr>
        <td><a href="/user/0000"><img src="http://XXXXXXXXXXX.facebook.com/ip002/v52/1863/115/t4802098_400.jpg" border=0></a></td>
        <td>
                <b><a href="/user/0000">XXX XXXXXX Darga</a></b><br>
                19 shared interests
                <a href="/user/0000">XXX XXXXXX interests</a>
        </td>
</tr>
<tr>
        <td><a href="/user/0000"><img src="http://XXXXXXXXXXX.facebook.com/ip008/profile2/729/105/t4813185_26882.jpg" border=0></a></td>
        <td>
                <b><a href="/user/0000">XXX XXXXXX Duong</a></b><br>
                6 shared interests
                <a href="/user/0000">XXX XXXXXX interests</a>
        </td>
</tr>
<tr>
        <td><a href="/user/0000"><img src="http://XXXXXXXXXXX.facebook.com/ip008/profile2/979/23/t30305005_26835.jpg" border=0></a></td>
        <td>
                <b><a href="/user/0000">XXX XXXXXX Szakal</a></b><br>
                5 shared interests
                <a href="/user/0000">XXX XXXXXX interests</a>
        </td>
</tr>
<tr>
        <td><a href="/user/0000"><img src="http://XXXXXXXXXXX.facebook.com/ip002/profile5/1969/96/t502789150_4966.jpg" border=0></a></td>
        <td>
                <b><a href="/user/0000">XXX XXXXXX Murphy</a></b><br>
                4 shared interests
                <a href="/user/0000">XXX XXXXXX interests</a>
        </td>
</tr>
<tr>
        <td><a href="/user/0000"><img src="" border=0></a></td>
        <td>
                <b><a href="/user/0000">XXX XXXXXX Park</a></b><br>
                4 shared interests
                <a href="/user/0000">XXX XXXXXX interests</a>
        </td>
</tr>
</table>