[Debconf6-data-commit] r595 - mail

[Alexander Schmehl]

Author: tolimar
Date: 2006-04-21 21:46:50 +0000 (Fri, 21 Apr 2006)
New Revision: 595

Added:
   mail/early-arrivals.csv
   mail/mail-early-arrivals.pl
Log:
adding script and list for the early arrival mails

Added: mail/early-arrivals.csv
===================================================================
--- mail/early-arrivals.csv	2006-04-21 20:44:54 UTC (rev 594)
+++ mail/early-arrivals.csv	2006-04-21 21:46:50 UTC (rev 595)
@@ -0,0 +1,92 @@
+robert,rittman,vagrant at freegeek.org,
+Ana Isabel,Delgado Domínguez,anubis at debianvenezuela.org,
+David Alexander,Contreras Castillo,dacoc at dacoc.org,
+Rudy,Godoy,rudy at kernel-panik.org,
+Claudia Evelyn,Hernández,ceha01 at gmail.com,
+Alejandro,Miranda Díaz,alejandro.miranda.diaz at gmail.com,
+Aurelien,Jarno,aurel32 at debian.org,
+Raul,Odria,rodria1 at gmail.com,
+Kari,Pahula,kaol at iki.fi,
+Christoph Ulrich,Scholler,scholler at fnb.tu-darmstadt.de,
+Otavio,Salvador,otavio at debian.org,
+Jose,Leitao,jleitao at gmail.com,
+Luca,Capello,luca at pca.it,
+Robert,Larson,blarson at debian.org,
+Lior,Kaplan,kaplan at debian.org,
+Faidon,Liambotis,faidon at cube.gr,
+Aigars,Mahinovs,aigarius at debian.org,
+Ted,Walther,krooger at debian.org,
+Noèl,Köthe,noel at debian.org,
+Roland,Mas,lolando at debian.org,
+manuel de jesus,flores villatoro,mvillatoroes at yahoo.co.uk,
+Filippo,Giunchedi,filippo at esaurito.net,
+Achilleas,Kotsis,achille at debian.gr,
+Philip,Hands,philh at debian.org,
+Exal de Jesus,Garcia Carrillo,exal at gnu.org,
+Stefano,Zacchiroli,zack at debian.org,
+Luk,Claes,luk at debian.org,
+Rene,Engelhard,rene at debian.org,
+Ralph,Amissah,ralph.amissah at gmail.com,
+Leonel,Duran Fuentes,ldfxjp at yahoo.co.jp,
+Juan A.,Diaz,juan at linux.org.ar,
+Luciano,Bello,luciano at linux.org.ar,
+César Alberto,Barrera,abarrera at uach.mx,
+Matej,Vela,vela at debian.org,
+Roger,Orellana,roger at linux.ues.edu.sv,
+Sergio,Mendoza,sergio at astroscu.unam.mx,
+Amaya,Rodrigo,amaya at debian.org,
+Orlando,Fiol,fiolorlando at gmail.com,
+Josselin,Mouette,joss at debian.org,
+Jesus,Climent,mooch at debian.org,
+César,Gómez-Martín,cesar.gomez at juntaextremadura.net,
+Tuukka,Hastrup,Tuukka at iki.fi,
+Dario,Rapisardi,dario at rapisardi.org,
+Michael,Banck,mbanck at debian.org,
+Antonio,Lopez,antoniojlopez at gmail.com,
+Alvaro,Fuentes,linux at linux-gnu.com,
+David,Moreno Garza,damog at debian.org,
+Werner,Radmüller,werner at teis.info,
+Enrique,Monge,emonge at debian.org.sv,
+Manuel,Garcia,mannyto at gmail.com,
+Graham,Wilson,graham at debian.org,
+Felipe Augusto,van de Wiel,felipe at cathedrallabs.org,
+Sebastian,Sarasate,ssarasate at fibertel.com.ar,
+Adeodato,Simó,adeodato at debian.org,
+Stephen,Gran,sgran at debian.org,
+Alberto,Gonzalez Iniesta,agi at debian.org,
+Ben,Hutchings,ben at decadentplace.org.uk,
+Kurt,Roeckx,kroeckx at debian.org,
+Oscar Andres,Riveros Moyano,boti at nimonic.com,
+Andrea,Capaldo,andy at ginotonino.net,
+Dydier José,Rojas Guerrero,dydier at softwarelibre.org.bo,
+Michael,Dorrington,mike at zen.co.uk,
+Fabian,Fagerholm,fabbe at debian.org,
+Victor,Martinez,vicm3 at linux.ajusco.upn.mx,
+José,Parrella,bureado at debianvenezuela.org,
+Alejandro,Sanchez,asanchezm at e-compugraf.com,
+Iliana,Hernandez,ilianahp at e-compugraf.com,
+Sam,Hocevar,sho at debian.org,
+Yauheni,kaliuta,y.kaliuta at gmail.com,
+Antonio,Ognio,gnrfan at gnrfan.org,
+alejandro,carrillo,alex at astroscu.unam.mx,
+Angel,Posada,aposada at debian.org.sv,
+Matt,Taggart,taggart at debian.org,
+Michael,Bramer,grisu at debian.org,
+Anibal,Monsalve Salazar,anibal at debian.org,
+Carlos,Horna,carlos at apesol.org,
+Peter,De Schrijver,p2 at debian.org,
+Rodger Adeola,Adeniyi,oysg at cooltoad.com,
+Gerfried,Fuchs,alfie at debian.org,
+Ernesto,Crespo,ecrespo at debianvenezuela.org,
+Lars,Wirzenius,lars at debian.org,
+Hector,Colina,hector_colina at yahoo.com,
+Daniel,Baumann,daniel.baumann at panthera-systems.net,
+Andrew,McMillan,awm at debian.org,
+Tiago,Bortoletto Vaz,tiago at debian-ba.org,
+Tássia,Camões,tassia at debian-ba.org,
+Eduard,Bartosh,eduard.bartosh at nokia.com,
+Simon,Richter,sjr at debian.org,
+Hanna,Ollila,hamaolli at cc.jyu.fi,
+Norbert,Tretkowski,nobse at debian.org,
+Bruno,Barrera,bruno at debian.org,
+Maximiliano,Curia,maxy at gnuservers.com.ar,

