/usr/share/perl5/Jifty/Plugin/Authentication/Facebook/View.pm is in libjifty-plugin-authentication-facebook-perl 0.90000-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | use warnings;
use strict;
package Jifty::Plugin::Authentication::Facebook::View;
use Jifty::View::Declare -base;
=head1 NAME
Jifty::Plugin::Authentication::Facebook::View - Facebook login fragment
=head1 DESCRIPTION
Provides the Facebook login fragment for L<Jifty::Plugin::Authentication::Facebook>
=head2 /facebook/login
This fragment shows the standard Facebook button used for web login.
=cut
template '/facebook/login' => sub {
my ($plugin) = Jifty->find_plugin('Jifty::Plugin::Authentication::Facebook');
div {{ id is 'facebook_login' };
span { _("Login to Facebook now to get started!") };
a {{ href is $plugin->get_login_url };
img {{ src is 'http://static.ak.facebook.com/images/devsite/facebook_login.gif', border is '0' }};
};
};
};
=head2 /facebook/link
This fragment shows the standard Facebook login button, prompting the user to
link his account.
=cut
template '/facebook/link' => sub {
my ($plugin) = Jifty->find_plugin('Jifty::Plugin::Authentication::Facebook');
div {{ id is 'facebook_link' };
span { _("Login to Facebook now to link it with your current account!") };
a {{ href is $plugin->get_link_url };
img {{ src is 'http://static.ak.facebook.com/images/devsite/facebook_login.gif', border is '0' }};
};
};
};
1;
|