#!/usr/bin/perl %METHOD = ( 'sane', 'Nur anmelden', 'ebusiness', 'Automatische Aufnahme', 'zero', '(Nur anmelden)' ); %ZAHLUNG= ( 'zero', '(Am Treff)', 'direkt', 'Am Treff', 'einzahlungsschein', 'Einzahlungsschein', 'elektronisch', 'Elektronisch/Internet' ); %REQFIELDS= ( 'NAME', 'Name', 'STRASSE', 'Strasse', 'ORT', 'PLZ/Ort', 'E-MAIL', 'E-Mail' ); # Get the input read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); # Split the name-value pairs @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); # Un-Webify plus signs and %-encoding $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; chomp($value); # Stop people from using subshells to execute commands # Not a big deal when using sendmail, but very important # when using UCB mail (aka mailx). $value =~ s/~!/ ~!/g; $value =~ tr/\\\^\$\*//d; # Uncomment for debugging purposes # print STDERR "$name:$value X\n"; unless($value eq '' or $value eq ' ' or $value eq ' ' or $value =~ 'Weiter') { $FORM{$name} = $value; } } $PATH=$ENV{'PATH'}="/bin:/usr/bin"; $MAILTO="lugbevs\@lugbe.ch"; $MAILER="/usr/sbin/sendmail"; print "Content-type: text/html\n\n"; unless($ENV{'REQUEST_METHOD'} =~ /post/i) { print "Method Error>

Sorry, only POST operations allowed here!



\n"; print "$ENV{'SERVER_SIGNATURE'}\n"; print "\n"; exit(0); } foreach $VAL (keys %REQFIELDS) { if (!(defined $FORM{$VAL}) || (($VAL eq 'E-MAIL') && !($FORM{$VAL} =~ /.*\@.*\..*/))) { print "Da fehlt noch was\n"; print "Fehlender Eintrag!

\n"; print "

Bitte gehe zurück und fülle alle mit einem * gekennzeichneten Felder aus.

Fehlendes Feld: $REQFIELDS{$VAL}

\n"; if ($FORM{'HASJS'} =~ /true/i) { print "

\n"; } print "\n"; exit(0); } } if ($FORM{'STEP'} == 1) { $FORM{'STEP'}=2; open(PAGE, "< ../goodies.html") or print "File ErrorCan't open file goodies.html

$ENV{'SERVER_SIGNATURE'}\n;"; while ($line=) { if (($line =~ //) && defined $FORM{'E-MAIL'}) { $line=""; } if ($line =~ //) { print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; if (defined $FORM{'method'} && $FORM{'method'} ne 'zero') { print "\n"; } else { print "\n"; } print "\n"; print "

Name: 

$FORM{'NAME'}

Strasse: 

$FORM{'STRASSE'}

PLZ\/Ort: 

$FORM{'ORT'}

E-Mail: 

$FORM{'E-MAIL'}

Tel: 

$FORM{'TEL'}

Anmeldung: 

$METHOD{$FORM{'method'}}

Anmeldung: 

$METHOD{$FORM{'methode'}}

Zahlungweise: 

$ZAHLUNG{$FORM{'zahlung'}}

Mitteilungen: 

$FORM{'COMMENT'}
\n"; print "


\n"; next; } if ($line =~ //) { foreach $VAL (keys %FORM) { print "\n"; } next; } if (($line =~ //) && $FORM{'HASJS'} =~ /true/i) { print "\n"; next; } if ($line =~ //) { if ($FORM{'method'} =~ /ebusiness/i || $FORM{'methode'} =~ /ebusiness/) { $line="\n

Bezahlung: \n\n \n

  Zusammen mit dem Mitgliedsbeitrag
\n   Beim Abholen
"; } else { $line=""; } } print "$line"; } } elsif ($FORM{'STEP'} == 2) { my $price=0; if ((defined $FORM{'t-number'}) && $FORM{'t-number'} =~ /[1-9]/ ) { $price = int($FORM{'t-number'})*25; unless(defined $FORM{'t-size'}) { print "Da fehlt noch was \n"; print "

Fehlender Eintrag!

\n"; print "

Bitte gehe zurück und fülle alle fehlenden Felder aus
\nFehlendes Feld: T-Shirt-Grösse

\n"; if ($FORM{'HASJS'} =~ /true/i) { print "

\n"; } print "\n"; exit(0); } } print "Geschafft!

\n Du hast's geschafft!

\n$FORM{'NAME'} - Herzlich willkommen bei LugBE!

\n

Deine Anmeldung/Bestellung ist unterwegs!
\n"; print "Ein Bestätigungs-Mail mit deinen Daten ist unterwegs an $FORM{'E-MAIL'}.

\n"; if ($FORM{'method'} =~ /(ebusiness|einzahlungsschein)/i || $FORM{'methode'} =~ /(ebusiness|einzahlungsschein)/i) { print "Bitte überweise den Mitgliedsbeitrag (30 Franken)"; if(($FORM{'t-zahlung'} =~ /zusammen/i) && ($price > 0)) { print " und den T-Shirt-Preis ($price Franken) zusammen"; } print "

an PostKonto Nr. 30-724006-6
LUGBE-Linux User Group Bern.