Added: mail/mail-early-arrivals.pl
===================================================================
--- mail/mail-early-arrivals.pl	2006-04-21 20:44:54 UTC (rev 594)
+++ mail/mail-early-arrivals.pl	2006-04-21 21:46:50 UTC (rev 595)
@@ -0,0 +1,83 @@
+#!/usr/bin/perl -w
+
+# (C) Joerg Jaspert <joerg at debian.org>, 2006
+#
+# GPL V2, exactly, not any later.
+
+use strict;
+use Net::SMTP;
+use Date::Manip;
+
+
+$ENV{PATH} = '/usr/sbin:/sbin:/usr/bin:/bin';
+$ENV{SHELL} = '/bin/bash';
+delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
+
+use vars qw(%conf);
+# 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';
+
+
+sub sent_mail{
+  my ($smtp, $test, %email);
+
+  ($test) = @_;
+  %email = %$test;
+
+  $smtp = new Net::SMTP($mailhost) or die "No Connection to mailserver";
+  $smtp->mail("\"$conf{name}\" <$conf{mail}>");
+  $smtp->to("\"$email{for_name} $email{sur_name}\" <$email{mail}>");
+  $smtp->cc("debcamp\@debconf.org");
+  $smtp->data();
+
+  $smtp->datasend("From: \"$conf{name}\" <$conf{mail}>\n");
+  $smtp->datasend("To: \"$email{for_name} $email{sur_name}\" <$email{mail}>\n");
+  $smtp->datasend("Cc: \"DebConf Sponsorship Team\" <sponsorship\@debconf.org>\n");
+  $smtp->datasend("Reply-To: debcamp\@debconf.org\n");
+
+  $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("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");
+  $smtp->datasend(" mail!)\n\n");
+  
+  $smtp->datasend("Hi $email{for_name},\n\n");
+
+  $smtp->datasend("According to your registration data you are planning to take part in this\n");
+  $smtp->datasend("year's DebCamp, which takes place during the week before DebConf. DebCamp is\n");
+  $smtp->datasend("meant to provide a chance for teams within Debian to gather and do\n");
+  $smtp->datasend("collaborative work beyond the regular DebConf program.\n\n");
+
+  $smtp->datasend("At the moment we are rechecking with all DebCamp attendees in order to get an\n");
+  $smtp->datasend("overview what teams will be there and what work they are planning to do. Thus\n");
+  $smtp->datasend("we kindly ask you to let us know what team you are with and what your plans\n");
+  $smtp->datasend("for DebCamp are. If you do not take part in DebCamp but have other reasons to\n");
+  $smtp->datasend("arrive earlier, e.g. cheaper air fares or other please let us know, too.\n\n");
+
+  $smtp->datasend("You can register with your team either by replying to this mail or adding\n");
+  $smtp->datasend("yourself/your group to the DebCamp wiki site\n");
+  $smtp->datasend("http://wiki.debian.org/DebConf6DebCamp\n");
+  
+
+  $smtp->datasend("\n\n$conf{sig}\n");
+  $smtp->dataend();
+  $smtp->quit();
+} # sent_mail
+
+my %mail;
+
+open(FH, "< early-arrivals.csv");
+while (<FH>) {
+  ($mail{for_name}, $mail{sur_name}, $mail{mail}) = split(/,/);
+  print "Mail an $mail{for_name} $mail{sur_name} <$mail{mail}>";
+  sent_mail(\%mail);
+}
+
+
+#sent_mail(\%mail);


Property changes on: mail/mail-early-arrivals.pl
___________________________________________________________________
Name: svn:executable
   + *