← Index
NYTProf Performance Profile   « line view »
For ./view
  Run on Fri Jul 31 19:05:14 2015
Reported on Fri Jul 31 19:08:10 2015

Filename/var/www/foswiki11/lib/Foswiki/Plugins/MailerContribPlugin.pm
StatementsExecuted 13 statements in 340µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11116µs22µsFoswiki::Plugins::MailerContribPlugin::::BEGIN@5Foswiki::Plugins::MailerContribPlugin::BEGIN@5
11114µs27µsFoswiki::Plugins::MailerContribPlugin::::BEGIN@4Foswiki::Plugins::MailerContribPlugin::BEGIN@4
11114µs42µsFoswiki::Plugins::MailerContribPlugin::::initPluginFoswiki::Plugins::MailerContribPlugin::initPlugin
11113µs33µsFoswiki::Plugins::MailerContribPlugin::::BEGIN@7Foswiki::Plugins::MailerContribPlugin::BEGIN@7
0000s0sFoswiki::Plugins::MailerContribPlugin::::_restNotifyFoswiki::Plugins::MailerContribPlugin::_restNotify
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1# See bottom of file for license and copyright information
2package Foswiki::Plugins::MailerContribPlugin;
3
4234µs241µs
# spent 27µs (14+14) within Foswiki::Plugins::MailerContribPlugin::BEGIN@4 which was called: # once (14µs+14µs) by Foswiki::Plugin::BEGIN@2.21 at line 4
use strict;
# spent 27µs making 1 call to Foswiki::Plugins::MailerContribPlugin::BEGIN@4 # spent 14µs making 1 call to strict::import
5227µs228µs
# spent 22µs (16+6) within Foswiki::Plugins::MailerContribPlugin::BEGIN@5 which was called: # once (16µs+6µs) by Foswiki::Plugin::BEGIN@2.21 at line 5
use warnings;
# spent 22µs making 1 call to Foswiki::Plugins::MailerContribPlugin::BEGIN@5 # spent 6µs making 1 call to warnings::import
6
73265µs359µs
# spent 33µs (13+20) within Foswiki::Plugins::MailerContribPlugin::BEGIN@7 which was called: # once (13µs+20µs) by Foswiki::Plugin::BEGIN@2.21 at line 7
use version; our $VERSION = version->declare("v2.5.3");
# spent 33µs making 1 call to Foswiki::Plugins::MailerContribPlugin::BEGIN@7 # spent 20µs making 1 call to version::import # spent 6µs making 1 call to version::vxs::declare
81300nsour $RELEASE = '2.5.3';
91200nsour $SHORTDESCRIPTION = 'Supports e-mail notification of changes';
101100nsour $NO_PREFS_IN_TOPIC = 1;
11
12# Plugin init method, used to initialise handlers
13
# spent 42µs (14+28) within Foswiki::Plugins::MailerContribPlugin::initPlugin which was called: # once (14µs+28µs) by Foswiki::Plugin::__ANON__[/var/www/foswiki11/lib/Foswiki/Plugin.pm:241] at line 234 of /var/www/foswiki11/lib/Foswiki/Plugin.pm
sub initPlugin {
1412µs128µs Foswiki::Func::registerRESTHandler( 'notify', \&_restNotify );
# spent 28µs making 1 call to Foswiki::Func::registerRESTHandler
1516µs return 1;
16}
17
18# Run mailnotify using a rest handler
19sub _restNotify {
20 my ( $session, $plugin, $verb, $response ) = @_;
21
22 if ( !Foswiki::Func::isAnAdmin() ) {
23 $response->header( -status => 403, -type => 'text/plain' );
24 $response->print("Only administrators can do that");
25 }
26 else {
27
28 # Don't use the $response; we want to see things happening
29 local $| = 1; # autoflush on
30 require CGI;
31 print CGI::header( -status => 200, -type => 'text/plain' );
32 my $query = Foswiki::Func::getCgiQuery();
33 my $nonews = $query->param('nonews');
34 my $nochanges = $query->param('nochanges');
35 my @exwebs = split( ',', $query->param('excludewebs') || '' );
36 my @webs = split( ',', $query->param('webs') || '' );
37 require Foswiki::Contrib::MailerContrib;
38 Foswiki::Contrib::MailerContrib::mailNotify( \@webs, 1, \@exwebs,
39 $nonews, $nochanges );
40 }
41 return undef;
42}
43
4414µs1;
45__END__