More Control foreach problems
Matthew C. Aycock
matt at mathcs.emory.edu
Wed Jun 20 14:57:37 UTC 2001
I have found a couple of more foreach problems with current. Here is a patch
to fix as before:
*** ./control/modules/ihave.pl.orig Wed Jun 20 10:51:21 2001
--- ./control/modules/ihave.pl Wed Jun 20 10:52:25 2001
***************
*** 19,25 ****
my $tempfile = "$inn::tmpdir/ihave.$$";
open(GREPHIST, "|grephistory -i > $tempfile")
or logdie('Cannot run grephistory: ' . $!);
! print GREPHIST "$_\n" foreach @$body;
close GREPHIST;
if (-s $tempfile) {
--- 19,27 ----
my $tempfile = "$inn::tmpdir/ihave.$$";
open(GREPHIST, "|grephistory -i > $tempfile")
or logdie('Cannot run grephistory: ' . $!);
! foreach (@$body) {
! print GREPHIST "$_\n";
! }
close GREPHIST;
if (-s $tempfile) {
*** ./control/modules/sendme.pl.orig Wed Jun 20 10:51:21 2001
--- ./control/modules/sendme.pl Wed Jun 20 10:52:48 2001
***************
*** 19,25 ****
my $tempfile = "$inn::tmpdir/sendme.$$";
open(GREPHIST, "|grephistory -s > $tempfile")
or logdie("Cannot run grephistory: $!");
! print GREPHIST "$_\n" foreach @$body;
close GREPHIST or logdie("Cannot run grephistory: $!");
if (-s $tempfile and $site =~ /^[a-zA-Z0-9.-_]+$/) {
--- 19,27 ----
my $tempfile = "$inn::tmpdir/sendme.$$";
open(GREPHIST, "|grephistory -s > $tempfile")
or logdie("Cannot run grephistory: $!");
! foreach (@$body) {
! print GREPHIST "$_\n";
! }
close GREPHIST or logdie("Cannot run grephistory: $!");
if (-s $tempfile and $site =~ /^[a-zA-Z0-9.-_]+$/) {
Thanks,
Matt
----------
Matthew C. Aycock
Operating Systems Analyst/Developer, Lead
Dept Math/CS
Emory University, Atlanta, GA
Internet: matt at mathcs.emory.edu
More information about the inn-workers
mailing list