From: Tiberiu C. Turbureanu Date: Mon, 9 Sep 2013 05:50:23 +0000 (+0300) Subject: Extensia .pl. X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=599ccb8df234d2a99277c2272fab26b100c2e456;p=zlp.git Extensia .pl. --- diff --git a/zlp b/zlp deleted file mode 100755 index cd89a4a..0000000 --- a/zlp +++ /dev/null @@ -1,222 +0,0 @@ -#!/usr/bin/perl -w -CSDA -use v5.14; -use strict; -use warnings; -use utf8; - -use CGI::Fast qw/header param/; -use Email::Simple; -use Email::Sender::Simple qw/sendmail/; -use File::Slurp qw/append_file/; -use JSON qw/encode_json/; -use YAML::Any qw/Dump LoadFile/; - -use Fcntl qw/LOCK_EX LOCK_UN/; -use List::Util qw/sum/; - -################################################## - -# Inceput setari -my %events = ( - balti => { - date => 'duminică, 29 septembrie 2013', - locul => '', - sala => '', - locuri => 60, - link => '', - image => '', - }, - - bucuresti => { - date => 'sâmbătă, 21 septembrie 2013', - locul => '', - sala => '', - locuri => 60, - link => '', - image => '', - }, - - chisinau => { - date => 'sâmbătă, 28 septembrie 2013', - locul => '', - sala => '', - locuri => 60, - link => '', - image => '', - }, - - cluj => { - date => 'sâmbătă, 28 septembrie 2013', - locul => '', - sala => '', - locuri => 60, - link => '', - image => '', - }, - - constanta => { - date => 'sâmbătă, 21 septembrie 2013', - locul => '', - sala => '', - locuri => 60, - link => '', - image => '', - }, - - valcea => { - date => 'vineri, 27 septembrie 2013', - locul => '', - sala => '', - locuri => 60, - link => '', - image => '', - } -); - -use constant EMAIL_FROM => 'Ziua Libertății Programelor — Fundația Ceata '; -use constant ADMIN_EMAIL => 'Ziua Libertății Programelor — Fundația Ceata '; -use constant DATAFILE => 'date.yml'; -# Sfarsit setari - -################################################## - -open LOCK, '<', DATAFILE; - -sub nr_participanti { my $event = shift; sum 0, map { $_->{numar} } grep { $_->{event} eq $event } @_ } - -sub append{ - flock LOCK, LOCK_EX; - - eval { - my $prenume = param('prenume') or die 'Nu ați completat câmpul pentru „Prenume”'; - utf8::decode($prenume); - my $nume = param('nume') // ''; - utf8::decode($nume); - my $email = param('email') or die 'Nu ați completat câmpul pentru „Adresa de poștă electronică”'; - utf8::decode($email); - my $event = param('oras') or die 'Nu ați ales orașul cu evenimentul'; - die 'Ziua Libertății Programelor nu se ține în orașul ales' unless exists $events{$event}; - my $numar = int param('numar') or die 'Nu ați ales numărul de participanți'; - die 'Numărul de participanți trebuie să fie între 1 și 5' unless $numar >= 1 && $numar <= 5; - my $captcha = param('captcha') or die 'Nu ați completat anul de lansare al proiectului GNU'; - die 'Ați completat greșit anul de lansare al proiectului GNU' unless $captcha == 83; - my $spam = param('spam') or 0; - my @db = grep { $_->{event} eq $event } LoadFile DATAFILE; - die 'Această adresă de poștă electronică este deja folosită' if grep { $_->{email} eq $email } @db; - my $participanti = nr_participanti $event, @db; - die 'Nu sunt suficiente locuri libere' if $events{$event}{locuri} < $participanti + $numar; - - my %entry = ( - prenume => $prenume, - nume => $nume, - email => $email, - event => $event, - numar => $numar, - spam => defined($spam) && $spam ? 1 : 0, - ); - my $success_email = Email::Simple->create( - header => [ - To => "$nume <$email>", - Subject => 'Înscriere la Ziua Libertății Programelor', - From => EMAIL_FROM, - ], - body => "Aceasta este o confirmare de înscriere la Ziua Libertății Programelor\n\n" . Dump \%entry, - ); - sendmail $success_email, { to => [$email, ADMIN_EMAIL]}; - append_file DATAFILE, Dump \%entry; - }; - - flock LOCK, LOCK_UN; - if ($@) { - my $eroare = $@ =~ s/ at .*//r; - my $error_email = Email::Simple->create( - header => [ - To => "Administrator <" . ADMIN_EMAIL . ">", - Subject => 'Eroare de înscriere la Ziua Libertății Programelor', - From => EMAIL_FROM, - ], - body => "Eroare: $eroare", - ); - sendmail $error_email; - print header('text/html; charset=utf-8', '500 Internal Server Error'); - print $eroare; - } else { - print header('text/html; charset=utf-8'); - print 'Ați fost înscris cu succes'; - } -} - -sub info{ - my $event = param('event'); - - eval { - die 'Eveniment inexistent' unless defined $event && exists $events{$event}; - my %out = %{$events{$event}}; - my $participanti = nr_participanti $event, LoadFile DATAFILE; - $out{locuri} = $out{locuri} - $participanti; - print header('application/json; charset=utf-8'); - print encode_json \%out; - }; - - if ($@) { - $@ =~ s/ at .*//; - print header('text/html; charset=utf-8', '500 Internal Server Error'); - print $@; - } -} - -sub view{ - my $event = param('event'); - - unless (exists $events{$event}) { - print header('text/html; charset=utf-8', '500 Internal Server Error'); - print 'Acest eveniment nu există'; - return; - } - - my @db = grep { $_->{event} eq $event } LoadFile DATAFILE; - my $participanti = nr_participanti $event, @db; - print header('text/html; charset=utf-8'); - print "Sunt $participanti participanți înscriși

