← Index
NYTProf Performance Profile   « line view »
For /usr/local/libexec/sympa/task_manager-debug.pl
  Run on Tue Jun 1 22:32:51 2021
Reported on Tue Jun 1 22:35:10 2021

Filename/usr/local/libexec/sympa/Sympa/Spool/Auth.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
0000s0sSympa::Spool::Auth::::BEGIN@30Sympa::Spool::Auth::BEGIN@30
0000s0sSympa::Spool::Auth::::BEGIN@31Sympa::Spool::Auth::BEGIN@31
0000s0sSympa::Spool::Auth::::BEGIN@33Sympa::Spool::Auth::BEGIN@33
0000s0sSympa::Spool::Auth::::BEGIN@34Sympa::Spool::Auth::BEGIN@34
0000s0sSympa::Spool::Auth::::BEGIN@36Sympa::Spool::Auth::BEGIN@36
0000s0sSympa::Spool::Auth::::BEGIN@66Sympa::Spool::Auth::BEGIN@66
0000s0sSympa::Spool::Auth::::BEGIN@68Sympa::Spool::Auth::BEGIN@68
0000s0sSympa::Spool::Auth::::BEGIN@69Sympa::Spool::Auth::BEGIN@69
0000s0sSympa::Spool::Auth::::BEGIN@71Sympa::Spool::Auth::BEGIN@71
0000s0sSympa::Spool::Auth::::BEGIN@73Sympa::Spool::Auth::BEGIN@73
0000s0sSympa::Spool::Auth::::CORE:qrSympa::Spool::Auth::CORE:qr (opcode)
0000s0sSympa::Spool::Auth::::__ANON__Sympa::Spool::Auth::__ANON__ (xsub)
0000s0sSympa::Spool::Auth::::_directoriesSympa::Spool::Auth::_directories
0000s0sSympa::Spool::Auth::::_filterSympa::Spool::Auth::_filter
0000s0sSympa::Spool::Auth::::_filter_preSympa::Spool::Auth::_filter_pre
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1# -*- indent-tabs-mode: nil; -*-
2# vim:ft=perl:et:sw=4
3# $Id$
4
5# Sympa - SYsteme de Multi-Postage Automatique
6#
7# Copyright (c) 1997, 1998, 1999 Institut Pasteur & Christophe Wolfhugel
8# Copyright (c) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
9# 2006, 2007, 2008, 2009, 2010, 2011 Comite Reseau des Universites
10# Copyright (c) 2011, 2012, 2013, 2014, 2015, 2016, 2017 GIP RENATER
11# Copyright 2017, 2020 The Sympa Community. See the AUTHORS.md
12# file at the top-level directory of this distribution and at
13# <https://github.com/sympa-community/sympa.git>.
14#
15# This program is free software; you can redistribute it and/or modify
16# it under the terms of the GNU General Public License as published by
17# the Free Software Foundation; either version 2 of the License, or
18# (at your option) any later version.
19#
20# This program is distributed in the hope that it will be useful,
21# but WITHOUT ANY WARRANTY; without even the implied warranty of
22# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
23# GNU General Public License for more details.
24#
25# You should have received a copy of the GNU General Public License
26# along with this program. If not, see <http://www.gnu.org/licenses/>.
27
28package Sympa::Spool::Auth;
29
30use strict;
31use warnings;
32
33use Conf;
34use Sympa::Tools::Text;
35
36use base qw(Sympa::Spool);
37
38sub _directories {
39 return {directory => $Conf::Conf{'queuesubscribe'},};
40}
41
42sub _filter {
43 my $self = shift;
44 my $metadata = shift;
45
46 # Decode e-mail.
47 $metadata->{email} =
48 Sympa::Tools::Text::decode_filesystem_safe($metadata->{email})
49 if $metadata and $metadata->{email};
50
51 1;
52}
53
54sub _filter_pre {
55 my $self = shift;
56 my $metadata = shift;
57
58 # Encode e-mail.
59 $metadata->{email} =
60 Sympa::Tools::Text::encode_filesystem_safe($metadata->{email})
61 if $metadata and $metadata->{email};
62
63 1;
64}
65
66use constant _generator => 'Sympa::Request';
67
68use constant _marshal_format => '%ld,%s@%s_%s,%s,%s';
69use constant _marshal_keys =>
70 [qw(date localpart domainpart KEYAUTH email action)];
71use constant _marshal_regexp =>
72 qr{\A(\d+),(\@?[^\s\@]+)\@([-.\w]+)_([\da-f]+),([^\s,]*),(\w+)\z};
73use constant _store_key => 'keyauth';
74
751;
76__END__
Report produced by the NYTProf 6.06 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.