From: Tiberiu C. Turbureanu <tct@ceata.org>
Date: Mon, 9 Sep 2013 05:50:23 +0000 (+0300)
Subject: Extensia .pl.
X-Git-Url: http://git.ieval.ro/?p=zlp.git;a=commitdiff_plain;h=599ccb8df234d2a99277c2272fab26b100c2e456

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 <zlp@ceata.org>';
-use constant ADMIN_EMAIL => 'Ziua Libertății Programelor — Fundația Ceata <zlp@ceata.org>';
-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<p>";
-  for my $p(@db) {
-	print "Nume: $p->{nume}<br>Prenume: $p->{prenume}<br>Email: $p->{email}<br>Event: $p->{event}<br>Numar: $p->{numar}<br>Spam: $p->{spam}<p>";
-  }
-}
-
-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 E<lt>marius@ieval.roE<gt>
-
-=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 <http://www.gnu.org/licenses/>.
-
-
-=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.
 </p>
 
-<form action="/zlp" method="POST" onsubmit="return validate();">
+<form action="/zlp.pl" method="POST" onsubmit="return validate();">
   <input type="hidden" name="op" value="append">
   <div>
     <label class="first">Prenume:</label><br />
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 <zlp@ceata.org>';
+use constant ADMIN_EMAIL => 'Ziua Libertății Programelor — Fundația Ceata <zlp@ceata.org>';
+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<p>";
+  for my $p(@db) {
+	print "Nume: $p->{nume}<br>Prenume: $p->{prenume}<br>Email: $p->{email}<br>Event: $p->{event}<br>Numar: $p->{numar}<br>Spam: $p->{spam}<p>";
+  }
+}
+
+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 E<lt>marius@ieval.roE<gt>
+
+=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 <http://www.gnu.org/licenses/>.
+
+
+=cut