\n"; # if((($FORM{'t-zahlung'} =~ /direkt/i) || !(defined $FORM{'t-zahlung'})) && ($price > 0)) { # ($FORM{'t-number'} > 1) ? print "
Die T-Shirts " : print "
Das T-Shirt "; # print "kannst du dann am nächsten Treff zahlen ($price Franken) und abholen.

"; # } } else { print "Bitte bring den Mitgliedsbeitrag (30 Franken) "; if ( $price > 0 && $FORM{'t-number'} >= 1) { print "zusammen mit dem T-Shirt-Preis ($price Franken) "; } print "ans nächste Treffen mit.

"; } if ( $price > 0) { ($FORM{'t-number'} > 1) ? print "Die bezahlten T-Shirts " : print "Das bezahlte T-Shirt "; if($FORM{'t-zahlung'} =~ /direkt/i) { print "($price Franken) "; } print "kannst du dann "; unless($FORM{'method'} =~ /sane/i || $FORM{'methode'} =~ /sane/i) { print "am nächsten Treff "; } print "gleich mitnehmen.

\n"; } print "Die Daten des nächsten LugBE-Hocks findest du hier.
Prinzipiell findet er jeden ersten Donnerstag im Monat im Rest. Beaulieu, Erlachstr. 3, Bern, statt.

Welcome Penguin!\n"; print "\n"; $DATE=(localtime); open (MAIL, "| $MAILER $FORM{'E-MAIL'}, $MAILTO"); print MAIL "From: \"LugBE Daemon\" \n"; print MAIL "To: \"$FORM{'NAME'}\" <$FORM{'E-MAIL'}>\n"; print MAIL "BCC: \"LugBE Vorstand\" <$MAILTO>\n"; print MAIL "Subject: Anmeldung bei der LugBE / Bestellung\n\n"; print MAIL "Folgende Anmeldung wurde heute ($DATE) abgeschickt:\n\n"; print MAIL "Name: $FORM{'NAME'}\n"; print MAIL "Strasse: $FORM{'STRASSE'}\n"; print MAIL "PLZ\/Ort: $FORM{'ORT'}\n"; print MAIL "E-Mail: $FORM{'E-MAIL'}\n"; print MAIL "Tel: $FORM{'TEL'}\n\n"; if (defined $FORM{'method'} && $FORM{'method'} ne 'zero') { print MAIL "Anmeldung: $METHOD{$FORM{'method'}}\n"; } else { print MAIL "Anmeldung: $METHOD{$FORM{'methode'}}\n"; } print MAIL "Zahlungweise: $ZAHLUNG{$FORM{'zahlung'}}\n\n"; print MAIL "Bestellte T-Shirts: $FORM{'t-number'}\n"; print MAIL "Groesse: $FORM{'t-size'}\n"; print MAIL "Zahlung: $FORM{'t-zahlung'}\n\n"; print MAIL "Abonnierte Listen:\n"; foreach $list("linux-misc", "linux-news", "lugbe", "linux-support", "linux-news-heise", "linux-news-slashdot") { if($FORM{$list} =~ /subscribe/i) { print MAIL "\t $list\n"; } } print MAIL "\nMitteilungen: $FORM{'COMMENT'}\n\n"; print MAIL "\n*****************************\n Sollte diese Anmeldung nicht in Ihrem Sinne sein, hat sich wohl jemand einen Scherz mit Ihnen erlaubt. In diesem Fall muessen Sie nichts mehr tun, und die Anmeldung wird dann von selbst verfallen.\n\n"; unless($FORM{'method'} =~ /sane/i || $FORM{'methode'} =~ /sane/i) { print MAIL "Falls Sie der LugBE beitreten "; if ($price > 0) { print MAIL "und die schoenen LugBE-T-Shirts bestellen "; } print MAIL "wollen, schicken Sie dieses Mail\nbitte UNVERAENDERT an den Absender zurueck (Reply-to). Ohne diese Antwort koennen wir Ihre Anmeldung leider nicht weiterbearbeiten.\n\n"; print MAIL "Den Mitgliedsbeitrag (30 Franken)"; if ($price > 0 && $FORM{'t-zahlung'} =~ /zusammen/i) { print MAIL " und T-Shirt-Preis ($price Franken)"; } print MAIL " ueberweisen Sie bitte an PostKonto Nr. 30-724006-6 LUGBE - Linux User Group Bern\n\n"; } print MAIL "Ansonsten herzlich willkommen bei der LugBE - Linux User Group Bern! Wir freuen uns schon auf dein Kommen!\n\n"; print MAIL "Mit freundlichen Gruessen Linux User Group Bern\n mailto:info\@lugbe.ch\n"; close MAIL; foreach $list("linux-misc", "linux-news", "lugbe", "linux-support", "linux-news-heise", "linux-news-slashdot") { if($FORM{$list} =~ /subscribe/i) { open (MAIL, "| $MAILER majordomo\@lugbe.ch"); print MAIL "From: \"LugBE Daemon\" \n"; print MAIL "To: \"Majordomo\" \n"; print MAIL "Subject: Anmeldung\n\n"; print MAIL "subscribe $list $FORM{'E-MAIL'}\n"; close MAIL; } } } else { print "Logical Error

You must first complete Step 1



$ENV{'SERVER_SIGNATURE'}\n;"; } exit(0);