Changeset 168

Timestamp:

09/01/07 18:14:09 (16 months ago)

Author:

tgenannt

Message:

- Removed Reply-To Header
- Changed to fetchrow_hashref

Files:

• trunk/system_scripts/listMailer.pl (modified) (3 diffs)

trunk/system_scripts/listMailer.pl

@@ -117 +117 @@
  my $sth = $dbh->prepare($sql);
  $sth->execute;
- my @row;
+ my $row;
  my @result;
- while( @row = $sth->fetchrow_array) {
-  push(@result, $row[0]);
+ while( $row = $sth->fetchrow_hashref) {
+  push(@result, $row->{recp});
  }
  $sth->finish;
- undef(@row);
+ undef($row);
  undef($id);
  undef($sql);
@@ -130 +130 @@
 }
 
-my @row = $sth->fetchrow_array;
-$mail->header_set("Reply-To", "$list");
+my $row = $sth->fetchrow_hashref;
+#$mail->header_set("Reply-To", "$list");
 $sth->finish();
-if( $row[3] eq 'n' ) {
- if( 0 == isSenderAllowed($row[0], $sender) ) {
+if( $row->{public} eq 'n' ) {
+ if( 0 == isSenderAllowed($row->{id}, $sender) ) {
   # Not subscribed to list, so he can't post
   my $e_send_to = MIME::Entity->build(
@@ -150 +150 @@
  } else {
   # Send Mail to all subscribed
-  @addresses = getAllAddresses($row[0]);
+  @addresses = getAllAddresses($row->{id});
   sendto($mail->as_string , $sender);
  }
 } else {
  # Send Mail to all subscribed
- @addresses = getAllAddresses($row[0]);
+ @addresses = getAllAddresses($row->{id});
  sendto($mail->as_string , $sender);
 }