[Debconf6-data-commit] r599 - mail

[Joerg Jaspert]

Author: joerg
Date: 2006-04-22 18:49:01 +0000 (Sat, 22 Apr 2006)
New Revision: 599

Modified:
   mail/mail-early-arrivals.pl
   mail/mail.pl
Log:
Fix little annyoing msgid duplicate bug (todays systems are just to fast
if UnixDate() isnt good enough for a msgid!)
Change wording in mail.pl, adding that "Please reconfirm asap".


Modified: mail/mail-early-arrivals.pl
===================================================================
--- mail/mail-early-arrivals.pl	2006-04-22 12:01:31 UTC (rev 598)
+++ mail/mail-early-arrivals.pl	2006-04-22 18:49:01 UTC (rev 599)
@@ -13,15 +13,15 @@
 $ENV{SHELL} = '/bin/bash';
 delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
 
-use vars qw(%conf);
+use vars qw(%conf $count);
 # Who are you?
 $conf{name} = 'Alexander Schmehl';
 $conf{mail} = 'tolimar at debconf.org';
 $conf{sig} = "-- \nSee you soon in Mexico,\n  Alexander,\n  on behalf of the DebConf organizer team";
 $conf{domain} = "schmehl.info"; # A domain i use for my msgids. Change it! :)
 my $mailhost = 'localhost';
+$count=0;
 
-
 sub sent_mail{
   my ($smtp, $test, %email);
 
@@ -41,7 +41,8 @@
 
   $smtp->datasend("Subject: Your registration for DebCamp\n");
   $smtp->datasend("User-Agent: mail.pl\n");
-  $smtp->datasend("Message-Id: <".UnixDate("now","%q").'@'."$conf{domain}>\n");
+  $smtp->datasend("Message-Id: <".UnixDate("now","%q").$count.'@'."$conf{domain}>\n");
+  $count++;
   $smtp->datasend("Date: ".UnixDate("now", "%g")."\n\n");
   
   $smtp->datasend("(This is a mass-mailing. If you want to speak to a human, please reply to this\n");

Modified: mail/mail.pl
===================================================================
--- mail/mail.pl	2006-04-22 12:01:31 UTC (rev 598)
+++ mail/mail.pl	2006-04-22 18:49:01 UTC (rev 599)
@@ -13,15 +13,15 @@
 $ENV{SHELL} = '/bin/bash';
 delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
 
-use vars qw(%conf);
+use vars qw(%conf $count);
 # Who are you?
 $conf{name} = 'Joerg Jaspert';
 $conf{mail} = 'joerg at debconf.org';
 $conf{sig} = "-- \nbye Joerg\nFor the DebConf6 Sponsorship Team";
 $conf{domain} = "ganneff.de"; # A domain i use for my msgids. Change it! :)
 my $mailhost = 'mail';
+$count=0; 
 
-
 sub sent_mail{
   my ($smtp, $test, %email);
 
@@ -42,7 +42,8 @@
 
   $smtp->datasend("Subject: Your travel cost sponsorship request for DebConf6\n");
   $smtp->datasend("User-Agent: mail.pl\n");
-  $smtp->datasend("Message-Id: <".UnixDate("now","%q").'@'."$conf{domain}>\n");
+  $smtp->datasend("Message-Id: <".UnixDate("now","%q").$count.'@'."$conf{domain}>\n");
+  $count++;
   $smtp->datasend("Date: ".UnixDate("now", "%g")."\n\n");
   $smtp->datasend("Hi $email{name},\n\n");
 
@@ -50,6 +51,17 @@
   $smtp->datasend("are happy to announce that your request has been approved and you will\n");
   $smtp->datasend("get sponsored with $AMOUNT USD.\n\n");
 
+  $smtp->datasend("As we are very near to DebConf now please immediately goto\n\n");
+  $smtp->datasend("      https://debconf6.debconf.org/comas/attendees/account\n\n");
+  $smtp->datasend("and update your data. Confirm your participation in the event to get free food\n");
+  $smtp->datasend("and lodging in the sponsored hotel (if you want)[1]).\n\n");
+
+  $smtp->datasend("[1] Thats an exception for those like you getting the travel-sponsorship late,\n");
+  $smtp->datasend("normal reconfirmation is closed.\n\n");
+
+  $smtp->datasend("Also, if you shouldn't be able to attend DebConf for whatever reason - *please*\n");
+  $smtp->datasend("reply immediately and inform us, so we can use the money for another attendee. Thanks.\n");
+
   $smtp->datasend("The process to get your money will be modeled similar to the following:\n\n");
 
   $smtp->datasend("- While DebConf6 is running we have a reception, which will start to\n");
@@ -66,7 +78,7 @@
 
   $smtp->datasend("Note: The details of this process may change, we will announce the final\n");
   $smtp->datasend("process short before reimbursement starts on the MailingList\n");
-  $smtp->datasend("debconf-announce\@lists.debconf.org[1]. Please follow that list.\n\n");
+  $smtp->datasend("debconf-announce\@lists.debconf.org[2]. Please follow that list.\n\n");
 
   $smtp->datasend("We acknowledge that some people may absolutely not be able to prepay for\n");
   $smtp->datasend("their flight ticket. In this case a special procedure is developed to\n");
@@ -75,7 +87,7 @@
   $smtp->datasend("You need to mail Andres Schuldei then, he will inform you of the\n");
   $smtp->datasend("procedure you need to follow.\n\n");
 
-  $smtp->datasend("[1] http://lists.debconf.org/mailman/listinfo/debconf-announce\n\n");
+  $smtp->datasend("[2] http://lists.debconf.org/mailman/listinfo/debconf-announce\n\n");
 
   $smtp->datasend("\n\n$conf{sig}\n");
   $smtp->dataend();