git://git.exim.org
/
exim.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9cf6b11
)
exipick 20060307.1 - missed removing a debug line from last upload
author
John Jetmore
<jj33@pobox.com>
Tue, 7 Mar 2006 21:05:30 +0000
(21:05 +0000)
committer
John Jetmore
<jj33@pobox.com>
Tue, 7 Mar 2006 21:05:30 +0000
(21:05 +0000)
src/src/exipick.src
patch
|
blob
|
history
diff --git
a/src/src/exipick.src
b/src/src/exipick.src
index 9826aaffdbdcab9e97a1e356cb09c05e7fd08380..3c585f41f3d1e7b02df424569064658606922d53 100644
(file)
--- a/
src/src/exipick.src
+++ b/
src/src/exipick.src
@@
-1,5
+1,5
@@
#!PERL_COMMAND
#!PERL_COMMAND
-# $Cambridge: exim/src/src/exipick.src,v 1.1
0 2006/03/07 20:58:55
jetmore Exp $
+# $Cambridge: exim/src/src/exipick.src,v 1.1
1 2006/03/07 21:05:30
jetmore Exp $
# This variable should be set by the building process to Exim's spool directory.
my $spool = 'SPOOL_DIRECTORY';
# This variable should be set by the building process to Exim's spool directory.
my $spool = 'SPOOL_DIRECTORY';
@@
-8,7
+8,7
@@
use strict;
use Getopt::Long;
my($p_name) = $0 =~ m|/?([^/]+)$|;
use Getopt::Long;
my($p_name) = $0 =~ m|/?([^/]+)$|;
-my $p_version = "20060307.
0
";
+my $p_version = "20060307.
1
";
my $p_usage = "Usage: $p_name [--help|--version] (see --help for details)";
my $p_cp = <<EOM;
Copyright (c) 2003-2006 John Jetmore <jj33\@pobox.com>
my $p_usage = "Usage: $p_name [--help|--version] (see --help for details)";
my $p_cp = <<EOM;
Copyright (c) 2003-2006 John Jetmore <jj33\@pobox.com>
@@
-562,7
+562,6
@@
sub _parse_body {
close(I);
$self->{_vars}{message_body} =~ s/\n/ /g;
$self->{_vars}{message_body} =~ s/\000/ /g;
close(I);
$self->{_vars}{message_body} =~ s/\n/ /g;
$self->{_vars}{message_body} =~ s/\000/ /g;
-print "returning (1)\n";
return(1);
}
return(1);
}