"; - for my $p(@db) { - print "Nume: $p->{nume}
Prenume: $p->{prenume}
Email: $p->{email}
Event: $p->{event}
Numar: $p->{numar}
Spam: $p->{spam}

"; - } -} - -while (CGI::Fast->new) { - my $op = param 'op' // ''; - append if $op eq 'append'; - info if $op eq 'info'; - view if $op eq 'view'; -} - -1; -__END__ - -=head1 NAME - -zlp - Formular de înscriere la Ziua Libertății Programelor - -=head1 AUTHOR - -Marius Gavrilescu Emarius@ieval.roE - -=head1 COPYRIGHT AND LICENSE - -Copyright (C) 2013 Fundația Ceata - -This program is free software: you can redistribute it and/or modify -it under the terms of the GNU Affero General Public License as published by -the Free Software Foundation, either version 3 of the License, or -(at your option) any later version. - -This program is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU Affero General Public License for more details. - -You should have received a copy of the GNU Affero General Public License -along with this program. If not, see . - - -=cut diff --git a/zlp.html b/zlp.html index 858c05f..7666970 100644 --- a/zlp.html +++ b/zlp.html @@ -6,7 +6,7 @@ function update_event_info(){ var event_info = document.getElementById("event_info"); var image = document.getElementById("image"); var xhr = new XMLHttpRequest(); - xhr.open("GET", "/zlp?op=info&event=" + document.getElementById("event").value, false); + xhr.open("GET", "/zlp.pl?op=info&event=" + document.getElementById("event").value, false); xhr.send(); console.log(xhr.responseText); var ret = JSON.parse(xhr.responseText); @@ -76,7 +76,7 @@ Cu ocazia aniversării a 30 de ani de la lansarea proiectului GNU, membrii volun Vă invităm să vă înscrieți pentru a participa la aceste evenimente și să folosiți GNU, un sistem de operare care vă respectă libertățile de utilizator.

-
+

