[Debconf6-data-commit] r359 - mail

Sun Feb 19 15:46:54 UTC 2006

Author: joerg
Date: 2006-02-19 15:46:53 +0000 (Sun, 19 Feb 2006)
New Revision: 359

Added:
   mail/mail.pl
   mail/names.csv
Log:
Added the sponsorship mail sending thingie


Added: mail/mail.pl
===================================================================

--- mail/mail.pl	2006-02-17 22:22:56 UTC (rev 358)
+++ mail/mail.pl	2006-02-19 15:46:53 UTC (rev 359)
@@ -0,0 +1,95 @@
+#!/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} = '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';
+
+
+sub sent_mail{
+  my ($smtp, $test, %email);
+
+  ($test) = @_;
+  %email = %$test;
+  my $AMOUNT=$email{amount};
+  chomp($AMOUNT);
+
+  $smtp = new Net::SMTP($mailhost) or die "No Connection to mailserver";
+  $smtp->mail("\"$conf{name}\" <$conf{mail}>");
+  $smtp->to("\"$email{name}\" <$email{mail}>");
+  $smtp->cc("\"DebConf Sponsorship Team\" <sponsorship\@debconf.org>");
+  $smtp->data();
+
+  $smtp->datasend("From: \"$conf{name}\" <$conf{mail}>\n");
+  $smtp->datasend("To: \"$email{name}\" <$email{mail}>\n");
+  $smtp->datasend("Cc: \"DebConf Sponsorship Team\" <sponsorship\@debconf.org>\n");
+
+  $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("Date: ".UnixDate("now", "%g")."\n\n");
+  $smtp->datasend("Hi $email{name},\n\n");
+
+  $smtp->datasend("You requested travel sponsorship for the upcoming DebConf6 in Mexico. We\n");
+  $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("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");
+  $smtp->datasend("  accept reimbursement requests around the middle of DebConf.\n\n");
+
+  $smtp->datasend("- The reception will hand out a form for you to fill out, which you need\n");
+  $smtp->datasend("  to give back, together with your flight ticket/bill.\n\n");
+
+  $smtp->datasend("- This will be checked, and the amount of sponsorship ($AMOUNT USD) will\n");
+  $smtp->datasend("  be confirmed again.\n\n");
+
+  $smtp->datasend("- One day later you can go to the reception again and receive your\n");
+  $smtp->datasend("  money.\n\n");
+
+  $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("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");
+  $smtp->datasend("get you the money before DebConf. This is an *exception* and should ONLY\n");
+  $smtp->datasend("be used if you are really unable to prepay for your ticket.\n");
+  $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("\n\n$conf{sig}\n");
+  $smtp->dataend();
+  $smtp->quit();
+} # sent_mail
+
+my %mail;
+
+open(FH, "< names.csv");
+while (<FH>) {
+  ($mail{name}, $mail{mail}, $mail{amount}) = split(/,/);
+  print "Geld an $mail{name}, <$mail{mail}>, $mail{amount}";
+  sent_mail(\%mail);
+}
+
+
+#sent_mail(\%mail);


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

Added: mail/names.csv
===================================================================
--- mail/names.csv	2006-02-17 22:22:56 UTC (rev 358)
+++ mail/names.csv	2006-02-19 15:46:53 UTC (rev 359)
@@ -0,0 +1,65 @@
+Marcela Tiznado,mtiznado at linux.org.ar,725.00
+Luciano Bello,luciano at linux.org.ar,500.00
+Margarita Manterola,marga at debian.org,700.00
+Sebastian Sarasate,ssarasate at fibertel.com.ar,300.00
+Martin Brambilla,mbrambilla at cafelug.org.ar,300.00
+Anthony Towns,ajt at debian.org,2000.00
+Luk Claes,luk at debian.org,750.00
+Dydier Jos? Rojas Guerrero,dydier at gmail.com,870.00
+Felipe Augusto van de Wiel,felipe at cathedrallabs.org,1000.00
+Valessio Brito,valessio at ul-jb.org,600.00
+Gustavo Noronha,kov at debian.org,560.00
+Tiago Bortoletto Vaz,tiago at debian-ba.org,500.00
+Otavio Salvador,otavio at debian.org,3300.00
+Henrique de Moraes Holschuh,hmh at debian.org,1700.00
+Kyle McMartin,kyle at debian.org,700.00
+Eric Dorland,eric at debian.org,500.00
+Bruno Barrera,bruno at debian.org,200.00
+Jose Antonio Cely Saidiza,jose.cely at tecsua.com,750.00
+David Alexander Contreras Castillo,dacoc at dacoc.org,600.00
+Alejandro Rios Pena,alejandro.rios at avatar.com.co,500.00
+Santiago Jose Ruano Rincon,santiago at unicauca.edu.co,650.00
+Roland Mas,lolando at debian.org,760.00
+Aurelien Jarno,aurel32 at debian.org,650.00
+Christian Perrier,bubulle at debian.org,700.00
+Mohammed Adnene Trojette,adn+deb at diwi.org,680.00
+Dennis Stampfer,seppy at debian.org,400.00
+Frank Lichtenheld,djpig at debian.org,800.00
+Christoph Ulrich Scholler,scholler at fnb.tu-darmstadt.de,500.00
+Joerg Jaspert,joerg at debian.org,800.00
+Andi Barth,aba at not.so.argh.org,940.00
+Alexander Schmehl,alexander at schmehl.info,724.00
+Alexander Wirt,formorer at formorer.de,400.00
+Meike Reichle,mrei0999 at uni-hildesheim.de,750.00
+Holger Levsen,debian at layer-acht.org,750.00
+Rene Engelhard,rene at debian.org,567.00
+Faidon Liambotis,faidon at cube.gr,1000.00
+Sritrusta Sukaridhoto,dhoto at eepis-its.edu,900.00
+Lior Kaplan,kaplanlior at gmail.com,1200.00
+Enrico Zini,enrico at debian.org,500.00
+Aigars Mahinovs,aigarius at debian.org,900.00
+David Moreno Garza,damog at debian.org,500.00
+Frans Pop,aragorn at tiscali.nl,500.00
+Knut Yrvin,knuty at skolelinux.no,887.00
+Rudy Godoy,rudy at kernel-panik.org,500.00
+Antonio Ognio,gnrfan at gnrfan.org,350.00
+Radu Spineanu,radu at debian.org,1050.00
+Javier Fernandez-Sanguino,jfs at debian.org,600.00
+Amaya Rodrigo,amaya at debian.org,799.00
+Adeodato Sim?,adeodato at debian.org,750.00
+Isaac Clerencia,isaac at debian.org,550.00
+Andreas Schuldei,andreas at debian.org,600.00
+Neil McGovern,neilm at debian.org,400.00
+Natalie Mayer-Hutchings,soubrette at decadentplace.org.uk,350.00
+Jimmy Kaplowitz,jimmy at debian.org,338.00
+Gabriella Coleman,biella at gmail.com,400.00
+Robert Larson,blarson at debian.org,300.00
+Steve Langasek,vorlon at debian.org,350.00
+Don Armstrong,don at debian.org,400.00
+Erinn Clark,erinn at double-helix.org,400.00
+Benjamin Mako Hill,mako at debian.org,550.00
+Micah Anderson,micah at debian.org,600.00
+robert rittman,vagrant at freegeek.org,250.00
+Gerardo Curiel,gcuriel at debianvenezuela.org,250.00
+Jose Parrella,bureado at debianvenezuela.org,800.00
+Agnieszka Czajkowska,info at creative-geeks.org,950.00


