[vhffs-dev] [svn] commit: r154 - /trunk/vhffs-listengine/src/listengine.pl

[vhffs-dev@xxxxxxxxx]

Author: jd
Date: Fri Feb 10 00:27:56 2006
New Revision: 154

Log:
add Date: field in generated responses

Modified:
    trunk/vhffs-listengine/src/listengine.pl

Modified: trunk/vhffs-listengine/src/listengine.pl
==============================================================================
--- trunk/vhffs-listengine/src/listengine.pl (original)
+++ trunk/vhffs-listengine/src/listengine.pl Fri Feb 10 00:27:56 2006
@@ -316,6 +316,7 @@
 	    $header->replace( 'To' ,  $from );
 	    $header->replace( 'From' ,  $LISTMASTER );
 	    $header->replace( 'Subject' , "Successfully subscribe" );
+    	    $header->replace('Date' , gmtime()." +00");
 	    
 	    my $email = Mail::Internet->new(  [ <> ] , 
 					      Header => $header ,
@@ -332,6 +333,7 @@
 	    $header->replace( 'To' ,  $from );
 	    $header->replace( 'From' ,  $LISTMASTER );
 	    $header->replace( 'Subject' , "Subscribing error" );
+    	    $header->replace('Date' , gmtime()." +00");
 	    
 	    my $email = Mail::Internet->new(  [ <> ] , 
 					      Header => $header ,
@@ -364,6 +366,7 @@
 	    $header->replace( 'To' ,  $from );
 	    $header->replace( 'From' ,  $LISTMASTER );
 	    $header->replace( 'Subject' , "Successfully unsubscribe" );
+    	    $header->replace('Date' , gmtime()." +00");
 	    
 	    
 	    $email = Mail::Internet->new(  [ <> ] , 
@@ -607,6 +610,7 @@
 	$email->replace('From' ,  $LISTMASTER );
 	$email->replace('To' ,  $from );
 	$email->replace('Subject' , gettext("listengine help") );
+    	$email->replace('Date' , gmtime()." +00");
 	sendmail( $email , $from );
     }
     elsif( $subject =~ /^subscribe$/ )
@@ -628,6 +632,7 @@
 	    $email->replace('From' ,  $LISTMASTER );
 	    $email->replace('To' ,  $from );
 	    $email->replace('Subject' , gettext("listengine help") );
+	    $email->replace('Date' , gmtime()." +00");
 	    sendmail( $email , $from );
 	}
 	else
@@ -638,6 +643,7 @@
 	    $email->replace('From' ,  $LISTMASTER );
 	    $email->replace('To' ,  $from );
 	    $email->replace('Subject' , gettext("listengine help") );
+    	    $email->replace('Date' , gmtime()." +00");
 	    sendmail( $email , $from );
 	}
     }
@@ -654,6 +660,7 @@
 	    $email->replace('From' ,  $LISTMASTER );
 	    $email->replace('To' ,  $from );
 	    $email->replace('Subject' , gettext("listengine result command") );
+    	    $email->replace('Date' , gmtime()." +00");
 	    sendmail( $email , $from );
 	   
 	}
@@ -668,6 +675,7 @@
 		$email->replace('From' ,  $LISTMASTER );
 		$email->replace('To' ,  $from );
 		$email->replace('Subject' , gettext("listengine moderation") );
+    	        $email->replace('Date' , gmtime()." +00");
 		sendmail( $email , $from );
 	    }
 	    else
@@ -678,6 +686,7 @@
 		$email->replace('From' ,  $LISTMASTER );
 		$email->replace('To' ,  $from );
 		$email->replace('Subject' , gettext("listengine moderation") );
+    	        $email->replace('Date' , gmtime()." +00");
 		sendmail( $email , $from );
 	    }
 	 
@@ -693,6 +702,7 @@
 		$email->replace('From' ,  $LISTMASTER );
 		$email->replace('To' ,  $from );
 		$email->replace('Subject' , gettext("listengine moderation") );
+    	        $email->replace('Date' , gmtime()." +00");
 		sendmail( $email , $from );
 		return;
 	    }
@@ -704,6 +714,7 @@
 		$email->replace('From' ,  $LISTMASTER );
 		$email->replace('To' ,  $from );
 		$email->replace('Subject' , gettext("listengine moderation") );
+    	        $email->replace('Date' , gmtime()." +00");
 		sendmail( $email , $from );
 	    }
 	    return;
@@ -716,6 +727,7 @@
 	    $email->replace('From' ,  $LISTMASTER );
 	    $email->replace('To' ,  $from );
 	    $email->replace('Subject' , sprintf( gettext("listengine - list of messages to moderate for %s") , $list->get_listname  ) );
+    	    $email->replace('Date' , gmtime()." +00");
 	    sendmail( $email , $from );
 	    return;
 	}
@@ -729,6 +741,7 @@
 		$email->replace('From' ,  $LISTMASTER );
 		$email->replace('To' ,  $from );
 		$email->replace('Subject' , gettext("listengine moderation") );
+    	        $email->replace('Date' , gmtime()." +00");
 		sendmail( $email , $from );
 	    }
 	    else
@@ -739,6 +752,7 @@
 		$email->replace('From' ,  $LISTMASTER );
 		$email->replace('To' ,  $from );
 		$email->replace('Subject' , gettext("listengine moderation") );
+    	        $email->replace('Date' , gmtime()." +00");
 		sendmail( $email , $from );
 	    }
 	}
@@ -766,6 +780,7 @@
 	$mail->replace('From' ,  $LISTMASTER );
 	$mail->replace('To' ,  $from );
 	$mail->replace('Subject' , gettext("listengine: unknown command") );
+    	$mail->replace('Date' , gmtime()." +00");
 	sendmail( $mail , $from );
     }