diff --git a/zlp.pl b/zlp.pl new file mode 100755 index 0000000..cd89a4a --- /dev/null +++ b/zlp.pl @@ -0,0 +1,222 @@ +#!/usr/bin/perl -w -CSDA +use v5.14; +use strict; +use warnings; +use utf8; + +use CGI::Fast qw/header param/; +use Email::Simple; +use Email::Sender::Simple qw/sendmail/; +use File::Slurp qw/append_file/; +use JSON qw/encode_json/; +use YAML::Any qw/Dump LoadFile/; + +use Fcntl qw/LOCK_EX LOCK_UN/; +use List::Util qw/sum/; + +################################################## + +# Inceput setari +my %events = ( + balti => { + date => 'duminică, 29 septembrie 2013', + locul => '', + sala => '', + locuri => 60, + link => '', + image => '', + }, + + bucuresti => { + date => 'sâmbătă, 21 septembrie 2013', + locul => '', + sala => '', + locuri => 60, + link => '', + image => '', + }, + + chisinau => { + date => 'sâmbătă, 28 septembrie 2013', + locul => '', + sala => '', + locuri => 60, + link => '', + image => '', + }, + + cluj => { + date => 'sâmbătă, 28 septembrie 2013', + locul => '', + sala => '', + locuri => 60, + link => '', + image => '', + }, + + constanta => { + date => 'sâmbătă, 21 septembrie 2013', + locul => '', + sala => '', + locuri => 60, + link => '', + image => '', + }, + + valcea => { + date => 'vineri, 27 septembrie 2013', + locul => '', + sala => '', + locuri => 60, + link => '', + image => '', + } +); + +use constant EMAIL_FROM => 'Ziua Libertății Programelor — Fundația Ceata '; +use constant ADMIN_EMAIL => 'Ziua Libertății Programelor — Fundația Ceata '; +use constant DATAFILE => 'date.yml'; +# Sfarsit setari + +################################################## + +open LOCK, '<', DATAFILE; + +sub nr_participanti { my $event = shift; sum 0, map { $_->{numar} } grep { $_->{event} eq $event } @_ } + +sub append{ + flock LOCK, LOCK_EX; + + eval { + my $prenume = param('prenume') or die 'Nu ați completat câmpul pentru „Prenume”'; + utf8::decode($prenume); + my $nume = param('nume') // ''; + utf8::decode($nume); + my $email = param('email') or die 'Nu ați completat câmpul pentru „Adresa de poștă electronică”'; + utf8::decode($email); + my $event = param('oras') or die 'Nu ați ales orașul cu evenimentul'; + die 'Ziua Libertății Programelor nu se ține în orașul ales' unless exists $events{$event}; + my $numar = int param('numar') or die 'Nu ați ales numărul de participanți'; + die 'Numărul de participanți trebuie să fie între 1 și 5' unless $numar >= 1 && $numar <= 5; + my $captcha = param('captcha') or die 'Nu ați completat anul de lansare al proiectului GNU'; + die 'Ați completat greșit anul de lansare al proiectului GNU' unless $captcha == 83; + my $spam = param('spam') or 0; + my @db = grep { $_->{event} eq $event } LoadFile DATAFILE; + die 'Această adresă de poștă electronică este deja folosită' if grep { $_->{email} eq $email } @db; + my $participanti = nr_participanti $event, @db; + die 'Nu sunt suficiente locuri libere' if $events{$event}{locuri} < $participanti + $numar; + + my %entry = ( + prenume => $prenume, + nume => $nume, + email => $email, + event => $event, + numar => $numar, + spam => defined($spam) && $spam ? 1 : 0, + ); + my $success_email = Email::Simple->create( + header => [ + To => "$nume <$email>", + Subject => 'Înscriere la Ziua Libertății Programelor', + From => EMAIL_FROM, + ], + body => "Aceasta este o confirmare de înscriere la Ziua Libertății Programelor\n\n" . Dump \%entry, + ); + sendmail $success_email, { to => [$email, ADMIN_EMAIL]}; + append_file DATAFILE, Dump \%entry; + }; + + flock LOCK, LOCK_UN; + if ($@) { + my $eroare = $@ =~ s/ at .*//r; + my $error_email = Email::Simple->create( + header => [ + To => "Administrator <" . ADMIN_EMAIL . ">", + Subject => 'Eroare de înscriere la Ziua Libertății Programelor', + From => EMAIL_FROM, + ], + body => "Eroare: $eroare", + ); + sendmail $error_email; + print header('text/html; charset=utf-8', '500 Internal Server Error'); + print $eroare; + } else { + print header('text/html; charset=utf-8'); + print 'Ați fost înscris cu succes'; + } +} + +sub info{ + my $event = param('event'); + + eval { + die 'Eveniment inexistent' unless defined $event && exists $events{$event}; + my %out = %{$events{$event}}; + my $participanti = nr_participanti $event, LoadFile DATAFILE; + $out{locuri} = $out{locuri} - $participanti; + print header('application/json; charset=utf-8'); + print encode_json \%out; + }; + + if ($@) { + $@ =~ s/ at .*//; + print header('text/html; charset=utf-8', '500 Internal Server Error'); + print $@; + } +} + +sub view{ + my $event = param('event'); + + unless (exists $events{$event}) { + print header('text/html; charset=utf-8', '500 Internal Server Error'); + print 'Acest eveniment nu există'; + return; + } + + my @db = grep { $_->{event} eq $event } LoadFile DATAFILE; + my $participanti = nr_participanti $event, @db; + print header('text/html; charset=utf-8'); + print "Sunt $participanti participanți înscriși

"; + for my $p(@db) { + print "Nume: $p->{nume}
Prenume: $p->{prenume}
Email: $p->{email}
Event: $p->{event}
Numar: $p->{numar}
Spam: $p->{spam}

"; + } +} + +while (CGI::Fast->new) { + my $op = param 'op' // ''; + append if $op eq 'append'; + info if $op eq 'info'; + view if $op eq 'view'; +} + +1; +__END__ + +=head1 NAME + +zlp - Formular de înscriere la Ziua Libertății Programelor + +=head1 AUTHOR + +Marius Gavrilescu Emarius@ieval.roE + +=head1 COPYRIGHT AND LICENSE + +Copyright (C) 2013 Fundația Ceata + +This program is free software: you can redistribute it and/or modify +it under the terms of the GNU Affero General Public License as published by +the Free Software Foundation, either version 3 of the License, or +(at your option) any later version. + +This program is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU Affero General Public License for more details. + +You should have received a copy of the GNU Affero General Public License +along with this program. If not, see . + + +=cut