← 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:07 2021

Filename/usr/local/libexec/sympa/Sympa/Regexps.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sSympa::Regexps::::BEGIN@30Sympa::Regexps::BEGIN@30
0000s0sSympa::Regexps::::BEGIN@31Sympa::Regexps::BEGIN@31
0000s0sSympa::Regexps::::BEGIN@34Sympa::Regexps::BEGIN@34
0000s0sSympa::Regexps::::BEGIN@37Sympa::Regexps::BEGIN@37
0000s0sSympa::Regexps::::BEGIN@38Sympa::Regexps::BEGIN@38
0000s0sSympa::Regexps::::BEGIN@40Sympa::Regexps::BEGIN@40
0000s0sSympa::Regexps::::BEGIN@42Sympa::Regexps::BEGIN@42
0000s0sSympa::Regexps::::BEGIN@43Sympa::Regexps::BEGIN@43
0000s0sSympa::Regexps::::BEGIN@48Sympa::Regexps::BEGIN@48
0000s0sSympa::Regexps::::BEGIN@50Sympa::Regexps::BEGIN@50
0000s0sSympa::Regexps::::BEGIN@53Sympa::Regexps::BEGIN@53
0000s0sSympa::Regexps::::BEGIN@55Sympa::Regexps::BEGIN@55
0000s0sSympa::Regexps::::BEGIN@57Sympa::Regexps::BEGIN@57
0000s0sSympa::Regexps::::BEGIN@58Sympa::Regexps::BEGIN@58
0000s0sSympa::Regexps::::BEGIN@62Sympa::Regexps::BEGIN@62
0000s0sSympa::Regexps::::BEGIN@63Sympa::Regexps::BEGIN@63
0000s0sSympa::Regexps::::BEGIN@65Sympa::Regexps::BEGIN@65
0000s0sSympa::Regexps::::BEGIN@66Sympa::Regexps::BEGIN@66
0000s0sSympa::Regexps::::BEGIN@67Sympa::Regexps::BEGIN@67
0000s0sSympa::Regexps::::BEGIN@68Sympa::Regexps::BEGIN@68
0000s0sSympa::Regexps::::BEGIN@69Sympa::Regexps::BEGIN@69
0000s0sSympa::Regexps::::BEGIN@70Sympa::Regexps::BEGIN@70
0000s0sSympa::Regexps::::BEGIN@72Sympa::Regexps::BEGIN@72
0000s0sSympa::Regexps::::CORE:qrSympa::Regexps::CORE:qr (opcode)
0000s0sSympa::Regexps::::addrspecSympa::Regexps::addrspec (xsub)
0000s0sSympa::Regexps::::emailSympa::Regexps::email (xsub)
0000s0sSympa::Regexps::::family_nameSympa::Regexps::family_name (xsub)
0000s0sSympa::Regexps::::hostSympa::Regexps::host (xsub)
0000s0sSympa::Regexps::::hostportSympa::Regexps::hostport (xsub)
0000s0sSympa::Regexps::::ldap_attrdescSympa::Regexps::ldap_attrdesc (xsub)
0000s0sSympa::Regexps::::listnameSympa::Regexps::listname (xsub)
0000s0sSympa::Regexps::::multiple_host_or_urlSympa::Regexps::multiple_host_or_url (xsub)
0000s0sSympa::Regexps::::sql_querySympa::Regexps::sql_query (xsub)
0000s0sSympa::Regexps::::timeSympa::Regexps::time (xsub)
0000s0sSympa::Regexps::::time_rangesSympa::Regexps::time_ranges (xsub)
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 The Sympa Community. See the AUTHORS.md file at the top-level
12# 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::Regexps;
29
30use strict;
31use warnings;
32
33# This is the same as email below except that it does never give any groups.
34use constant addrspec => qr{(?:[-&+'./\w=]+|".*")\@[-\w]+(?:[.][-\w]+)+};
35# Caution: If this regexp changes (more/less parenthesis), then regexp using
36# it should also be changed. By this reason it would be obsoleted.
37use constant email => qr'([\w\-\_\.\/\+\=\'\&]+|\".*\")\@[\w\-]+(\.[\w\-]+)+';
38use constant family_name => qr'[a-z0-9][a-z0-9\-\.\+_]*';
39## Allow \s for template names
40use constant template_name => qr'[a-zA-Z0-9][a-zA-Z0-9\-\.\+_\s]*';
41#FIXME: Not matching with IPv6 address.
42use constant host => qr'[\w\.\-]+';
43use constant hostport => qr{(?:
44 [-.\w]+ (?::\d+)?
45 | [:0-9a-f]*:[:0-9a-f]*:[:0-9a-f]*
46 | \[ [:0-9a-f]*:[:0-9a-f]*:[:0-9a-f]* \] (?::\d+)?
47 )}ix;
48use constant ipv6 => qr'[:0-9a-f]*:[:0-9a-f]*:[:0-9a-f]*'i;
49#FIXME: Cannot contain IPv6 address.
50use constant multiple_host_with_port =>
51 '[\w\.\-]+(:\d+)?(,[\w\.\-]+(:\d+)?)*';
52#FIXME: Cannot contain IPv6 address.
53use constant multiple_host_or_url =>
54 qr'([-\w]+://.+|[-.\w]+(:\d+)?)(,([-\w]+://.+|[-.\w]+(:\d+)?))*';
55use constant listname => qr'[a-z0-9][a-z0-9\-\.\+_]*';
56
57use constant ldap_attrdesc => qr'\w[-\w]*(?:;[-\w]+)*'; # RFC2251, 4.1.5
58use constant sql_query => qr'(SELECT|select).*';
59
60# "scenario" was deprecated. Use "scenario_name".
61# "scenario_config" is used for compatibility to earlier list config files.
62use constant scenario_config => qr'[-.,\w]+';
63use constant scenario_name => qr'[-.\w]+';
64
65use constant task => qr'\w+';
66use constant datasource => qr'[\w-]+';
67use constant uid => qr'[\w\-\.\+]+';
68use constant time => qr'[012]?[0-9](?:\:[0-5][0-9])?';
69use constant time_range => __PACKAGE__->time . '-' . __PACKAGE__->time;
70use constant time_ranges => time_range() . '(?:\s+' . time_range() . ')*';
71
72use constant re =>
73 qr'(?i)(?:AW|(?:\xD0\x9D|\xD0\xBD)(?:\xD0\x90|\xD0\xB0)|Re(?:\^\d+|\*\d+|\*\*\d+|\[\d+\])?|Rif|SV|VS|Antw|\xCE\x91(?:\xCE\xA0|\xCF\x80)|\xCE\xA3(?:\xCE\xA7\xCE\x95\xCE\xA4|\xCF\x87\xCE\xB5\xCF\x84)|Odp|YNT)\s*:';
74# (de | ru etc. | en, la etc. | it | da, sv | fi | nl | el | el | pl | tr).
75
761;
77
78__END__