Permalink
Browse files

some preparatrions for 5.8; some consistency with asciiname.

edit.pm: disallow 8bit in asciiname
paused: clean asciiname from 8bit if there
make_user_account and mlmirror: set executable bit
remove pause-rget, it is not in use
mirrormail.pl: also asciiname preferred
emailaddrs_for_cpan_org.pl: set exe bit

git-svn-id: https://pause.perl.org:5460/svn/pause/trunk@190 a0804923-bdb8-0310-8f3c-e6a281b66435
  • Loading branch information...
1 parent 2b55997 commit 187125a163c7341e15247c17d58bcd26f951a827 k committed Feb 19, 2003
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+# -*- mode: cperl -*-
use strict;
use lib "/home/k/PAUSE/lib";
View
@@ -1,4 +1,7 @@
-#!/usr/bin/perl -w
+# -*- mode: cperl -*-
+
+use strict;
+use warnings;
use Apache::Constants ();
use Apache::Request;
View
0 bin/emailaddrs_for_cpan_org.pl 100644 → 100755
No changes.
View
0 bin/make_user_account.pl 100644 → 100755
No changes.
View
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl-5.8 -w
use lib "/home/k/PAUSE/lib";
use PAUSE ();
@@ -58,7 +58,9 @@
$sth->execute($userid);
if ( $sth->rows > 0 ) {
my($hash) = $sth->fetchrow_hashref;
- push @recipients, qq{"$hash->{fullname}" <$hash->{email}>};
+ my $fullname = $hash->{asciiname} || $hash->{fullname};
+ $fullname =~ s/[^\0-\177]/?/g;
+ push @recipients, qq{"$fullname" <$hash->{email}>};
} else {
$report .= "\nWarning: No records found for query [$query] and placeholder-userid[$userid]";
}
View
0 bin/mlmirror 100644 → 100755
No changes.
Oops, something went wrong.

0 comments on commit 187125a

Please sign in to comment.