Subject: The mailing list for listmasters using Sympa
List archive
- From: Erik Olson <address@concealed>
- To: address@concealed
- Subject: [sympa-users] perl crashing on wwsympa.fcgi
- Date: Sat, 31 Dec 2011 21:01:38 -0800 (PST)
I am wondering if anyone can help me here.
I had been running Sympa 6.1.6 on a 64-bit Fedora 12 Linux box.
This week, I transferred all the files from ~sympa and appropriate /etc directories to a brand new rebuilt 64-bit Fedora 16 box. Restored the database on the new box, and I also upgraded to Sympa 6.1.7 in the process.
Things are mostly working, but wwsympa.cgi is now page faulting in libperl.so when certain functions are accessed:
1) Posting to a list via the web
2) Subscribing a user to a list via the web (but only when Quiet is
unchecked... if Quiet is checked, it works)
3) Attempting to approve a moderated message, whether it be via a ticket
link, or clicking on "Moderate -> Message"
4) User who has been subscribed but never logged in attempts to set up a
password by clicking on the "First Login" link. wwsympa.fcgi
blows up when they enter their e-mail address and click "Request First
Password"
I am guessing the common thread here is that all these functions involve sending an e-mail directly from wwsympa.fcgi, or maybe creating/dealing with tickets?
Here is the relevant line from syslog:
[...]
Dec 31 20:39:59 pulcher wwsympa[6729]: info [robot gsas.org] [session
11550608881860] [client 192.168.1.2] main::do_requestpasswd()
do_requestpasswd(address@concealed)
Dec 31 20:39:59 pulcher wwsympa[6729]: info Auth::create_one_time_ticket()
Auth::create_one_time_ticket(address@concealed,gsas.org,choosepasswd,192.168.1.2)
value = 67959831025349
Dec 31 20:39:59 pulcher kernel: [ 587.774025] wwsympa.fcgi[6729] general
protection ip:7f22b4fd5821 sp:7fff4074bc60 error:0 in
libperl.so[7f22b4f3f000+171000]
I am not a perl expert, nor familiar with how to get any form of a backtrace when perl itself crashes. I did try adding -d Devel::Trace to the execution of wwsympa.fcgi, and examined the line-by-line traces of each module. I've enclosed partial traces from each of these four cases right up to the crashes. I don't see a lot of commonality other than the use of mail.pm
Can anyone help?
Thanks in advance,
- Erik Olson
--
Erik Olson
Sent from my spiffy new Linux box
: return ($self->error($error))
/usr/local/lib64/perl5/Template.pm:153: my ($where, $textref, $options) =
@_;
/usr/local/lib64/perl5/Template.pm:154: my $reftype;
/usr/local/lib64/perl5/Template.pm:155: my $error = 0;
/usr/local/lib64/perl5/Template.pm:158: if (($reftype = ref($where)) eq
'CODE') {
/usr/local/lib64/perl5/Template.pm:167: $$where .= $$textref;
/usr/local/lib64/perl5/Template.pm:209: return $error;
/usr/local/lib64/perl5/Template.pm:79: return 1;
/home/sympa/bin/tt2.pm:267: return 1;
/usr/local/lib64/perl5/Template/Context.pm:810: 129295840
/usr/local/lib64/perl5/Template/Context.pm:811: 129296576
/usr/local/lib64/perl5/Template/Stash/XS.pm:35: 130076352
/usr/local/lib64/perl5/Template/Provider.pm:313: my $self = shift;
/usr/local/lib64/perl5/Template/Provider.pm:314: my ($slot, $next);
/usr/local/lib64/perl5/Template/Provider.pm:316: $slot = $self->{ HEAD };
/usr/local/lib64/perl5/Template/Provider.pm:317: while ($slot) {
/usr/local/lib64/perl5/Template/Provider.pm:318: $next = $slot->[
NEXT ];
/usr/local/lib64/perl5/Template/Provider.pm:319: undef $slot->[ PREV
];
/usr/local/lib64/perl5/Template/Provider.pm:320: undef $slot->[ NEXT
];
/usr/local/lib64/perl5/Template/Provider.pm:321: $slot = $next;
/usr/local/lib64/perl5/Template/Provider.pm:323: undef $self->{ HEAD };
/usr/local/lib64/perl5/Template/Provider.pm:324: undef $self->{ TAIL };
/usr/local/lib64/perl5/Template/Document.pm:172: my $self = shift;
/usr/local/lib64/perl5/Template/Document.pm:173: my $method = $AUTOLOAD;
/usr/local/lib64/perl5/Template/Document.pm:175: $method =~ s/.*:://;
/usr/local/lib64/perl5/Template/Document.pm:176: return if $method eq
'DESTROY';
/home/sympa/bin/mail.pm:150: \t&Language::PopLang() if (defined
$data->{'lang'});
/home/sympa/bin/Language.pm:132: &do_log('debug', '');
/home/sympa/bin/Log.pm:82: my $level = shift;
/home/sympa/bin/Log.pm:85: return if ($levels{$level} > $log_level);
/home/sympa/bin/Log.pm:87: my $message = shift;
/home/sympa/bin/Log.pm:88: my @param = @_;
/home/sympa/bin/Log.pm:90: my $errno = $!;
/home/sympa/bin/Log.pm:93: foreach my $i (0..$#param) {
/home/sympa/bin/Log.pm:100: my @call = caller(1);
/home/sympa/bin/Log.pm:102: unless ($call[3] =~ /wwslog$/) {
/home/sympa/bin/Log.pm:103: $message = $call[3] . '() ' . $message if
($call[3]);
/home/sympa/bin/Log.pm:107: $message = $level.' '.$message;
/home/sympa/bin/Log.pm:110: if ($level eq 'trace' ) {
/home/sympa/bin/Log.pm:117: eval {
/home/sympa/bin/Log.pm:118: unless (syslog($level, $message, @param))
{
/usr/lib64/perl5/Sys/Syslog.pm:306: my $priority = shift;
/usr/lib64/perl5/Sys/Syslog.pm:307: my $mask = shift;
/usr/lib64/perl5/Sys/Syslog.pm:308: my ($message, $buf);
/usr/lib64/perl5/Sys/Syslog.pm:309: my (@words, $num, $numpri, $numfac,
$sum);
/usr/lib64/perl5/Sys/Syslog.pm:310: my $failed = undef;
/usr/lib64/perl5/Sys/Syslog.pm:311: my $fail_time = undef;
/usr/lib64/perl5/Sys/Syslog.pm:312: my $error = $!;
/usr/lib64/perl5/Sys/Syslog.pm:316: openlog() unless $ident;
/usr/lib64/perl5/Sys/Syslog.pm:318: local $facility = $facility; # may
need to change temporarily.
/usr/lib64/perl5/Sys/Syslog.pm:320: croak "syslog: expecting argument
\\$priority" unless defined $priority;
/usr/lib64/perl5/Sys/Syslog.pm:321: croak "syslog: expecting argument
\\$format" unless defined $mask;
/usr/lib64/perl5/Sys/Syslog.pm:323: croak "syslog: invalid
level/facility: $priority" if $priority =~ /^-\\d+$/;
/usr/lib64/perl5/Sys/Syslog.pm:324: @words = split(/\\W+/, $priority, 2);
# Allow "level" or "level|facility".
/usr/lib64/perl5/Sys/Syslog.pm:325: undef $numpri;
/usr/lib64/perl5/Sys/Syslog.pm:326: undef $numfac;
/usr/lib64/perl5/Sys/Syslog.pm:328: for my $word (@words) {
/usr/lib64/perl5/Sys/Syslog.pm:329: next if length $word == 0;
/usr/lib64/perl5/Sys/Syslog.pm:331: $num = xlate($word); #
Translate word to number.
/usr/lib64/perl5/Sys/Syslog.pm:498: my ($name) = @_;
/usr/lib64/perl5/Sys/Syslog.pm:500: return $name+0 if $name =~
/^\\s*\\d+\\s*$/;
/usr/lib64/perl5/Sys/Syslog.pm:501: $name = uc $name;
/usr/lib64/perl5/Sys/Syslog.pm:502: $name = "LOG_$name" unless $name =~
/^LOG_/;
/usr/lib64/perl5/Sys/Syslog.pm:510: my $value = constant($name);
/usr/lib64/perl5/Sys/Syslog.pm:512: if (index($value, "not a valid") >=
0) {
/usr/lib64/perl5/Sys/Syslog.pm:513: $name = "Sys::Syslog::$name";
/usr/lib64/perl5/Sys/Syslog.pm:514: $value = eval { no strict "refs";
&$name };
/usr/lib64/perl5/Sys/Syslog.pm:514: $value = eval { no strict "refs";
&$name };
/usr/lib64/perl5/Sys/Syslog.pm:515: $value = $@ unless defined $value;
/usr/lib64/perl5/Sys/Syslog.pm:518: $value = -1 if index($value, "not a
valid") >= 0;
/usr/lib64/perl5/Sys/Syslog.pm:520: return defined $value ? $value : -1;
/usr/lib64/perl5/Sys/Syslog.pm:333: if ($num < 0) {
/usr/lib64/perl5/Sys/Syslog.pm:337: croak "syslog: too many
levels given: $word" if defined $numpri;
/usr/lib64/perl5/Sys/Syslog.pm:338: $numpri = $num;
/usr/lib64/perl5/Sys/Syslog.pm:339: return 0 unless
LOG_MASK($numpri) & $maskpri;
/usr/lib64/perl5/Sys/Syslog.pm:348: croak "syslog: level must be given"
unless defined $numpri;
/usr/lib64/perl5/Sys/Syslog.pm:350: if (not defined $numfac) { #
Facility not specified in this call.
/usr/lib64/perl5/Sys/Syslog.pm:351: \t$facility = 'user' unless $facility;
/usr/lib64/perl5/Sys/Syslog.pm:352: \t$numfac = xlate($facility);
/usr/lib64/perl5/Sys/Syslog.pm:498: my ($name) = @_;
/usr/lib64/perl5/Sys/Syslog.pm:500: return $name+0 if $name =~
/^\\s*\\d+\\s*$/;
/usr/lib64/perl5/Sys/Syslog.pm:501: $name = uc $name;
/usr/lib64/perl5/Sys/Syslog.pm:502: $name = "LOG_$name" unless $name =~
/^LOG_/;
/usr/lib64/perl5/Sys/Syslog.pm:510: my $value = constant($name);
/usr/lib64/perl5/Sys/Syslog.pm:512: if (index($value, "not a valid") >=
0) {
/usr/lib64/perl5/Sys/Syslog.pm:513: $name = "Sys::Syslog::$name";
/usr/lib64/perl5/Sys/Syslog.pm:514: $value = eval { no strict "refs";
&$name };
/usr/lib64/perl5/Sys/Syslog.pm:514: $value = eval { no strict "refs";
&$name };
/usr/lib64/perl5/Sys/Syslog.pm:515: $value = $@ unless defined $value;
/usr/lib64/perl5/Sys/Syslog.pm:518: $value = -1 if index($value, "not a
valid") >= 0;
/usr/lib64/perl5/Sys/Syslog.pm:520: return defined $value ? $value : -1;
/usr/lib64/perl5/Sys/Syslog.pm:355: connect_log() unless $connected;
/usr/lib64/perl5/Sys/Syslog.pm:357: if ($mask =~ /%m/) {
/usr/lib64/perl5/Sys/Syslog.pm:364: $mask .= "\\n" unless $mask =~ /\\n$/;
/usr/lib64/perl5/Sys/Syslog.pm:365: $message = @_ ? sprintf($mask, @_) :
$mask;
/usr/lib64/perl5/Sys/Syslog.pm:369: chomp $message if $^O =~ /darwin/;
/usr/lib64/perl5/Sys/Syslog.pm:371: if ($current_proto eq 'native') {
/usr/lib64/perl5/Sys/Syslog.pm:378: my $whoami = $ident;
/usr/lib64/perl5/Sys/Syslog.pm:379: $whoami .= "[$$]" if
$options{pid};
/usr/lib64/perl5/Sys/Syslog.pm:381: $sum = $numpri + $numfac;
/usr/lib64/perl5/Sys/Syslog.pm:382: my $oldlocale =
setlocale(LC_TIME);
/usr/lib64/perl5/Sys/Syslog.pm:383: setlocale(LC_TIME, 'C');
/usr/lib64/perl5/Sys/Syslog.pm:384: my $timestamp = strftime "%b %e
%T", localtime;
/usr/lib64/perl5/Sys/Syslog.pm:385: setlocale(LC_TIME, $oldlocale);
/usr/lib64/perl5/Sys/Syslog.pm:386: $buf = "<$sum>$timestamp $whoami:
$message\\0";
/usr/lib64/perl5/Sys/Syslog.pm:391: if ($options{perror} and
$current_proto ne 'native') {
/usr/lib64/perl5/Sys/Syslog.pm:403: while (scalar @fallbackMethods ||
$syslog_send) {
/usr/lib64/perl5/Sys/Syslog.pm:404: \tif ($failed && (time - $fail_time) >
60) {
/usr/lib64/perl5/Sys/Syslog.pm:412: \tif ($connected && !connection_ok()) {
/usr/lib64/perl5/Sys/Syslog.pm:776: return 1 if defined $current_proto
and (
/usr/lib64/perl5/Sys/Syslog.pm:781: my $rin = '';
/usr/lib64/perl5/Sys/Syslog.pm:782: vec($rin, fileno(SYSLOG), 1) = 1;
/usr/lib64/perl5/Sys/Syslog.pm:783: my $ret = select $rin, undef, $rin,
$sock_timeout;
/usr/lib64/perl5/Sys/Syslog.pm:784: return ($ret ? 0 : 1);
/usr/lib64/perl5/Sys/Syslog.pm:420: \tconnect_log() unless $connected;
/usr/lib64/perl5/Sys/Syslog.pm:421: \t$failed = undef if ($current_proto &&
$failed && $current_proto eq $failed);
/usr/lib64/perl5/Sys/Syslog.pm:423: \tif ($syslog_send) {
/usr/lib64/perl5/Sys/Syslog.pm:424: if ($syslog_send->($buf,
$numpri, $numfac)) {
/usr/lib64/perl5/Sys/Syslog.pm:481: my ($buf) = @_;
/usr/lib64/perl5/Sys/Syslog.pm:482: return syswrite(SYSLOG, $buf,
length($buf));
/usr/lib64/perl5/Sys/Syslog.pm:425: \t\t$transmit_ok++;
/usr/lib64/perl5/Sys/Syslog.pm:426: \t\treturn 1;
/home/sympa/bin/Log.pm:124: if ($@ && ($warning_date < time -
$warning_timeout)) {
/home/sympa/bin/Log.pm:131: if ($main::options{'foreground'}) {
/home/sympa/bin/Language.pm:134: my $locale = pop @previous_locale;
/home/sympa/bin/Language.pm:135: &SetLang($locale);
/home/sympa/bin/Language.pm:142: my $locale = shift;
/home/sympa/bin/Language.pm:143: &do_log('debug2',
'Language::SetLang(%s)', $locale);
/home/sympa/bin/Log.pm:82: my $level = shift;
/home/sympa/bin/Log.pm:85: return if ($levels{$level} > $log_level);
/home/sympa/bin/Log.pm:87: my $message = shift;
/home/sympa/bin/Log.pm:88: my @param = @_;
/home/sympa/bin/Log.pm:90: my $errno = $!;
/home/sympa/bin/Log.pm:93: foreach my $i (0..$#param) {
/home/sympa/bin/Log.pm:94: if (ref($param[$i])){
/home/sympa/bin/Log.pm:100: my @call = caller(1);
/home/sympa/bin/Log.pm:102: unless ($call[3] =~ /wwslog$/) {
/home/sympa/bin/Log.pm:103: $message = $call[3] . '() ' . $message if
($call[3]);
/home/sympa/bin/Log.pm:107: $message = $level.' '.$message;
/home/sympa/bin/Log.pm:110: if ($level eq 'trace' ) {
/home/sympa/bin/Log.pm:114: $level = 'debug';
/home/sympa/bin/Log.pm:117: eval {
/home/sympa/bin/Log.pm:118: unless (syslog($level, $message, @param))
{
/usr/lib64/perl5/Sys/Syslog.pm:306: my $priority = shift;
/usr/lib64/perl5/Sys/Syslog.pm:307: my $mask = shift;
/usr/lib64/perl5/Sys/Syslog.pm:308: my ($message, $buf);
/usr/lib64/perl5/Sys/Syslog.pm:309: my (@words, $num, $numpri, $numfac,
$sum);
/usr/lib64/perl5/Sys/Syslog.pm:310: my $failed = undef;
/usr/lib64/perl5/Sys/Syslog.pm:311: my $fail_time = undef;
/usr/lib64/perl5/Sys/Syslog.pm:312: my $error = $!;
/usr/lib64/perl5/Sys/Syslog.pm:316: openlog() unless $ident;
/usr/lib64/perl5/Sys/Syslog.pm:318: local $facility = $facility; # may
need to change temporarily.
/usr/lib64/perl5/Sys/Syslog.pm:320: croak "syslog: expecting argument
\\$priority" unless defined $priority;
/usr/lib64/perl5/Sys/Syslog.pm:321: croak "syslog: expecting argument
\\$format" unless defined $mask;
/usr/lib64/perl5/Sys/Syslog.pm:323: croak "syslog: invalid
level/facility: $priority" if $priority =~ /^-\\d+$/;
/usr/lib64/perl5/Sys/Syslog.pm:324: @words = split(/\\W+/, $priority, 2);
# Allow "level" or "level|facility".
/usr/lib64/perl5/Sys/Syslog.pm:325: undef $numpri;
/usr/lib64/perl5/Sys/Syslog.pm:326: undef $numfac;
/usr/lib64/perl5/Sys/Syslog.pm:328: for my $word (@words) {
/usr/lib64/perl5/Sys/Syslog.pm:329: next if length $word == 0;
/usr/lib64/perl5/Sys/Syslog.pm:331: $num = xlate($word); #
Translate word to number.
/usr/lib64/perl5/Sys/Syslog.pm:498: my ($name) = @_;
/usr/lib64/perl5/Sys/Syslog.pm:500: return $name+0 if $name =~
/^\\s*\\d+\\s*$/;
/usr/lib64/perl5/Sys/Syslog.pm:501: $name = uc $name;
/usr/lib64/perl5/Sys/Syslog.pm:502: $name = "LOG_$name" unless $name =~
/^LOG_/;
/usr/lib64/perl5/Sys/Syslog.pm:510: my $value = constant($name);
/usr/lib64/perl5/Sys/Syslog.pm:512: if (index($value, "not a valid") >=
0) {
/usr/lib64/perl5/Sys/Syslog.pm:513: $name = "Sys::Syslog::$name";
/usr/lib64/perl5/Sys/Syslog.pm:514: $value = eval { no strict "refs";
&$name };
/usr/lib64/perl5/Sys/Syslog.pm:514: $value = eval { no strict "refs";
&$name };
/usr/lib64/perl5/Sys/Syslog.pm:515: $value = $@ unless defined $value;
/usr/lib64/perl5/Sys/Syslog.pm:518: $value = -1 if index($value, "not a
valid") >= 0;
/usr/lib64/perl5/Sys/Syslog.pm:520: return defined $value ? $value : -1;
/usr/lib64/perl5/Sys/Syslog.pm:333: if ($num < 0) {
/usr/lib64/perl5/Sys/Syslog.pm:337: croak "syslog: too many
levels given: $word" if defined $numpri;
/usr/lib64/perl5/Sys/Syslog.pm:338: $numpri = $num;
/usr/lib64/perl5/Sys/Syslog.pm:339: return 0 unless
LOG_MASK($numpri) & $maskpri;
/usr/lib64/perl5/Sys/Syslog.pm:348: croak "syslog: level must be given"
unless defined $numpri;
/usr/lib64/perl5/Sys/Syslog.pm:350: if (not defined $numfac) { #
Facility not specified in this call.
/usr/lib64/perl5/Sys/Syslog.pm:351: \t$facility = 'user' unless $facility;
/usr/lib64/perl5/Sys/Syslog.pm:352: \t$numfac = xlate($facility);
/usr/lib64/perl5/Sys/Syslog.pm:498: my ($name) = @_;
/usr/lib64/perl5/Sys/Syslog.pm:500: return $name+0 if $name =~
/^\\s*\\d+\\s*$/;
/usr/lib64/perl5/Sys/Syslog.pm:501: $name = uc $name;
/usr/lib64/perl5/Sys/Syslog.pm:502: $name = "LOG_$name" unless $name =~
/^LOG_/;
/usr/lib64/perl5/Sys/Syslog.pm:510: my $value = constant($name);
/usr/lib64/perl5/Sys/Syslog.pm:512: if (index($value, "not a valid") >=
0) {
/usr/lib64/perl5/Sys/Syslog.pm:513: $name = "Sys::Syslog::$name";
/usr/lib64/perl5/Sys/Syslog.pm:514: $value = eval { no strict "refs";
&$name };
/usr/lib64/perl5/Sys/Syslog.pm:514: $value = eval { no strict "refs";
&$name };
/usr/lib64/perl5/Sys/Syslog.pm:515: $value = $@ unless defined $value;
/usr/lib64/perl5/Sys/Syslog.pm:518: $value = -1 if index($value, "not a
valid") >= 0;
/usr/lib64/perl5/Sys/Syslog.pm:520: return defined $value ? $value : -1;
/usr/lib64/perl5/Sys/Syslog.pm:355: connect_log() unless $connected;
/usr/lib64/perl5/Sys/Syslog.pm:357: if ($mask =~ /%m/) {
/usr/lib64/perl5/Sys/Syslog.pm:364: $mask .= "\\n" unless $mask =~ /\\n$/;
/usr/lib64/perl5/Sys/Syslog.pm:365: $message = @_ ? sprintf($mask, @_) :
$mask;
/usr/lib64/perl5/Sys/Syslog.pm:369: chomp $message if $^O =~ /darwin/;
/usr/lib64/perl5/Sys/Syslog.pm:371: if ($current_proto eq 'native') {
/usr/lib64/perl5/Sys/Syslog.pm:378: my $whoami = $ident;
/usr/lib64/perl5/Sys/Syslog.pm:379: $whoami .= "[$$]" if
$options{pid};
/usr/lib64/perl5/Sys/Syslog.pm:381: $sum = $numpri + $numfac;
/usr/lib64/perl5/Sys/Syslog.pm:382: my $oldlocale =
setlocale(LC_TIME);
/usr/lib64/perl5/Sys/Syslog.pm:383: setlocale(LC_TIME, 'C');
/usr/lib64/perl5/Sys/Syslog.pm:384: my $timestamp = strftime "%b %e
%T", localtime;
/usr/lib64/perl5/Sys/Syslog.pm:385: setlocale(LC_TIME, $oldlocale);
/usr/lib64/perl5/Sys/Syslog.pm:386: $buf = "<$sum>$timestamp $whoami:
$message\\0";
/usr/lib64/perl5/Sys/Syslog.pm:391: if ($options{perror} and
$current_proto ne 'native') {
/usr/lib64/perl5/Sys/Syslog.pm:403: while (scalar @fallbackMethods ||
$syslog_send) {
/usr/lib64/perl5/Sys/Syslog.pm:404: \tif ($failed && (time - $fail_time) >
60) {
/usr/lib64/perl5/Sys/Syslog.pm:412: \tif ($connected && !connection_ok()) {
/usr/lib64/perl5/Sys/Syslog.pm:776: return 1 if defined $current_proto
and (
/usr/lib64/perl5/Sys/Syslog.pm:781: my $rin = '';
/usr/lib64/perl5/Sys/Syslog.pm:782: vec($rin, fileno(SYSLOG), 1) = 1;
/usr/lib64/perl5/Sys/Syslog.pm:783: my $ret = select $rin, undef, $rin,
$sock_timeout;
/usr/lib64/perl5/Sys/Syslog.pm:784: return ($ret ? 0 : 1);
/usr/lib64/perl5/Sys/Syslog.pm:420: \tconnect_log() unless $connected;
/usr/lib64/perl5/Sys/Syslog.pm:421: \t$failed = undef if ($current_proto &&
$failed && $current_proto eq $failed);
/usr/lib64/perl5/Sys/Syslog.pm:423: \tif ($syslog_send) {
/usr/lib64/perl5/Sys/Syslog.pm:424: if ($syslog_send->($buf,
$numpri, $numfac)) {
/usr/lib64/perl5/Sys/Syslog.pm:481: my ($buf) = @_;
/usr/lib64/perl5/Sys/Syslog.pm:482: return syswrite(SYSLOG, $buf,
length($buf));
/usr/lib64/perl5/Sys/Syslog.pm:425: \t\t$transmit_ok++;
/usr/lib64/perl5/Sys/Syslog.pm:426: \t\treturn 1;
/home/sympa/bin/Log.pm:124: if ($@ && ($warning_date < time -
$warning_timeout)) {
/home/sympa/bin/Log.pm:131: if ($main::options{'foreground'}) {
/home/sympa/bin/Language.pm:145: my $lang = $locale || $default_lang;##
Use default_lang if an empty parameter
/home/sympa/bin/Language.pm:147: unless ($lang) {
/home/sympa/bin/Language.pm:152: if (length($lang) == 2) {
/home/sympa/bin/Language.pm:156: \tmy @items = split /_/, $locale;
/home/sympa/bin/Language.pm:157: \t$items[1] = uc($items[1]);
/home/sympa/bin/Language.pm:158: \t$locale = join '_', @items;
/home/sympa/bin/Language.pm:161: \t$lang = &Locale2Lang($locale);
/home/sympa/bin/Language.pm:228: my $locale = shift;
/home/sympa/bin/Language.pm:229: my $lang;
/home/sympa/bin/Language.pm:231: if (defined $language_equiv{$locale}) {
/home/sympa/bin/Language.pm:232: \t$lang = $language_equiv{$locale};
/home/sympa/bin/Language.pm:239: return $lang;
/home/sympa/bin/Language.pm:165: my $locale_dashless = $locale.'.utf-8';
/home/sympa/bin/Language.pm:166: $locale_dashless =~ s/-//g;
/home/sympa/bin/Language.pm:167: foreach my $type (&POSIX::LC_ALL,
&POSIX::LC_TIME) {
/home/sympa/bin/Language.pm:168: \tmy $success;
/home/sympa/bin/Language.pm:169: \tforeach my $try ($locale.'.utf-8',
/home/sympa/bin/Language.pm:175: \t if (&setlocale($type, $try)) {
/home/sympa/bin/Language.pm:176: \t\t$success = 1;
/home/sympa/bin/Language.pm:177: \t\tlast;
/home/sympa/bin/Language.pm:180: \tunless ($success) {
/home/sympa/bin/Language.pm:168: \tmy $success;
/home/sympa/bin/Language.pm:169: \tforeach my $try ($locale.'.utf-8',
/home/sympa/bin/Language.pm:175: \t if (&setlocale($type, $try)) {
/home/sympa/bin/Language.pm:176: \t\t$success = 1;
/home/sympa/bin/Language.pm:177: \t\tlast;
/home/sympa/bin/Language.pm:180: \tunless ($success) {
/home/sympa/bin/Language.pm:186: $ENV{'LANGUAGE'}=$locale;
/home/sympa/bin/Language.pm:188: &Locale::Messages::textdomain("sympa");
/usr/local/share/perl5/Locale/Messages.pm:203: 'gettext_xs' eq $package ?
/usr/local/share/perl5/Locale/gettext_pp.pm:217: \tmy $new_domain = shift;
/usr/local/share/perl5/Locale/gettext_pp.pm:219: \t$__gettext_pp_textdomain =
$new_domain if defined $new_domain &&
/usr/local/share/perl5/Locale/gettext_pp.pm:222: \treturn
$__gettext_pp_textdomain;
/home/sympa/bin/Language.pm:189:
&Locale::Messages::bindtextdomain('sympa',Sympa::Constants::LOCALEDIR);
/usr/local/share/perl5/Locale/Messages.pm:210: 'gettext_xs' eq $package ?
/usr/local/share/perl5/Locale/gettext_pp.pm:227: \tmy ($domain, $directory) =
@_;
/usr/local/share/perl5/Locale/gettext_pp.pm:229: \tmy $retval;\t
/usr/local/share/perl5/Locale/gettext_pp.pm:230: \tif (defined $domain &&
length $domain) {
/usr/local/share/perl5/Locale/gettext_pp.pm:231: \t\tif (defined $directory
&& length $directory) {
/usr/local/share/perl5/Locale/gettext_pp.pm:232: \t\t\t$retval =
$__gettext_pp_domain_bindings->{$domain}
/usr/local/share/perl5/Locale/gettext_pp.pm:239: \t\t$retval =
'/usr/share/locale' unless defined $retval &&
/usr/local/share/perl5/Locale/gettext_pp.pm:241: \t\treturn $retval;
/home/sympa/bin/Language.pm:190:
&Locale::Messages::bindtextdomain('web_help',Sympa::Constants::LOCALEDIR);
/usr/local/share/perl5/Locale/Messages.pm:210: 'gettext_xs' eq $package ?
/usr/local/share/perl5/Locale/gettext_pp.pm:227: \tmy ($domain, $directory) =
@_;
/usr/local/share/perl5/Locale/gettext_pp.pm:229: \tmy $retval;\t
/usr/local/share/perl5/Locale/gettext_pp.pm:230: \tif (defined $domain &&
length $domain) {
/usr/local/share/perl5/Locale/gettext_pp.pm:231: \t\tif (defined $directory
&& length $directory) {
/usr/local/share/perl5/Locale/gettext_pp.pm:232: \t\t\t$retval =
$__gettext_pp_domain_bindings->{$domain}
/usr/local/share/perl5/Locale/gettext_pp.pm:239: \t\t$retval =
'/usr/share/locale' unless defined $retval &&
/usr/local/share/perl5/Locale/gettext_pp.pm:241: \t\treturn $retval;
/home/sympa/bin/Language.pm:192: bind_textdomain_codeset sympa => 'utf-8';
/usr/local/share/perl5/Locale/Messages.pm:217: 'gettext_xs' eq $package ?
/usr/local/share/perl5/Locale/gettext_pp.pm:249: \tmy ($domain, $codeset) =
@_;
/usr/local/share/perl5/Locale/gettext_pp.pm:251: \tif (defined $domain &&
length $domain) {
/usr/local/share/perl5/Locale/gettext_pp.pm:252: \t\tif (defined $codeset &&
length $codeset) {
/usr/local/share/perl5/Locale/gettext_pp.pm:253: \t\t\treturn
$__gettext_pp_domain_codeset_bindings->{$domain} = $codeset;
/home/sympa/bin/Language.pm:193: bind_textdomain_codeset web_help =>
'utf-8';
/usr/local/share/perl5/Locale/Messages.pm:217: 'gettext_xs' eq $package ?
/usr/local/share/perl5/Locale/gettext_pp.pm:249: \tmy ($domain, $codeset) =
@_;
/usr/local/share/perl5/Locale/gettext_pp.pm:251: \tif (defined $domain &&
length $domain) {
/usr/local/share/perl5/Locale/gettext_pp.pm:252: \t\tif (defined $codeset &&
length $codeset) {
/usr/local/share/perl5/Locale/gettext_pp.pm:253: \t\t\treturn
$__gettext_pp_domain_codeset_bindings->{$domain} = $codeset;
/home/sympa/bin/Language.pm:195: $current_lang = $lang;
/home/sympa/bin/Language.pm:196: $current_locale = $locale;
/home/sympa/bin/Language.pm:197: my $locale2charset =
&Conf::get_robot_conf('', 'locale2charset');
/home/sympa/bin/Conf.pm:1238: my ($robot, $param) = @_;
/home/sympa/bin/Conf.pm:1240: if ($robot ne '*') {
/home/sympa/bin/Conf.pm:1241: \tif (defined $Conf{'robots'}{$robot} &&
defined $Conf{'robots'}{$robot}{$param}) {
/home/sympa/bin/Conf.pm:1247: return $Conf{$param} || $wwsconf->{$param};
/home/sympa/bin/Language.pm:198: $current_charset =
$locale2charset->{$locale} || 'utf-8';
/home/sympa/bin/Language.pm:200: return $locale;
/home/sympa/bin/Language.pm:137: return 1;
/home/sympa/bin/mail.pm:151: \t$message .= join('',$output);
/home/sympa/bin/mail.pm:152: \t$header_possible = 1;
/home/sympa/bin/mail.pm:159: if ($header_possible) {
/home/sympa/bin/mail.pm:161: \tforeach my $line (split(/\\n/,$message)) {
/home/sympa/bin/mail.pm:162: \t last if ($line=~/^\\s*$/);
/home/sympa/bin/mail.pm:164: \t if ($line=~/^[\\w-]+:\\s*/) { ## A header
field
/home/sympa/bin/mail.pm:165: \t\t$existing_headers=1;
/home/sympa/bin/mail.pm:172: \t foreach my $header
('to','from','subject','reply-to','mime-version',
'content-type','content-transfer-encoding') {
/home/sympa/bin/mail.pm:173: \t\tif ($line=~/^$header:/i) {
/home/sympa/bin/mail.pm:173: \t\tif ($line=~/^$header:/i) {
/home/sympa/bin/mail.pm:174: \t\t $header_ok{$header} = 1;
/home/sympa/bin/mail.pm:175: \t\t last;
/home/sympa/bin/mail.pm:162: \t last if ($line=~/^\\s*$/);
/home/sympa/bin/mail.pm:164: \t if ($line=~/^[\\w-]+:\\s*/) { ## A header
field
/home/sympa/bin/mail.pm:165: \t\t$existing_headers=1;
/home/sympa/bin/mail.pm:172: \t foreach my $header
('to','from','subject','reply-to','mime-version',
'content-type','content-transfer-encoding') {
/home/sympa/bin/mail.pm:173: \t\tif ($line=~/^$header:/i) {
/home/sympa/bin/mail.pm:174: \t\t $header_ok{$header} = 1;
/home/sympa/bin/mail.pm:175: \t\t last;
/home/sympa/bin/mail.pm:162: \t last if ($line=~/^\\s*$/);
/home/sympa/bin/mail.pm:164: \t if ($line=~/^[\\w-]+:\\s*/) { ## A header
field
/home/sympa/bin/mail.pm:165: \t\t$existing_headers=1;
/home/sympa/bin/mail.pm:172: \t foreach my $header
('to','from','subject','reply-to','mime-version',
'content-type','content-transfer-encoding') {
/home/sympa/bin/mail.pm:173: \t\tif ($line=~/^$header:/i) {
/home/sympa/bin/mail.pm:173: \t\tif ($line=~/^$header:/i) {
/home/sympa/bin/mail.pm:173: \t\tif ($line=~/^$header:/i) {
/home/sympa/bin/mail.pm:174: \t\t $header_ok{$header} = 1;
/home/sympa/bin/mail.pm:175: \t\t last;
/home/sympa/bin/mail.pm:162: \t last if ($line=~/^\\s*$/);
/home/sympa/bin/mail.pm:182: my $headers="";
/home/sympa/bin/mail.pm:184: unless ($header_ok{'to'}) {
/home/sympa/bin/mail.pm:200: unless ($header_ok{'from'}) {
/home/sympa/bin/mail.pm:213: unless ($header_ok{'subject'}) {
/home/sympa/bin/mail.pm:219: unless ($header_ok{'reply-to'}) {
/home/sympa/bin/mail.pm:220: \t$headers .= "Reply-to:
".MIME::EncWords::encode_mimewords(
/home/sympa/bin/mail.pm:225: if ($data->{'headers'}) {
/home/sympa/bin/mail.pm:233: unless ($header_ok{'mime-version'}) {
/home/sympa/bin/mail.pm:234: \t$headers .= "MIME-Version: 1.0\\n";
/home/sympa/bin/mail.pm:236: unless ($header_ok{'content-type'}) {
/home/sympa/bin/mail.pm:237: \t$headers .= "Content-Type: text/plain;
charset=".$data->{'charset'}."\\n";
/home/sympa/bin/mail.pm:239: unless
($header_ok{'content-transfer-encoding'}) {
/home/sympa/bin/mail.pm:240: \t$headers .= "Content-Transfer-Encoding:
8bit\\n";
/home/sympa/bin/mail.pm:246: unless ($data->{'not_auto_submitted'} ||
/home/sympa/bin/mail.pm:249: my $header_value =
$data->{'auto_submitted'} || 'auto-generated';
/home/sympa/bin/mail.pm:250: $headers .= "Auto-Submitted:
$header_value\\n";
/home/sympa/bin/mail.pm:253: unless ($existing_headers) {
/home/sympa/bin/mail.pm:258: my @msgs = ();
/home/sympa/bin/mail.pm:259: if (ref($data->{'msg_list'}) eq 'ARRAY') {
/home/sympa/bin/mail.pm:273: my $listname = '';
/home/sympa/bin/mail.pm:274: if (ref($data->{'list'}) eq "HASH") {
/home/sympa/bin/mail.pm:280: unless ($message =
&reformat_message("$headers"."$message", \\@msgs, $data->{'charset'})) {
/home/sympa/bin/mail.pm:954: my $message = shift;
/home/sympa/bin/mail.pm:955: my $attachments = shift || [];
/home/sympa/bin/mail.pm:956: my $defcharset = shift;
/home/sympa/bin/mail.pm:957: my $msg;
/home/sympa/bin/mail.pm:959: my $parser = new MIME::Parser;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:197: my $self = bless {},
shift;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:198: $self->init(@_);
/usr/share/perl5/vendor_perl/MIME/Parser.pm:213: my $self = shift;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:215:
$self->{MP5_DecodeHeaders} = 0;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:216:
$self->{MP5_DecodeBodies} = 1;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:217: $self->{MP5_Interface}
= {};
/usr/share/perl5/vendor_perl/MIME/Parser.pm:218: $self->{MP5_ParseNested}
= 'NEST';
/usr/share/perl5/vendor_perl/MIME/Parser.pm:219: $self->{MP5_TmpToCore}
= 0;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:220:
$self->{MP5_IgnoreErrors} = 1;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:221: $self->{MP5_UUDecode}
= 0;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:222: $self->{MP5_MaxParts}
= -1;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:223: $self->{MP5_TmpDir}
= undef;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:225:
$self->interface(ENTITY_CLASS => 'MIME::Entity');
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1574: my ($self, $role,
$value) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1575:
$self->{MP5_Interface}{$role} = $value if (defined($value));
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1576:
$self->{MP5_Interface}{$role};
/usr/share/perl5/vendor_perl/MIME/Parser.pm:226:
$self->interface(HEAD_CLASS => 'MIME::Head');
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1574: my ($self, $role,
$value) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1575:
$self->{MP5_Interface}{$role} = $value if (defined($value));
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1576:
$self->{MP5_Interface}{$role};
/usr/share/perl5/vendor_perl/MIME/Parser.pm:228: $self->output_dir(".");
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1301: my ($self, @init) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1302: if (@_ > 1) {
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1303:
\t$self->filer(MIME::Parser::FileInto->new(@init));
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:234: my ($class,
@initargs) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:235: my $self = bless {
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:245:
$self->init(@initargs);
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:779: my ($self, $dir) =
@_;
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:780: $self->{MPFI_Dir}
= $self->cleanup_dir($dir);
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:261: my ($self, $dir) =
@_;
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:262: $dir = '.' if
(!defined($dir) || ($dir eq '')); # coerce empty to "."
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:263: $dir = '/.' if
($dir eq '/'); # coerce "/" so "$dir/$filename" works
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:264: $dir =~ s|/$||;
# be nice: get rid of any trailing "/"
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:265: $dir;
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:246: $self;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1275: my ($self, $filer) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1276: if (@_ > 1) {
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1277: \t$self->{MP5_Filer} =
$filer;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1278:
\t$filer->results($self->results); ### but we still need in init_parse
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1756: shift->{MP5_Results};
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:280: my ($self,
$results) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:281:
$self->{MPF_Results} = $results if (@_ > 1);
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:282:
$self->{MPF_Results};
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1280: $self->{MP5_Filer};
/usr/share/perl5/vendor_perl/MIME/Parser.pm:230: $self;
/home/sympa/bin/mail.pm:960: unless (defined $parser) {
/home/sympa/bin/mail.pm:964: $parser->output_to_core(1);
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1451: my ($self, $yesno) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1452: if (@_ > 1) {
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1453: \t$yesno = 0 if ($yesno and
$yesno eq 'NONE');
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1454: \t$self->{MP5_FilerToCore}
= $yesno;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1456:
$self->{MP5_FilerToCore};
/home/sympa/bin/mail.pm:966: if (ref($message) eq 'MIME::Entity') {
/home/sympa/bin/mail.pm:969: \teval {
/home/sympa/bin/mail.pm:970: \t $msg = $parser->parse_data($message);
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1110: my ($self, $data) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1113: my $io;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1115: if (! ref $data ) {
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1116: $io =
IO::File->new(\\$data, '<:');
/usr/lib64/perl5/IO/File.pm:157: my $type = shift;
/usr/lib64/perl5/IO/File.pm:158: my $class = ref($type) || $type ||
"IO::File";
/usr/lib64/perl5/IO/File.pm:159: @_ >= 0 && @_ <= 3
/usr/lib64/perl5/IO/File.pm:161: my $fh = $class->SUPER::new();
/usr/lib64/perl5/IO/Handle.pm:311: my $class = ref($_[0]) || $_[0] ||
"IO::Handle";
/usr/lib64/perl5/IO/Handle.pm:312: if (@_ != 1) {
/usr/lib64/perl5/IO/Handle.pm:324: my $io = gensym;
/usr/share/perl5/Symbol.pm:101: my $name = "GEN" . $genseq++;
/usr/share/perl5/Symbol.pm:102: my $ref = \\*{$genpkg . $name};
/usr/share/perl5/Symbol.pm:102: my $ref = \\*{$genpkg . $name};
/usr/share/perl5/Symbol.pm:103: delete $$genpkg{$name};
/usr/share/perl5/Symbol.pm:104: $ref;
/usr/lib64/perl5/IO/Handle.pm:325: bless $io, $class;
/usr/lib64/perl5/IO/File.pm:162: if (@_) {
/usr/lib64/perl5/IO/File.pm:163: \t$fh->open(@_)
/usr/lib64/perl5/IO/File.pm:174: @_ >= 2 && @_ <= 4 or croak 'usage:
$fh->open(FILENAME [,MODE [,PERMS]])';
/usr/lib64/perl5/IO/File.pm:175: my ($fh, $file) = @_;
/usr/lib64/perl5/IO/File.pm:176: if (@_ > 2) {
/usr/lib64/perl5/IO/File.pm:177: \tmy ($mode, $perms) = @_[2, 3];
/usr/lib64/perl5/IO/File.pm:178: \tif
/usr/lib64/perl5/Sys/Syslog.pm:510: my $value = constant($name);
/usr/lib64/perl5/Sys/Syslog.pm:512: if (index($value, "not a valid") >=
0) {
/usr/lib64/perl5/Sys/Syslog.pm:513: $name = "Sys::Syslog::$name";
/usr/lib64/perl5/Sys/Syslog.pm:514: $value = eval { no strict "refs";
&$name };
/usr/lib64/perl5/Sys/Syslog.pm:514: $value = eval { no strict "refs";
&$name };
/usr/lib64/perl5/Sys/Syslog.pm:515: $value = $@ unless defined $value;
/usr/lib64/perl5/Sys/Syslog.pm:518: $value = -1 if index($value, "not a
valid") >= 0;
/usr/lib64/perl5/Sys/Syslog.pm:520: return defined $value ? $value : -1;
/usr/lib64/perl5/Sys/Syslog.pm:355: connect_log() unless $connected;
/usr/lib64/perl5/Sys/Syslog.pm:357: if ($mask =~ /%m/) {
/usr/lib64/perl5/Sys/Syslog.pm:364: $mask .= "\\n" unless $mask =~ /\\n$/;
/usr/lib64/perl5/Sys/Syslog.pm:365: $message = @_ ? sprintf($mask, @_) :
$mask;
/usr/lib64/perl5/vendor_perl/FCGI.pm:89: $warn_handler = sub { print STDERR
@_ };Use of uninitialized value $_[1] in sprintf at
/usr/lib64/perl5/Sys/Syslog.pm line 365.
/usr/lib64/perl5/Sys/Syslog.pm:369: chomp $message if $^O =~ /darwin/;
/usr/lib64/perl5/Sys/Syslog.pm:371: if ($current_proto eq 'native') {
/usr/lib64/perl5/Sys/Syslog.pm:378: my $whoami = $ident;
/usr/lib64/perl5/Sys/Syslog.pm:379: $whoami .= "[$$]" if
$options{pid};
/usr/lib64/perl5/Sys/Syslog.pm:381: $sum = $numpri + $numfac;
/usr/lib64/perl5/Sys/Syslog.pm:382: my $oldlocale =
setlocale(LC_TIME);
/usr/lib64/perl5/Sys/Syslog.pm:383: setlocale(LC_TIME, 'C');
/usr/lib64/perl5/Sys/Syslog.pm:384: my $timestamp = strftime "%b %e
%T", localtime;
/usr/lib64/perl5/Sys/Syslog.pm:385: setlocale(LC_TIME, $oldlocale);
/usr/lib64/perl5/Sys/Syslog.pm:386: $buf = "<$sum>$timestamp $whoami:
$message\\0";
/usr/lib64/perl5/Sys/Syslog.pm:391: if ($options{perror} and
$current_proto ne 'native') {
/usr/lib64/perl5/Sys/Syslog.pm:403: while (scalar @fallbackMethods ||
$syslog_send) {
/usr/lib64/perl5/Sys/Syslog.pm:404: \tif ($failed && (time - $fail_time) >
60) {
/usr/lib64/perl5/Sys/Syslog.pm:412: \tif ($connected && !connection_ok()) {
/usr/lib64/perl5/Sys/Syslog.pm:776: return 1 if defined $current_proto
and (
/usr/lib64/perl5/Sys/Syslog.pm:781: my $rin = '';
/usr/lib64/perl5/Sys/Syslog.pm:782: vec($rin, fileno(SYSLOG), 1) = 1;
/usr/lib64/perl5/Sys/Syslog.pm:783: my $ret = select $rin, undef, $rin,
$sock_timeout;
/usr/lib64/perl5/Sys/Syslog.pm:784: return ($ret ? 0 : 1);
/usr/lib64/perl5/Sys/Syslog.pm:420: \tconnect_log() unless $connected;
/usr/lib64/perl5/Sys/Syslog.pm:421: \t$failed = undef if ($current_proto &&
$failed && $current_proto eq $failed);
/usr/lib64/perl5/Sys/Syslog.pm:423: \tif ($syslog_send) {
/usr/lib64/perl5/Sys/Syslog.pm:424: if ($syslog_send->($buf,
$numpri, $numfac)) {
/usr/lib64/perl5/Sys/Syslog.pm:481: my ($buf) = @_;
/usr/lib64/perl5/Sys/Syslog.pm:482: return syswrite(SYSLOG, $buf,
length($buf));
/usr/lib64/perl5/Sys/Syslog.pm:425: \t\t$transmit_ok++;
/usr/lib64/perl5/Sys/Syslog.pm:426: \t\treturn 1;
/home/sympa/bin/Log.pm:124: if ($@ && ($warning_date < time -
$warning_timeout)) {
/home/sympa/bin/Log.pm:131: if ($main::options{'foreground'}) {
/home/sympa/bin/Message.pm:127: if (ref($file) =~ /MIME::Entity/i) {
/home/sympa/bin/Message.pm:138: $message->{'filename'} = $file;
/home/sympa/bin/Message.pm:139: unless (open FILE, $file) {
/home/sympa/bin/Message.pm:144: my $parser = new MIME::Parser;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:197: my $self = bless {},
shift;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:198: $self->init(@_);
/usr/share/perl5/vendor_perl/MIME/Parser.pm:213: my $self = shift;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:215:
$self->{MP5_DecodeHeaders} = 0;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:216:
$self->{MP5_DecodeBodies} = 1;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:217: $self->{MP5_Interface}
= {};
/usr/share/perl5/vendor_perl/MIME/Parser.pm:218: $self->{MP5_ParseNested}
= 'NEST';
/usr/share/perl5/vendor_perl/MIME/Parser.pm:219: $self->{MP5_TmpToCore}
= 0;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:220:
$self->{MP5_IgnoreErrors} = 1;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:221: $self->{MP5_UUDecode}
= 0;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:222: $self->{MP5_MaxParts}
= -1;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:223: $self->{MP5_TmpDir}
= undef;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:225:
$self->interface(ENTITY_CLASS => 'MIME::Entity');
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1574: my ($self, $role,
$value) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1575:
$self->{MP5_Interface}{$role} = $value if (defined($value));
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1576:
$self->{MP5_Interface}{$role};
/usr/share/perl5/vendor_perl/MIME/Parser.pm:226:
$self->interface(HEAD_CLASS => 'MIME::Head');
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1574: my ($self, $role,
$value) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1575:
$self->{MP5_Interface}{$role} = $value if (defined($value));
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1576:
$self->{MP5_Interface}{$role};
/usr/share/perl5/vendor_perl/MIME/Parser.pm:228: $self->output_dir(".");
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1301: my ($self, @init) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1302: if (@_ > 1) {
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1303:
\t$self->filer(MIME::Parser::FileInto->new(@init));
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:234: my ($class,
@initargs) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:235: my $self = bless {
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:245:
$self->init(@initargs);
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:779: my ($self, $dir) =
@_;
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:780: $self->{MPFI_Dir}
= $self->cleanup_dir($dir);
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:261: my ($self, $dir) =
@_;
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:262: $dir = '.' if
(!defined($dir) || ($dir eq '')); # coerce empty to "."
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:263: $dir = '/.' if
($dir eq '/'); # coerce "/" so "$dir/$filename" works
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:264: $dir =~ s|/$||;
# be nice: get rid of any trailing "/"
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:265: $dir;
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:246: $self;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1275: my ($self, $filer) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1276: if (@_ > 1) {
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1277: \t$self->{MP5_Filer} =
$filer;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1278:
\t$filer->results($self->results); ### but we still need in init_parse
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1756: shift->{MP5_Results};
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:280: my ($self,
$results) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:281:
$self->{MPF_Results} = $results if (@_ > 1);
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:282:
$self->{MPF_Results};
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1280: $self->{MP5_Filer};
/usr/share/perl5/vendor_perl/MIME/Parser.pm:230: $self;
/home/sympa/bin/Message.pm:145: $parser->output_to_core(1);
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1451: my ($self, $yesno) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1452: if (@_ > 1) {
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1453: \t$yesno = 0 if ($yesno and
$yesno eq 'NONE');
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1454: \t$self->{MP5_FilerToCore}
= $yesno;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1456:
$self->{MP5_FilerToCore};
/home/sympa/bin/Message.pm:147: my $msg;
/home/sympa/bin/Message.pm:148: unless ($msg = $parser->read(\\*FILE)) {
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1164: shift->parse(@_);
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1151: my $self = shift;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1152: my $in = shift;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1153: my $entity;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1154: local $/ = "\\n";
### just to be safe
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1156: $self->init_parse;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:244: my $self = shift;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:246: $self->{MP5_Results} =
new MIME::Parser::Results;
/usr/share/perl5/vendor_perl/MIME/Parser/Results.pm:57: bless {
/usr/share/perl5/vendor_perl/MIME/Parser.pm:248:
$self->{MP5_Filer}->results($self->{MP5_Results});
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:280: my ($self,
$results) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:281:
$self->{MPF_Results} = $results if (@_ > 1);
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:282:
$self->{MPF_Results};
/usr/share/perl5/vendor_perl/MIME/Parser.pm:249:
$self->{MP5_Filer}->purgeable([]);
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:738: my ($self, $path)
= @_;
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:739: return
@{$self->{MPF_Purgeable}} if (@_ == 1);
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:741: if (ref($path)) {
$self->{MPF_Purgeable} = [ @$path ]; }
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:741: if (ref($path)) {
$self->{MPF_Purgeable} = [ @$path ]; }
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:743: 1;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:250:
$self->{MP5_Filer}->init_parse();
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:318: my $self = shift;
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:319:
$self->{MPF_Purgeable} = [];
/usr/share/perl5/vendor_perl/MIME/Parser.pm:251: $self->{MP5_NumParts} =
0;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:252: 1;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1157: $entity =
$self->process_part($in, undef); ### parse!
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1000: my ($self, $in, $rdr,
%p) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1002: if
($self->{MP5_MaxParts} > 0) {
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1010: $rdr ||=
MIME::Parser::Reader->new;
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:54: my ($class) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:55: my $eos;
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:56: return bless {
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1012:
$self->results->level(+1);
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1756: shift->{MP5_Results};
/usr/share/perl5/vendor_perl/MIME/Parser/Results.pm:153: my ($self, $lvl)
= @_;
/usr/share/perl5/vendor_perl/MIME/Parser/Results.pm:154:
$self->{MPI_Level} += $lvl if @_ > 1;
/usr/share/perl5/vendor_perl/MIME/Parser/Results.pm:155:
$self->{MPI_Level};
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1015: my $ent =
$self->interface('ENTITY_CLASS')->new;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1574: my ($self, $role,
$value) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1575:
$self->{MP5_Interface}{$role} = $value if (defined($value));
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1576:
$self->{MP5_Interface}{$role};
/usr/share/perl5/vendor_perl/MIME/Entity.pm:337: my $class = shift;
/usr/share/perl5/vendor_perl/MIME/Entity.pm:338: my $self =
$class->Mail::Internet::new(@_); ### inherited
/usr/share/perl5/vendor_perl/Mail/Internet.pm:19: { my $call = shift;
/usr/share/perl5/vendor_perl/Mail/Internet.pm:20: my $arg = @_ % 2 ?
shift : undef;
/usr/share/perl5/vendor_perl/Mail/Internet.pm:21: my %opt = @_;
/usr/share/perl5/vendor_perl/Mail/Internet.pm:23: my $class = ref($call)
|| $call;
/usr/share/perl5/vendor_perl/Mail/Internet.pm:24: my $self = bless {},
$class;
/usr/share/perl5/vendor_perl/Mail/Internet.pm:26: $self->{mail_inet_head}
= $opt{Header} if exists $opt{Header};
/usr/share/perl5/vendor_perl/Mail/Internet.pm:27: $self->{mail_inet_body}
= $opt{Body} if exists $opt{Body};
/usr/share/perl5/vendor_perl/Mail/Internet.pm:29: my $head = $self->head;
/usr/share/perl5/vendor_perl/MIME/Entity.pm:899: my ($self, $value) = @_;
/usr/share/perl5/vendor_perl/MIME/Entity.pm:900: (@_ > 1) and
$self->{'mail_inet_head'} = $value;
/usr/share/perl5/vendor_perl/MIME/Entity.pm:901:
$self->{'mail_inet_head'} ||= new MIME::Head; ### KLUDGE!
/usr/share/perl5/vendor_perl/MIME/Head.pm:169: my $class = shift;
/usr/share/perl5/vendor_perl/MIME/Head.pm:170: bless
Mail::Header->new(@_), $class;
/usr/share/perl5/vendor_perl/Mail/Header.pm:227: { my $call = shift;
/usr/share/perl5/vendor_perl/Mail/Header.pm:228: my $class = ref($call)
|| $call;
/usr/share/perl5/vendor_perl/Mail/Header.pm:229: my $arg = @_ % 2 ?
shift : undef;
/usr/share/perl5/vendor_perl/Mail/Header.pm:230: my %opt = @_;
/usr/share/perl5/vendor_perl/Mail/Header.pm:232: $opt{Modify} = delete
$opt{Reformat}
/usr/share/perl5/vendor_perl/Mail/Header.pm:235: my $self = bless
/usr/share/perl5/vendor_perl/Mail/Header.pm:243: $self->mail_from(
uc($opt{MailFrom} || $MAIL_FROM) );
/usr/share/perl5/vendor_perl/Mail/Header.pm:385: { my $thing = shift;
/usr/share/perl5/vendor_perl/Mail/Header.pm:386: my $choice = uc shift;
/usr/share/perl5/vendor_perl/Mail/Header.pm:388: $choice =~
/^(IGNORE|ERROR|COERCE|KEEP)$/
/usr/share/perl5/vendor_perl/Mail/Header.pm:391: if(ref $thing) {
$thing->{mail_hdr_mail_from} = $choice }
/usr/share/perl5/vendor_perl/Mail/Header.pm:391: if(ref $thing) {
$thing->{mail_hdr_mail_from} = $choice }
/usr/share/perl5/vendor_perl/Mail/Header.pm:394: $thing;
/usr/share/perl5/vendor_perl/Mail/Header.pm:245:
$self->fold_length($opt{FoldLength})
/usr/share/perl5/vendor_perl/Mail/Header.pm:248: if(!ref $arg)
{}
/usr/share/perl5/vendor_perl/Mail/Header.pm:252: $self;
/usr/share/perl5/vendor_perl/Mail/Internet.pm:30:
$head->fold_length(delete $opt{FoldLength} || 79);
/usr/share/perl5/vendor_perl/Mail/Header.pm:399: { my $thing = shift;
/usr/share/perl5/vendor_perl/Mail/Header.pm:400: my $old;
/usr/share/perl5/vendor_perl/Mail/Header.pm:402: if(@_ == 2)
/usr/share/perl5/vendor_perl/Mail/Header.pm:411: { my $self = $thing;
/usr/share/perl5/vendor_perl/Mail/Header.pm:412: my $len = shift;
/usr/share/perl5/vendor_perl/Mail/Header.pm:413: $old =
$self->{mail_hdr_foldlen};
/usr/share/perl5/vendor_perl/Mail/Header.pm:415: if(defined $len)
/usr/share/perl5/vendor_perl/Mail/Header.pm:416: {
$self->{mail_hdr_foldlen} = $len > 20 ? $len : 20;
/usr/share/perl5/vendor_perl/Mail/Header.pm:417: $self->fold if
$self->{mail_hdr_modify};
/usr/share/perl5/vendor_perl/Mail/Header.pm:421: $old;
/usr/share/perl5/vendor_perl/Mail/Internet.pm:31:
$head->mail_from($opt{MailFrom}) if exists $opt{MailFrom};
/usr/share/perl5/vendor_perl/Mail/Internet.pm:32: $head->modify(exists
$opt{Modify} ? $opt{Modify} : 1);
/usr/share/perl5/vendor_perl/Mail/Header.pm:374: { my $self = shift;
/usr/share/perl5/vendor_perl/Mail/Header.pm:375: my $old =
$self->{mail_hdr_modify};
/usr/share/perl5/vendor_perl/Mail/Header.pm:377: $self->{mail_hdr_modify}
= 0 + shift
/usr/share/perl5/vendor_perl/Mail/Header.pm:380: $old;
/usr/share/perl5/vendor_perl/Mail/Internet.pm:34: if(!defined $arg) { }
/usr/share/perl5/vendor_perl/Mail/Internet.pm:47: $self;
/usr/share/perl5/vendor_perl/MIME/Entity.pm:339: $self->{ME_Parts} = [];
### no parts extracted
/usr/share/perl5/vendor_perl/MIME/Entity.pm:340: $self;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1018: my $head =
$self->process_header($in, $rdr);
/usr/share/perl5/vendor_perl/MIME/Parser.pm:612: my ($self, $in, $rdr) =
@_;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:613:
$self->debug("process_header");
/usr/share/perl5/vendor_perl/MIME/Parser.pm:489: my $self = shift;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:490: if
(MIME::Tools->debugging()) {
/usr/share/perl5/vendor_perl/MIME/Tools.pm:65: my ($class, $value) = @_;
/usr/share/perl5/vendor_perl/MIME/Tools.pm:66: $CONFIG{'DEBUGGING'} =
$value if (@_ > 1);
/usr/share/perl5/vendor_perl/MIME/Tools.pm:67: return
$CONFIG{'DEBUGGING'};
/usr/share/perl5/vendor_perl/MIME/Parser.pm:617: my $head =
$self->interface('HEAD_CLASS')->new;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1574: my ($self, $role,
$value) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1575:
$self->{MP5_Interface}{$role} = $value if (defined($value));
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1576:
$self->{MP5_Interface}{$role};
/usr/share/perl5/vendor_perl/MIME/Head.pm:169: my $class = shift;
/usr/share/perl5/vendor_perl/MIME/Head.pm:170: bless
Mail::Header->new(@_), $class;
/usr/share/perl5/vendor_perl/Mail/Header.pm:227: { my $call = shift;
/usr/share/perl5/vendor_perl/Mail/Header.pm:228: my $class = ref($call)
|| $call;
/usr/share/perl5/vendor_perl/Mail/Header.pm:229: my $arg = @_ % 2 ?
shift : undef;
/usr/share/perl5/vendor_perl/Mail/Header.pm:230: my %opt = @_;
/usr/share/perl5/vendor_perl/Mail/Header.pm:232: $opt{Modify} = delete
$opt{Reformat}
/usr/share/perl5/vendor_perl/Mail/Header.pm:235: my $self = bless
/usr/share/perl5/vendor_perl/Mail/Header.pm:243: $self->mail_from(
uc($opt{MailFrom} || $MAIL_FROM) );
/usr/share/perl5/vendor_perl/Mail/Header.pm:385: { my $thing = shift;
/usr/share/perl5/vendor_perl/Mail/Header.pm:386: my $choice = uc shift;
/usr/share/perl5/vendor_perl/Mail/Header.pm:388: $choice =~
/^(IGNORE|ERROR|COERCE|KEEP)$/
/usr/share/perl5/vendor_perl/Mail/Header.pm:391: if(ref $thing) {
$thing->{mail_hdr_mail_from} = $choice }
/usr/share/perl5/vendor_perl/Mail/Header.pm:391: if(ref $thing) {
$thing->{mail_hdr_mail_from} = $choice }
/usr/share/perl5/vendor_perl/Mail/Header.pm:394: $thing;
/usr/share/perl5/vendor_perl/Mail/Header.pm:245:
$self->fold_length($opt{FoldLength})
/usr/share/perl5/vendor_perl/Mail/Header.pm:248: if(!ref $arg)
{}
/usr/share/perl5/vendor_perl/Mail/Header.pm:252: $self;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:621: my @headlines;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:622: my $hdr_rdr =
$rdr->spawn;
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:73: my $self = shift;
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:74: my $dup = bless
{}, ref($self);
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:75: $dup->{Bounds} = [
@{$self->{Bounds}} ]; ### deep copy
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:75: $dup->{Bounds} = [
@{$self->{Bounds}} ]; ### deep copy
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:76: $dup->{BH} = {
%{$self->{BH}} }; ### deep copy
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:76: $dup->{BH} = {
%{$self->{BH}} }; ### deep copy
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:77: $dup->{TH} = {
%{$self->{TH}} }; ### deep copy
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:77: $dup->{TH} = {
%{$self->{TH}} }; ### deep copy
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:78: $dup->{EOS} =
$self->{EOS}; ### shallow copy; same ref!
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:79: $dup;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:623:
$hdr_rdr->add_terminator("");
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:105: my ($self, $line)
= @_;
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:106: foreach (@EOLs) {
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:107:
\t$self->{TH}{"$line$_"} = "DONE $line";
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:107:
\t$self->{TH}{"$line$_"} = "DONE $line";
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:107:
\t$self->{TH}{"$line$_"} = "DONE $line";
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:107:
\t$self->{TH}{"$line$_"} = "DONE $line";
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:107:
\t$self->{TH}{"$line$_"} = "DONE $line";
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:109: $self;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:624:
$hdr_rdr->add_terminator("\\r"); ### sigh
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:105: my ($self, $line)
= @_;
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:106: foreach (@EOLs) {
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:107:
\t$self->{TH}{"$line$_"} = "DONE $line";
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:107:
\t$self->{TH}{"$line$_"} = "DONE $line";
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:107:
\t$self->{TH}{"$line$_"} = "DONE $line";
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:107:
\t$self->{TH}{"$line$_"} = "DONE $line";
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:107:
\t$self->{TH}{"$line$_"} = "DONE $line";
/usr/share/perl5/vendor_perl/MIME/Parser/Reader.pm:109: $self;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:626: my $headstr = '';
/usr/share/perl5/vendor_perl/MIME/Parser.pm:627: open(my $outfh,
'>:scalar', \\$headstr)
/usr/local/share/perl5/MIME/EncWords.pm:730: \t\tnext unless scalar(@words)
or length($w); # skip garbage
/usr/local/share/perl5/MIME/EncWords.pm:731: \t\tif ($w =~ /[\\t ]/) {
/usr/local/share/perl5/MIME/EncWords.pm:737: \t\tmy $u = $w;
/usr/local/share/perl5/MIME/EncWords.pm:738: \t\tif ($charsetobj->as_string
=~ /$ASCIITRANS/) {
/usr/local/share/perl5/MIME/Charset.pm:487: my $self = shift;
/usr/local/share/perl5/MIME/Charset.pm:488: $self->{InputCharset};
/usr/local/share/perl5/MIME/EncWords.pm:749: \t\tif (scalar(@words)) {
/usr/local/share/perl5/MIME/EncWords.pm:763: \t\t push @words, $spc.$w;
/usr/local/share/perl5/MIME/EncWords.pm:764: \t\t $unsafe_last =
/usr/local/share/perl5/MIME/EncWords.pm:767: \t\t$spc = '';
/usr/local/share/perl5/MIME/EncWords.pm:769: \t if ($spc) {
/usr/local/share/perl5/MIME/EncWords.pm:779: \t$words = [map { [$_,
$Params{Charset}] } @words];
/usr/local/share/perl5/MIME/EncWords.pm:779: \t$words = [map { [$_,
$Params{Charset}] } @words];
/usr/local/share/perl5/MIME/EncWords.pm:783: my @triplets;
/usr/local/share/perl5/MIME/EncWords.pm:784: foreach (@$words) {
/usr/local/share/perl5/MIME/EncWords.pm:785: \tmy ($s, $cset) = @$_;
/usr/local/share/perl5/MIME/EncWords.pm:786: \tnext unless length($s);
/usr/local/share/perl5/MIME/EncWords.pm:787: \tmy $csetobj =
MIME::Charset->new($cset || "",
/usr/local/share/perl5/MIME/Charset.pm:367: my $class = shift;
/usr/local/share/perl5/MIME/Charset.pm:368: my $charset = shift;
/usr/local/share/perl5/MIME/Charset.pm:369: return bless {}, $class
unless $charset;
/usr/local/share/perl5/MIME/Charset.pm:370: return bless {}, $class if 75
< length $charset; # w/a for CPAN RT #65796.
/usr/local/share/perl5/MIME/Charset.pm:371: my %params = @_;
/usr/local/share/perl5/MIME/Charset.pm:372: my $mapping =
uc($params{'Mapping'} || $Config->{Mapping});
/usr/local/share/perl5/MIME/Charset.pm:374: if ($charset =~
/\\bhz.?gb.?2312$/i) {
/usr/local/share/perl5/MIME/Charset.pm:384: \t$charset =
resolve_alias($charset) || $charset
/usr/lib64/perl5/Encode.pm:131: my $obj = find_encoding(shift);
/usr/lib64/perl5/Encode.pm:126: my ( $name, $skip_external ) = @_;
/usr/lib64/perl5/Encode.pm:127: return __PACKAGE__->getEncoding( $name,
$skip_external );
/usr/lib64/perl5/Encode.pm:102: my ( $class, $name, $skip_external ) = @_;
/usr/lib64/perl5/Encode.pm:104: ref($name) && $name->can('renew') and
return $name;
/usr/lib64/perl5/Encode.pm:105: exists $Encoding{$name} and return
$Encoding{$name};
/usr/lib64/perl5/Encode.pm:106: my $lc = lc $name;
/usr/lib64/perl5/Encode.pm:107: exists $Encoding{$lc} and return
$Encoding{$lc};
/usr/lib64/perl5/Encode.pm:109: my $oc = $class->find_alias($name);
/usr/lib64/perl5/Encode/Alias.pm:22: require Encode;
/usr/lib64/perl5/Encode/Alias.pm:23: my $class = shift;
/usr/lib64/perl5/Encode/Alias.pm:24: my $find = shift;
/usr/lib64/perl5/Encode/Alias.pm:25: unless ( exists $Alias{$find} ) {
/usr/lib64/perl5/Encode/Alias.pm:67: if (DEBUG) {
/usr/lib64/perl5/Encode/Alias.pm:77: return $Alias{$find};
/usr/lib64/perl5/Encode.pm:110: defined($oc) and return $oc;
/usr/lib64/perl5/Encode.pm:132: defined $obj and return $obj->name;
/usr/lib64/perl5/Encode/Encoding.pm:21: sub name { return shift->{'Name'} }
/usr/local/share/perl5/MIME/Charset.pm:386: $charset =
$CHARSET_ALIASES{uc($charset)} || uc($charset);
/usr/local/share/perl5/MIME/Charset.pm:387: my ($henc, $benc, $outcset);
/usr/local/share/perl5/MIME/Charset.pm:388: my $spec =
$CHARSETS{$charset};
/usr/local/share/perl5/MIME/Charset.pm:389: if ($spec) {
/usr/local/share/perl5/MIME/Charset.pm:390: \t($henc, $benc, $outcset) =
/usr/local/share/perl5/MIME/Charset.pm:395: my ($decoder, $encoder);
/usr/local/share/perl5/MIME/Charset.pm:396: if (USE_ENCODE) {
/usr/local/share/perl5/MIME/Charset.pm:397: \t$decoder =
_find_encoder($charset, $mapping);
/usr/local/share/perl5/MIME/Charset.pm:416: my $charset = uc(shift || "");
/usr/local/share/perl5/MIME/Charset.pm:417: return undef unless $charset;
/usr/local/share/perl5/MIME/Charset.pm:418: my $mapping = uc(shift);
/usr/local/share/perl5/MIME/Charset.pm:419: my ($spec, $name, $module,
$encoder);
/usr/local/share/perl5/MIME/Charset.pm:421: local($@);
/usr/local/share/perl5/MIME/Charset.pm:422: $encoder =
$encoder_cache{$charset, $mapping};
/usr/local/share/perl5/MIME/Charset.pm:423: return $encoder if ref
$encoder;
/usr/local/share/perl5/MIME/Charset.pm:398: \t$encoder =
_find_encoder($outcset, $mapping);
/usr/local/share/perl5/MIME/Charset.pm:416: my $charset = uc(shift || "");
/usr/local/share/perl5/MIME/Charset.pm:417: return undef unless $charset;
/usr/local/share/perl5/MIME/Charset.pm:403: bless {
/usr/local/share/perl5/MIME/EncWords.pm:791: \tmy $enc;
/usr/local/share/perl5/MIME/EncWords.pm:792: \tmy $obj = $csetobj;
/usr/local/share/perl5/MIME/EncWords.pm:793: \tunless ($obj->as_string) {
/usr/local/share/perl5/MIME/Charset.pm:487: my $self = shift;
/usr/local/share/perl5/MIME/Charset.pm:488: $self->{InputCharset};
/usr/local/share/perl5/MIME/EncWords.pm:799: \t($s, $cset, $enc) =
/usr/local/share/perl5/MIME/Charset.pm:849: my $self = shift;
/usr/local/share/perl5/MIME/Charset.pm:850: my $text;
/usr/local/share/perl5/MIME/Charset.pm:851: if (ref $self) {
/usr/local/share/perl5/MIME/Charset.pm:852: \t$text = shift;
/usr/local/share/perl5/MIME/Charset.pm:857: my ($encoded, $charset) =
$self->_text_encode($text, @_);
/usr/local/share/perl5/MIME/Charset.pm:878: my $charset = shift;
/usr/local/share/perl5/MIME/Charset.pm:879: my $s = shift;
/usr/local/share/perl5/MIME/Charset.pm:880: my %params = @_;
/usr/local/share/perl5/MIME/Charset.pm:881: my $replacement =
uc($params{'Replacement'} || $Config->{Replacement});
/usr/local/share/perl5/MIME/Charset.pm:882: my $detect7bit =
uc($params{'Detect7bit'} || $Config->{Detect7bit});
/usr/local/share/perl5/MIME/Charset.pm:883: my $encoding =
$params{'Encoding'} ||
/usr/local/share/perl5/MIME/Charset.pm:886: if (!$encoding or $encoding
ne 'A') { # no 7-bit auto-detection
/usr/local/share/perl5/MIME/Charset.pm:889: unless
($charset->{InputCharset}) {
/usr/local/share/perl5/MIME/Charset.pm:899: if (!$encoding or $encoding
ne 'A') { # no conversion
/usr/local/share/perl5/MIME/Charset.pm:905: my $check = ($replacement and
$replacement =~ /^\\d+$/)?
/usr/local/share/perl5/MIME/Charset.pm:918: my $encoded;
/usr/local/share/perl5/MIME/Charset.pm:919: if (is_utf8($s) or $s =~
/[^\\x00-\\xFF]/ or
/usr/local/share/perl5/MIME/Charset.pm:921: \tif ($check & 0x1) { # CROAK or
FALLBACK
/usr/local/share/perl5/MIME/Charset.pm:947: \t $encoded = $s;
/usr/local/share/perl5/MIME/Charset.pm:948: \t $encoded =
$charset->encode($encoded, $check);
/usr/local/share/perl5/MIME/Charset.pm:730: my $self = shift;
/usr/local/share/perl5/MIME/Charset.pm:731: my $s = shift;
/usr/local/share/perl5/MIME/Charset.pm:732: my $check = shift || 0;
/usr/local/share/perl5/MIME/Charset.pm:734: unless (is_utf8($s) or $s =~
/[^\\x00-\\xFF]/) {
/usr/local/share/perl5/MIME/Charset.pm:737: my $enc =
$self->{Encoder}->encode($s, $check);
/usr/local/share/perl5/MIME/Charset.pm:738: Encode::_utf8_off($enc) if
is_utf8($enc); # workaround for RT #35120
/usr/local/share/perl5/MIME/Charset.pm:739: $enc;
/usr/local/share/perl5/MIME/Charset.pm:954: if ($encoded !~
/$NONASCIIRE/) { # maybe ASCII
/usr/local/share/perl5/MIME/Charset.pm:956: \tif ($charset->{OutputCharset}
=~ /^($ASCIITRANSRE)$/) {
/usr/local/share/perl5/MIME/Charset.pm:968: \t $charset = $charset->dup;
/usr/local/share/perl5/MIME/Charset.pm:511: my $self = shift;
/usr/local/share/perl5/MIME/Charset.pm:512: my $obj =
__PACKAGE__->new(undef);
/usr/local/share/perl5/MIME/Charset.pm:367: my $class = shift;
/usr/local/share/perl5/MIME/Charset.pm:368: my $charset = shift;
/usr/local/share/perl5/MIME/Charset.pm:369: return bless {}, $class
unless $charset;
/usr/local/share/perl5/MIME/Charset.pm:513: %{$obj} = %{$self};
/usr/local/share/perl5/MIME/Charset.pm:513: %{$obj} = %{$self};
/usr/local/share/perl5/MIME/Charset.pm:513: %{$obj} = %{$self};
/usr/local/share/perl5/MIME/Charset.pm:514: $obj;
/usr/local/share/perl5/MIME/Charset.pm:969: \t
$charset->encoder($DEFAULT_CHARSET);
/usr/local/share/perl5/MIME/Charset.pm:530: my $self = shift;
/usr/local/share/perl5/MIME/Charset.pm:531: my $charset = shift;
/usr/local/share/perl5/MIME/Charset.pm:532: if ($charset) {
/usr/local/share/perl5/MIME/Charset.pm:533: \t$charset =
__PACKAGE__->new($charset) unless ref $charset;
/usr/local/share/perl5/MIME/Charset.pm:367: my $class = shift;
/usr/local/share/perl5/MIME/Charset.pm:368: my $charset = shift;
/usr/local/share/perl5/MIME/Charset.pm:369: return bless {}, $class
unless $charset;
/usr/local/share/perl5/MIME/Charset.pm:370: return bless {}, $class if 75
< length $charset; # w/a for CPAN RT #65796.
/usr/local/share/perl5/MIME/Charset.pm:371: my %params = @_;
/usr/local/share/perl5/MIME/Charset.pm:372: my $mapping =
uc($params{'Mapping'} || $Config->{Mapping});
/usr/local/share/perl5/MIME/Charset.pm:374: if ($charset =~
/\\bhz.?gb.?2312$/i) {
/usr/local/share/perl5/MIME/Charset.pm:384: \t$charset =
resolve_alias($charset) || $charset
/usr/lib64/perl5/Encode.pm:131: my $obj = find_encoding(shift);
/usr/lib64/perl5/Encode.pm:126: my ( $name, $skip_external ) = @_;
/usr/lib64/perl5/Encode.pm:127: return __PACKAGE__->getEncoding( $name,
$skip_external );
/usr/lib64/perl5/Encode.pm:102: my ( $class, $name, $skip_external ) = @_;
/usr/lib64/perl5/Encode.pm:104: ref($name) && $name->can('renew') and
return $name;
/usr/lib64/perl5/Encode.pm:105: exists $Encoding{$name} and return
$Encoding{$name};
/usr/lib64/perl5/Encode.pm:106: my $lc = lc $name;
/usr/lib64/perl5/Encode.pm:107: exists $Encoding{$lc} and return
$Encoding{$lc};
/usr/lib64/perl5/Encode.pm:109: my $oc = $class->find_alias($name);
/usr/lib64/perl5/Encode/Alias.pm:22: require Encode;
/usr/lib64/perl5/Encode/Alias.pm:23: my $class = shift;
/usr/lib64/perl5/Encode/Alias.pm:24: my $find = shift;
/usr/lib64/perl5/Encode/Alias.pm:25: unless ( exists $Alias{$find} ) {
/usr/lib64/perl5/Encode/Alias.pm:67: if (DEBUG) {
/usr/lib64/perl5/Encode/Alias.pm:77: return $Alias{$find};
/usr/lib64/perl5/Encode.pm:110: defined($oc) and return $oc;
/usr/lib64/perl5/Encode.pm:132: defined $obj and return $obj->name;
/usr/local/share/perl5/MIME/Charset.pm:386: $charset =
$CHARSET_ALIASES{uc($charset)} || uc($charset);
/usr/local/share/perl5/MIME/Charset.pm:387: my ($henc, $benc, $outcset);
/usr/local/share/perl5/MIME/Charset.pm:388: my $spec =
$CHARSETS{$charset};
/usr/local/share/perl5/MIME/Charset.pm:389: if ($spec) {
/usr/local/share/perl5/MIME/Charset.pm:390: \t($henc, $benc, $outcset) =
/usr/local/share/perl5/MIME/Charset.pm:395: my ($decoder, $encoder);
/usr/local/share/perl5/MIME/Charset.pm:396: if (USE_ENCODE) {
/usr/local/share/perl5/MIME/Charset.pm:397: \t$decoder =
_find_encoder($charset, $mapping);
/usr/local/share/perl5/MIME/Charset.pm:416: my $charset = uc(shift || "");
/usr/local/share/perl5/MIME/Charset.pm:417: return undef unless $charset;
/usr/local/share/perl5/MIME/Charset.pm:418: my $mapping = uc(shift);
/usr/local/share/perl5/MIME/Charset.pm:419: my ($spec, $name, $module,
$encoder);
/usr/local/share/perl5/MIME/Charset.pm:421: local($@);
/usr/local/share/perl5/MIME/Charset.pm:422: $encoder =
$encoder_cache{$charset, $mapping};
/usr/local/share/perl5/MIME/Charset.pm:423: return $encoder if ref
$encoder;
/usr/local/share/perl5/MIME/Charset.pm:398: \t$encoder =
_find_encoder($outcset, $mapping);
/usr/local/share/perl5/MIME/Charset.pm:416: my $charset = uc(shift || "");
/usr/local/share/perl5/MIME/Charset.pm:417: return undef unless $charset;
/usr/local/share/perl5/MIME/Charset.pm:403: bless {
/usr/local/share/perl5/MIME/Charset.pm:534: \t$self->{OutputCharset} =
$charset->{InputCharset};
/usr/local/share/perl5/MIME/Charset.pm:535: \t$self->{Encoder} =
$charset->{Decoder};
/usr/local/share/perl5/MIME/Charset.pm:536: \t$self->{BodyEncoding} =
$charset->{BodyEncoding};
/usr/local/share/perl5/MIME/Charset.pm:537: \t$self->{HeaderEncoding} =
$charset->{HeaderEncoding};
/usr/local/share/perl5/MIME/Charset.pm:539: $self->{Encoder};
/usr/local/share/perl5/MIME/Charset.pm:973: return ($encoded, $charset);
/usr/local/share/perl5/MIME/Charset.pm:858: return ($encoded, '8BIT',
undef)
/usr/local/share/perl5/MIME/Charset.pm:860: my $cset =
$charset->{OutputCharset};
/usr/local/share/perl5/MIME/Charset.pm:863: my $enc =
$charset->{HeaderEncoding};
/usr/local/share/perl5/MIME/Charset.pm:865: if (!$enc and $encoded !~
$NON7BITRE) {
/usr/local/share/perl5/MIME/Charset.pm:866: \tunless ($cset =~
/^($ISO2022RE|$ASCIITRANSRE)$/) {\t# 7BIT.
/usr/local/share/perl5/MIME/Charset.pm:867: $cset = 'US-ASCII';
/usr/local/share/perl5/MIME/Charset.pm:874: return ($encoded, $cset,
$enc);
/usr/local/share/perl5/MIME/EncWords.pm:805: \t$enc = 'S'
/usr/local/share/perl5/MIME/EncWords.pm:811: \tif ($cset eq "US-ASCII" and
!$enc and $s =~ /$UNSAFEASCII/) {
/usr/local/share/perl5/MIME/EncWords.pm:823: \t $csetobj =
MIME::Charset->new($cset,
/usr/local/share/perl5/MIME/Charset.pm:367: my $class = shift;
/usr/local/share/perl5/MIME/Charset.pm:368: my $charset = shift;
/usr/local/share/perl5/MIME/Charset.pm:369: return bless {}, $class
unless $charset;
/usr/local/share/perl5/MIME/Charset.pm:370: return bless {}, $class if 75
< length $charset; # w/a for CPAN RT #65796.
/usr/local/share/perl5/MIME/Charset.pm:371: my %params = @_;
/usr/local/share/perl5/MIME/Charset.pm:372: my $mapping =
uc($params{'Mapping'} || $Config->{Mapping});
/usr/local/share/perl5/MIME/Charset.pm:374: if ($charset =~
/\\bhz.?gb.?2312$/i) {
/usr/local/share/perl5/MIME/Charset.pm:384: \t$charset =
resolve_alias($charset) || $charset
/usr/lib64/perl5/Encode.pm:131: my $obj = find_encoding(shift);
/usr/lib64/perl5/Encode.pm:126: my ( $name, $skip_external ) = @_;
/usr/lib64/perl5/Encode.pm:127: return __PACKAGE__->getEncoding( $name,
$skip_external );
/usr/lib64/perl5/Encode.pm:102: my ( $class, $name, $skip_external ) = @_;
/usr/lib64/perl5/Encode.pm:104: ref($name) && $name->can('renew') and
return $name;
/usr/lib64/perl5/Encode.pm:105: exists $Encoding{$name} and return
$Encoding{$name};
/usr/lib64/perl5/Encode.pm:106: my $lc = lc $name;
/usr/lib64/perl5/Encode.pm:107: exists $Encoding{$lc} and return
$Encoding{$lc};
/usr/lib64/perl5/Encode.pm:109: my $oc = $class->find_alias($name);
/usr/lib64/perl5/Encode/Alias.pm:22: require Encode;
/usr/lib64/perl5/Encode/Alias.pm:23: my $class = shift;
/usr/lib64/perl5/Encode/Alias.pm:24: my $find = shift;
/usr/lib64/perl5/Encode/Alias.pm:25: unless ( exists $Alias{$find} ) {
/usr/lib64/perl5/Encode/Alias.pm:67: if (DEBUG) {
/usr/lib64/perl5/Encode/Alias.pm:77: return $Alias{$find};
/usr/lib64/perl5/Encode.pm:110: defined($oc) and return $oc;
/usr/lib64/perl5/Encode.pm:132: defined $obj and return $obj->name;
/usr/local/share/perl5/MIME/Charset.pm:386: $charset =
$CHARSET_ALIASES{uc($charset)} || uc($charset);
/usr/local/share/perl5/MIME/Charset.pm:387: my ($henc, $benc, $outcset);
/usr/local/share/perl5/MIME/Charset.pm:388: my $spec =
$CHARSETS{$charset};
/usr/local/share/perl5/MIME/Charset.pm:389: if ($spec) {
/usr/local/share/perl5/MIME/Charset.pm:390: \t($henc, $benc, $outcset) =
/usr/local/share/perl5/MIME/Charset.pm:395: my ($decoder, $encoder);
/usr/local/share/perl5/MIME/Charset.pm:396: if (USE_ENCODE) {
/usr/local/share/perl5/MIME/Charset.pm:397: \t$decoder =
_find_encoder($charset, $mapping);
/usr/local/share/perl5/MIME/Charset.pm:416: my $charset = uc(shift || "");
/usr/local/share/perl5/MIME/Charset.pm:417: return undef unless $charset;
/usr/local/share/perl5/MIME/Charset.pm:418: my $mapping = uc(shift);
/usr/local/share/perl5/MIME/Charset.pm:419: my ($spec, $name, $module,
$encoder);
/usr/local/share/perl5/MIME/Charset.pm:421: local($@);
/usr/local/share/perl5/MIME/Charset.pm:422: $encoder =
$encoder_cache{$charset, $mapping};
/usr/local/share/perl5/MIME/Charset.pm:423: return $encoder if ref
$encoder;
/usr/local/share/perl5/MIME/Charset.pm:398: \t$encoder =
_find_encoder($outcset, $mapping);
/usr/local/share/perl5/MIME/Charset.pm:416: my $charset = uc(shift || "");
/usr/local/share/perl5/MIME/Charset.pm:417: return undef unless $charset;
/usr/local/share/perl5/MIME/Charset.pm:403: bless {
/usr/local/share/perl5/MIME/EncWords.pm:828: \t$csetobj->encoder($csetobj);
/usr/local/share/perl5/MIME/Charset.pm:530: my $self = shift;
/usr/local/share/perl5/MIME/Charset.pm:531: my $charset = shift;
/usr/local/share/perl5/MIME/Charset.pm:532: if ($charset) {
/usr/local/share/perl5/MIME/Charset.pm:533: \t$charset =
__PACKAGE__->new($charset) unless ref $charset;
/usr/local/share/perl5/MIME/Charset.pm:534: \t$self->{OutputCharset} =
$charset->{InputCharset};
/usr/local/share/perl5/MIME/Charset.pm:535: \t$self->{Encoder} =
$charset->{Decoder};
/usr/local/share/perl5/MIME/Charset.pm:536: \t$self->{BodyEncoding} =
$charset->{BodyEncoding};
/usr/local/share/perl5/MIME/Charset.pm:537: \t$self->{HeaderEncoding} =
$charset->{HeaderEncoding};
/usr/local/share/perl5/MIME/Charset.pm:539: $self->{Encoder};
/usr/local/share/perl5/MIME/EncWords.pm:834: \tif (scalar(@triplets)) {
/usr/local/share/perl5/MIME/EncWords.pm:861: \tpush @triplets, [$s, $enc,
$csetobj];
/usr/local/share/perl5/MIME/EncWords.pm:865: my @s_enc = grep { $_->[1]
and $_->[1] eq 'S' } @triplets;
/usr/local/share/perl5/MIME/EncWords.pm:865: my @s_enc = grep { $_->[1]
and $_->[1] eq 'S' } @triplets;
/usr/local/share/perl5/MIME/EncWords.pm:866: if (scalar @s_enc) {
/usr/local/share/perl5/MIME/EncWords.pm:895: while (scalar(@triplets) and
$triplets[0]->[0] =~ s/^[\\r\\n\\t ]+//) {
/usr/local/share/perl5/MIME/EncWords.pm:900: my @splitted;
/usr/local/share/perl5/MIME/EncWords.pm:901: my $restlen;
/usr/local/share/perl5/MIME/EncWords.pm:902: if ($Params{MaxLineLen} < 0)
{
/usr/local/share/perl5/MIME/EncWords.pm:905: $restlen = $firstlinelen;
/usr/local/share/perl5/MIME/EncWords.pm:906: foreach (@triplets) {
/usr/local/share/perl5/MIME/EncWords.pm:907: \tmy ($s, $enc, $csetobj) = @$_;
/usr/local/share/perl5/MIME/EncWords.pm:909: \tpush @splitted, &_split($s,
$enc, $csetobj, $restlen, $maxrestlen);
/usr/local/share/perl5/MIME/EncWords.pm:964: my $str = shift;
/usr/local/share/perl5/MIME/EncWords.pm:965: my $encoding = shift;
/usr/local/share/perl5/MIME/EncWords.pm:966: my $charset = shift;
/usr/local/share/perl5/MIME/EncWords.pm:967: my $restlen = shift;
/usr/local/share/perl5/MIME/EncWords.pm:968: my $maxrestlen = shift;
/usr/local/share/perl5/MIME/EncWords.pm:970: if (!$charset->as_string or
$charset->as_string eq '8BIT') {# Undecodable.
/usr/local/share/perl5/MIME/Charset.pm:487: my $self = shift;
/usr/local/share/perl5/MIME/Charset.pm:488: $self->{InputCharset};
/usr/local/share/perl5/MIME/Charset.pm:487: my $self = shift;
/usr/local/share/perl5/MIME/Charset.pm:488: $self->{InputCharset};
/usr/local/share/perl5/MIME/EncWords.pm:974: if (!$encoding and
$charset->as_string eq 'US-ASCII') { # Pure ASCII.
/usr/local/share/perl5/MIME/Charset.pm:487: my $self = shift;
/usr/local/share/perl5/MIME/Charset.pm:488: $self->{InputCharset};
/usr/local/share/perl5/MIME/EncWords.pm:975: \treturn &_split_ascii($str,
$restlen, $maxrestlen);
/usr/local/share/perl5/MIME/EncWords.pm:1010: my $s = shift;
/usr/local/share/perl5/MIME/EncWords.pm:1011: my $restlen = shift;
/usr/local/share/perl5/MIME/EncWords.pm:1012: my $maxrestlen = shift;
/usr/local/share/perl5/MIME/EncWords.pm:1013: $restlen ||= $maxrestlen;
/usr/local/share/perl5/MIME/EncWords.pm:1015: my @splitted;
/usr/local/share/perl5/MIME/EncWords.pm:1016: my $ascii =
MIME::Charset->new("US-ASCII", Mapping => 'STANDARD');
/usr/local/share/perl5/MIME/Charset.pm:367: my $class = shift;
/usr/local/share/perl5/MIME/Charset.pm:368: my $charset = shift;
/usr/local/share/perl5/MIME/Charset.pm:369: return bless {}, $class
unless $charset;
/usr/local/share/perl5/MIME/Charset.pm:370: return bless {}, $class if 75
< length $charset; # w/a for CPAN RT #65796.
/usr/local/share/perl5/MIME/Charset.pm:371: my %params = @_;
/usr/local/share/perl5/MIME/Charset.pm:372: my $mapping =
uc($params{'Mapping'} || $Config->{Mapping});
/usr/local/share/perl5/MIME/Charset.pm:374: if ($charset =~
/\\bhz.?gb.?2312$/i) {
/usr/local/share/perl5/MIME/Charset.pm:384: \t$charset =
resolve_alias($charset) || $charset
/usr/lib64/perl5/Encode.pm:131: my $obj = find_encoding(shift);
/usr/lib64/perl5/Encode.pm:126: my ( $name, $skip_external ) = @_;
/usr/lib64/perl5/Encode.pm:127: return __PACKAGE__->getEncoding( $name,
$skip_external );
/usr/lib64/perl5/Encode.pm:102: my ( $class, $name, $skip_external ) = @_;
/usr/lib64/perl5/Encode.pm:104: ref($name) && $name->can('renew') and
return $name;
/usr/lib64/perl5/Encode.pm:105: exists $Encoding{$name} and return
$Encoding{$name};
/usr/lib64/perl5/Encode.pm:106: my $lc = lc $name;
/usr/lib64/perl5/Encode.pm:107: exists $Encoding{$lc} and return
$Encoding{$lc};
/usr/lib64/perl5/Encode.pm:109: my $oc = $class->find_alias($name);
/usr/lib64/perl5/Encode/Alias.pm:22: require Encode;
/usr/lib64/perl5/Encode/Alias.pm:23: my $class = shift;
/usr/lib64/perl5/Encode/Alias.pm:24: my $find = shift;
/usr/lib64/perl5/Encode/Alias.pm:25: unless ( exists $Alias{$find} ) {
/usr/lib64/perl5/Encode/Alias.pm:67: if (DEBUG) {
/usr/lib64/perl5/Encode/Alias.pm:77: return $Alias{$find};
/usr/lib64/perl5/Encode.pm:110: defined($oc) and return $oc;
/usr/lib64/perl5/Encode.pm:132: defined $obj and return $obj->name;
/usr/local/share/perl5/MIME/Charset.pm:386: $charset =
$CHARSET_ALIASES{uc($charset)} || uc($charset);
/usr/local/share/perl5/MIME/Charset.pm:387: my ($henc, $benc, $outcset);
/usr/local/share/perl5/MIME/Charset.pm:388: my $spec =
$CHARSETS{$charset};
/usr/local/share/perl5/MIME/Charset.pm:389: if ($spec) {
/usr/local/share/perl5/MIME/Charset.pm:390: \t($henc, $benc, $outcset) =
/usr/local/share/perl5/MIME/Charset.pm:395: my ($decoder, $encoder);
/usr/local/share/perl5/MIME/Charset.pm:396: if (USE_ENCODE) {
/usr/local/share/perl5/MIME/Charset.pm:397: \t$decoder =
_find_encoder($charset, $mapping);
/usr/local/share/perl5/MIME/Charset.pm:416: my $charset = uc(shift || "");
/usr/local/share/perl5/MIME/Charset.pm:417: return undef unless $charset;
/usr/local/share/perl5/MIME/Charset.pm:418: my $mapping = uc(shift);
/usr/local/share/perl5/MIME/Charset.pm:419: my ($spec, $name, $module,
$encoder);
/usr/local/share/perl5/MIME/Charset.pm:421: local($@);
/usr/local/share/perl5/MIME/Charset.pm:422: $encoder =
$encoder_cache{$charset, $mapping};
/usr/local/share/perl5/MIME/Charset.pm:423: return $encoder if ref
$encoder;
/usr/local/share/perl5/MIME/Charset.pm:398: \t$encoder =
_find_encoder($outcset, $mapping);
/usr/local/share/perl5/MIME/Charset.pm:416: my $charset = uc(shift || "");
/usr/local/share/perl5/MIME/Charset.pm:417: return undef unless $charset;
/usr/local/share/perl5/MIME/Charset.pm:403: bless {
/usr/local/share/perl5/MIME/EncWords.pm:1017: foreach my $line
(split(/(?:[\\t ]*[\\r\\n]+)+/, $s)) {
/usr/local/share/perl5/MIME/EncWords.pm:1018: my $spc = '';
/usr/local/share/perl5/MIME/EncWords.pm:1019: \tforeach my $word
(split(/([\\t ]+)/, $line)) {
/usr/local/share/perl5/MIME/EncWords.pm:1020: \t next unless
scalar(@splitted) or $word; # skip first garbage
/usr/local/share/perl5/MIME/EncWords.pm:1021: \t if ($word =~ /[\\t ]/) {
/usr/local/share/perl5/MIME/EncWords.pm:1026: \t my $cont = $spc.$word;
/usr/local/share/perl5/MIME/EncWords.pm:1027: \t my $elen = length($cont);
/usr/local/share/perl5/MIME/EncWords.pm:1028: \t next unless $elen;
/usr/local/share/perl5/MIME/EncWords.pm:1029: \t if (scalar(@splitted)) {
/usr/local/share/perl5/MIME/EncWords.pm:1040: \t\tpush @splitted, [$cont,
undef, $ascii];
/usr/local/share/perl5/MIME/EncWords.pm:1041: \t\t$restlen -= $elen;
/usr/local/share/perl5/MIME/EncWords.pm:1043: \t $spc = '';
/usr/local/share/perl5/MIME/EncWords.pm:1045: \tif ($spc) {
/usr/local/share/perl5/MIME/EncWords.pm:1055: return @splitted;
/usr/local/share/perl5/MIME/EncWords.pm:910: \tmy ($last, $lastenc,
$lastcsetobj) = @{$splitted[-1]};
/usr/local/share/perl5/MIME/EncWords.pm:910: \tmy ($last, $lastenc,
$lastcsetobj) = @{$splitted[-1]};
/usr/local/share/perl5/MIME/EncWords.pm:911: \tmy $lastlen;
/usr/local/share/perl5/MIME/EncWords.pm:912: \tif ($lastenc) {
/usr/local/share/perl5/MIME/EncWords.pm:915: \t $lastlen = length($last);
/usr/local/share/perl5/MIME/EncWords.pm:917: \t$restlen -= $lastlen; # FIXME:
Sometimes estimated longer
/usr/local/share/perl5/MIME/EncWords.pm:918: \t$restlen = $maxrestlen if
$restlen <= 1;
/usr/local/share/perl5/MIME/EncWords.pm:923: my @lines;
/usr/local/share/perl5/MIME/EncWords.pm:924: $restlen = $firstlinelen;
/usr/local/share/perl5/MIME/EncWords.pm:925: foreach (@splitted) {
/usr/local/share/perl5/MIME/EncWords.pm:926: \tmy ($str, $encoding,
$charsetobj) = @$_;
/usr/local/share/perl5/MIME/EncWords.pm:927: \tnext unless length($str);
/usr/local/share/perl5/MIME/EncWords.pm:929: \tmy $s;
/usr/local/share/perl5/MIME/EncWords.pm:930: \tif (!$encoding) {
/usr/local/share/perl5/MIME/EncWords.pm:931: \t $s = $str;
/usr/local/share/perl5/MIME/EncWords.pm:936: \tmy $spc = (scalar(@lines) and
$lines[-1] =~ /[\\r\\n\\t ]$/ or
/usr/local/share/perl5/MIME/EncWords.pm:938: \tif (!scalar(@lines)) {
/usr/local/share/perl5/MIME/EncWords.pm:939: \t push @lines, $s;
/usr/local/share/perl5/MIME/EncWords.pm:954: join($fwsbrk.$fwsspc,
@lines);
/home/sympa/bin/mail.pm:233: unless ($header_ok{'mime-version'}) {
/home/sympa/bin/mail.pm:234: \t$headers .= "MIME-Version: 1.0\\n";
/home/sympa/bin/mail.pm:236: unless ($header_ok{'content-type'}) {
/home/sympa/bin/mail.pm:237: \t$headers .= "Content-Type: text/plain;
charset=".$data->{'charset'}."\\n";
/home/sympa/bin/mail.pm:239: unless
($header_ok{'content-transfer-encoding'}) {
/home/sympa/bin/mail.pm:240: \t$headers .= "Content-Transfer-Encoding:
8bit\\n";
/home/sympa/bin/mail.pm:246: unless ($data->{'not_auto_submitted'} ||
/home/sympa/bin/mail.pm:253: unless ($existing_headers) {
/home/sympa/bin/mail.pm:258: my @msgs = ();
/home/sympa/bin/mail.pm:259: if (ref($data->{'msg_list'}) eq 'ARRAY') {
/home/sympa/bin/mail.pm:273: my $listname = '';
/home/sympa/bin/mail.pm:274: if (ref($data->{'list'}) eq "HASH") {
/home/sympa/bin/mail.pm:280: unless ($message =
&reformat_message("$headers"."$message", \\@msgs, $data->{'charset'})) {
/home/sympa/bin/mail.pm:954: my $message = shift;
/home/sympa/bin/mail.pm:955: my $attachments = shift || [];
/home/sympa/bin/mail.pm:956: my $defcharset = shift;
/home/sympa/bin/mail.pm:957: my $msg;
/home/sympa/bin/mail.pm:959: my $parser = new MIME::Parser;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:197: my $self = bless {},
shift;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:198: $self->init(@_);
/usr/share/perl5/vendor_perl/MIME/Parser.pm:213: my $self = shift;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:215:
$self->{MP5_DecodeHeaders} = 0;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:216:
$self->{MP5_DecodeBodies} = 1;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:217: $self->{MP5_Interface}
= {};
/usr/share/perl5/vendor_perl/MIME/Parser.pm:218: $self->{MP5_ParseNested}
= 'NEST';
/usr/share/perl5/vendor_perl/MIME/Parser.pm:219: $self->{MP5_TmpToCore}
= 0;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:220:
$self->{MP5_IgnoreErrors} = 1;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:221: $self->{MP5_UUDecode}
= 0;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:222: $self->{MP5_MaxParts}
= -1;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:223: $self->{MP5_TmpDir}
= undef;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:225:
$self->interface(ENTITY_CLASS => 'MIME::Entity');
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1574: my ($self, $role,
$value) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1575:
$self->{MP5_Interface}{$role} = $value if (defined($value));
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1576:
$self->{MP5_Interface}{$role};
/usr/share/perl5/vendor_perl/MIME/Parser.pm:226:
$self->interface(HEAD_CLASS => 'MIME::Head');
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1574: my ($self, $role,
$value) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1575:
$self->{MP5_Interface}{$role} = $value if (defined($value));
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1576:
$self->{MP5_Interface}{$role};
/usr/share/perl5/vendor_perl/MIME/Parser.pm:228: $self->output_dir(".");
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1301: my ($self, @init) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1302: if (@_ > 1) {
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1303:
\t$self->filer(MIME::Parser::FileInto->new(@init));
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:234: my ($class,
@initargs) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:235: my $self = bless {
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:245:
$self->init(@initargs);
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:779: my ($self, $dir) =
@_;
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:780: $self->{MPFI_Dir}
= $self->cleanup_dir($dir);
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:261: my ($self, $dir) =
@_;
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:262: $dir = '.' if
(!defined($dir) || ($dir eq '')); # coerce empty to "."
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:263: $dir = '/.' if
($dir eq '/'); # coerce "/" so "$dir/$filename" works
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:264: $dir =~ s|/$||;
# be nice: get rid of any trailing "/"
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:265: $dir;
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:246: $self;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1275: my ($self, $filer) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1276: if (@_ > 1) {
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1277: \t$self->{MP5_Filer} =
$filer;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1278:
\t$filer->results($self->results); ### but we still need in init_parse
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1756: shift->{MP5_Results};
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:280: my ($self,
$results) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:281:
$self->{MPF_Results} = $results if (@_ > 1);
/usr/share/perl5/vendor_perl/MIME/Parser/Filer.pm:282:
$self->{MPF_Results};
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1280: $self->{MP5_Filer};
/usr/share/perl5/vendor_perl/MIME/Parser.pm:230: $self;
/home/sympa/bin/mail.pm:960: unless (defined $parser) {
/home/sympa/bin/mail.pm:964: $parser->output_to_core(1);
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1451: my ($self, $yesno) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1452: if (@_ > 1) {
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1453: \t$yesno = 0 if ($yesno and
$yesno eq 'NONE');
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1454: \t$self->{MP5_FilerToCore}
= $yesno;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1456:
$self->{MP5_FilerToCore};
/home/sympa/bin/mail.pm:966: if (ref($message) eq 'MIME::Entity') {
/home/sympa/bin/mail.pm:969: \teval {
/home/sympa/bin/mail.pm:970: \t $msg = $parser->parse_data($message);
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1110: my ($self, $data) = @_;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1113: my $io;
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1115: if (! ref $data ) {
/usr/share/perl5/vendor_perl/MIME/Parser.pm:1116: $io =
IO::File->new(\\$data, '<:');
/usr/lib64/perl5/IO/File.pm:157: my $type = shift;
/usr/lib64/perl5/IO/File.pm:158: my $class = ref($type) || $type ||
"IO::File";
/usr/lib64/perl5/IO/File.pm:159: @_ >= 0 && @_ <= 3
/usr/lib64/perl5/IO/File.pm:161: my $fh = $class->SUPER::new();
/usr/lib64/perl5/IO/Handle.pm:311: my $class = ref($_[0]) || $_[0] ||
"IO::Handle";
/usr/lib64/perl5/IO/Handle.pm:312: if (@_ != 1) {
/usr/lib64/perl5/IO/Handle.pm:324: my $io = gensym;
/usr/share/perl5/Symbol.pm:101: my $name = "GEN" . $genseq++;
/usr/share/perl5/Symbol.pm:102: my $ref = \\*{$genpkg . $name};
/usr/share/perl5/Symbol.pm:102: my $ref = \\*{$genpkg . $name};
/usr/share/perl5/Symbol.pm:103: delete $$genpkg{$name};
/usr/share/perl5/Symbol.pm:104: $ref;
/usr/lib64/perl5/IO/Handle.pm:325: bless $io, $class;
/usr/lib64/perl5/IO/File.pm:162: if (@_) {
/usr/lib64/perl5/IO/File.pm:163: \t$fh->open(@_)
/usr/lib64/perl5/IO/File.pm:174: @_ >= 2 && @_ <= 4 or croak 'usage:
$fh->open(FILENAME [,MODE [,PERMS]])';
/usr/lib64/perl5/IO/File.pm:175: my
-
[sympa-users] perl crashing on wwsympa.fcgi,
Erik Olson, 01/01/2012
-
RE: [sympa-users] perl crashing on wwsympa.fcgi,
Davy Kager, 01/01/2012
-
RE: [sympa-users] perl crashing on wwsympa.fcgi,
Erik Olson, 01/01/2012
-
Re: [sympa-users] perl crashing on wwsympa.fcgi,
John Kirkland, 01/01/2012
- Re: [sympa-users] perl crashing on wwsympa.fcgi, Erik Olson, 01/01/2012
- RE: [sympa-users] perl crashing on wwsympa.fcgi, Erik Olson, 01/02/2012
-
Re: [sympa-users] perl crashing on wwsympa.fcgi,
John Kirkland, 01/01/2012
-
RE: [sympa-users] perl crashing on wwsympa.fcgi,
Erik Olson, 01/01/2012
-
RE: [sympa-users] perl crashing on wwsympa.fcgi,
Davy Kager, 01/01/2012
Archive powered by MHonArc 2.6.19+.