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
|
#!/usr/bin/perl
#
# Test for the Libravatar::URL module
#
# You must have symlinks to the libraries in the same directory as this CGI.
#
# e.g.
# ln -s ~/devel/remote/gravatar_url/lib/Gravatar /var/www/
# ln -s ~/devel/remote/gravatar_url/lib/Libravatar /var/www/
print "Content-type: text/html\n\n";
print "<h1>Libravatar::URL</h1>";
use Libravatar::URL;
my $avatar_url = libravatar_url(email => 'fmarier@gmail.com');
my $missing_avatar = libravatar_url(email => 'fmarier+1@gmail.com');
print 'Regular HTTP images:<br>';
print '<img src="' . $avatar_url . '">';
print '<img src="' . $missing_avatar . '">';
print "<br><br>\n";
my $avatar_url = libravatar_url(email => 'fmarier@gmail.com', https => 1);
my $missing_avatar = libravatar_url(email => 'fmarier+1@gmail.com', https => 1);
print 'Regular HTTPS images:<br>';
print '<img src="' . $avatar_url . '">';
print '<img src="' . $missing_avatar . '">';
print "<br><br>\n";
my $avatar_url = libravatar_url(email => 'francois@catalyst.net.nz');
my $missing_avatar = libravatar_url(email => 'francois+1@catalyst.net.nz');
print 'Federated HTTP images:<br>';
print '<img src="' . $avatar_url . '">';
print '<img src="' . $missing_avatar . '">';
print "<br><br>\n";
my $avatar_url = libravatar_url(email => 'francois@catalyst.net.nz', https => 1);
my $missing_avatar = libravatar_url(email => 'francois+1@catalyst.net.nz', https => 1);
print 'Federated HTTPS images:<br>';
print '<img src="' . $avatar_url . '">';
print '<img src="' . $missing_avatar . '">';
print "<br><br>\n";
my $avatar_url = libravatar_url(openid => 'https://launchpad.net/~fmarier');
my $missing_avatar = libravatar_url(openid => 'https://launchpad.net/~notfmarier');
print 'Regular HTTP images (OpenID):<br>';
print '<img src="' . $avatar_url . '">';
print '<img src="' . $missing_avatar . '">';
print "<br><br>\n";
|