← Index
NYTProf Performance Profile   « block view • line view • sub view »
For /usr/local/src/github.com/foswiki/core/bin/view
  Run on Sun Dec 4 17:17:59 2011
Reported on Sun Dec 4 17:26:48 2011

Filename/usr/local/src/github.com/foswiki/core/lib/Foswiki/Plugins/MailerContribPlugin.pm
StatementsExecuted 11 statements in 522µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11126µs97µsFoswiki::Plugins::MailerContribPlugin::::initPluginFoswiki::Plugins::MailerContribPlugin::initPlugin
11126µs33µsFoswiki::Plugins::MailerContribPlugin::::BEGIN@4Foswiki::Plugins::MailerContribPlugin::BEGIN@4
11117µs36µsFoswiki::Plugins::MailerContribPlugin::::BEGIN@5Foswiki::Plugins::MailerContribPlugin::BEGIN@5
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
4246µs241µs
# spent 33µs (26+8) within Foswiki::Plugins::MailerContribPlugin::BEGIN@4 which was called: # once (26µs+8µs) by Foswiki::Plugin::BEGIN@2.11 at line 4
use strict;
# spent 33µs making 1 call to Foswiki::Plugins::MailerContribPlugin::BEGIN@4 # spent 8µs making 1 call to strict::import
52441µs255µs
# spent 36µs (17+19) within Foswiki::Plugins::MailerContribPlugin::BEGIN@5 which was called: # once (17µs+19µs) by Foswiki::Plugin::BEGIN@2.11 at line 5
use warnings;
# spent 36µs making 1 call to Foswiki::Plugins::MailerContribPlugin::BEGIN@5 # spent 19µs making 1 call to warnings::import
6
712µsour $VERSION = '$Rev: 5752 $';
812µsour $RELEASE = '9 Jul 2010';
911µsour $SHORTDESCRIPTION = 'Supports e-mail notification of changes';
1011µsour $NO_PREFS_IN_TOPIC = 1;
11
12# Plugin init method, used to initialise handlers
13
# spent 97µs (26+71) within Foswiki::Plugins::MailerContribPlugin::initPlugin which was called: # once (26µs+71µs) by Foswiki::Plugin::__ANON__[/usr/local/src/github.com/foswiki/core/lib/Foswiki/Plugin.pm:235] at line 228 of /usr/local/src/github.com/foswiki/core/lib/Foswiki/Plugin.pm
sub initPlugin {
14222µs171µs Foswiki::Func::registerRESTHandler( 'notify', \&_restNotify );
# spent 71µs making 1 call to Foswiki::Func::registerRESTHandler
15 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
4416µs1;
45__END__