hgcj 5.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185
  1. #!/usr/bin/perl -w -CSDA
  2. use v5.14;
  3. use strict;
  4. use warnings;
  5. use utf8;
  6. use CGI::Fast qw/header param/;
  7. use CGI::Fast qw/Vars/;
  8. use Data::Dumper;
  9. use Email::Simple;
  10. use Email::Sender::Simple qw/sendmail/;
  11. use File::Slurp qw/append_file/;
  12. use JSON qw/encode_json/;
  13. use YAML::Any qw/Dump LoadFile/;
  14. use Fcntl qw/LOCK_EX LOCK_UN/;
  15. use List::Util qw/sum/;
  16. ##################################################
  17. # Inceput setari
  18. my %events = (
  19. cluj => {
  20. date => 'sâmbătă, 16 noiembrie 2013',
  21. locul => '',
  22. sala => '',
  23. locuri => 20,
  24. link => 'http://ceata.org/evenimente/hacaton-de-gnu-%C3%AEn-cluj.html',
  25. image => '',
  26. }
  27. );
  28. use constant EMAIL_FROM => 'Hacaton de GNU în Cluj-Napoca — Fundația Ceata <hgcj@ceata.org>';
  29. use constant ADMIN_EMAIL => 'hgcj@ceata.org';
  30. use constant DATAFILE => 'date.yml';
  31. # Sfarsit setari
  32. ##################################################
  33. open LOCK, '<', DATAFILE;
  34. sub nr_participanti { my $oras = shift; sum 0, map { $_->{numar} } grep { $_->{oras} eq $oras } @_ }
  35. sub append{
  36. flock LOCK, LOCK_EX;
  37. eval {
  38. my $prenume = param('prenume') or die 'Nu ați completat prenumele';
  39. utf8::decode($prenume);
  40. my $nume = param('nume') // '';
  41. utf8::decode($nume);
  42. my $adresa = param('adresa') or die 'Nu ați completat adresa de poștă electronică';
  43. utf8::decode($adresa);
  44. my $programe = param('programe') or die 'Nu ați precizat programele pe care vreți să le hăcuiți';
  45. utf8::decode($nume);
  46. my $oras = 'cluj';
  47. my $numar = int param('numar') or die 'Nu ați ales numărul de participanți';
  48. die 'Numărul de participanți trebuie să fie între 1 și 5' unless $numar >= 1 && $numar <= 5;
  49. my $captcha = param('captcha') or die 'Nu ați completat vârsta proiectului GNU';
  50. die 'Ați completat greșit vârsta proiectului GNU' unless $captcha == 30;
  51. my $referinta = param('referinta') || param('referinta2');
  52. my $anunturi = param('anunturi') or 0;
  53. my @db = grep { $_->{oras} eq $oras } LoadFile DATAFILE;
  54. die 'Această adresă de poștă electronică este deja folosită' if grep { $_->{adresa} eq $adresa } @db;
  55. my $participanti = nr_participanti $oras, @db;
  56. die 'Nu sunt suficiente locuri libere' if $events{$oras}{locuri} < $participanti + $numar;
  57. my %entry = (
  58. prenume => $prenume,
  59. nume => $nume,
  60. adresa => $adresa,
  61. oras => $oras,
  62. programe => $programe,
  63. numar => $numar,
  64. referinta => $referinta,
  65. anunturi => defined($anunturi) && $anunturi ? 1 : 0,
  66. );
  67. my $success_email = Email::Simple->create(
  68. header => [
  69. To => "$nume <$adresa>",
  70. Subject => 'Confirmarea de înscriere la Hacatonul de GNU din Cluj-Napoca',
  71. From => EMAIL_FROM,
  72. ],
  73. body => "Aceasta este o confirmare automată de înscriere la Hacatonul de GNU din Cluj-Napoca organizat de Fundația Ceata sâmbătă, 16 noiembrie de la ora 10:00 la Cluj Cowork (str. Emil Isac nr. 23).\n\n" . Dump \%entry,
  74. );
  75. sendmail $success_email, { to => [$adresa, ADMIN_EMAIL]};
  76. append_file DATAFILE, Dump \%entry;
  77. };
  78. flock LOCK, LOCK_UN;
  79. if ($@) {
  80. my $eroare = $@ =~ s/ at .*//r;
  81. my $error_email = Email::Simple->create(
  82. header => [
  83. To => "Administrator <" . ADMIN_EMAIL . ">",
  84. Subject => 'Eroare de înscriere la Hacatonul de GNU din Cluj-Napoca',
  85. From => EMAIL_FROM,
  86. ],
  87. body => "Eroare: $eroare\n" . Dumper scalar Vars,
  88. );
  89. sendmail $error_email;
  90. print header('text/html; charset=utf-8', '500 Internal Server Error');
  91. print $eroare;
  92. } else {
  93. print header('text/html; charset=utf-8');
  94. print 'Ați fost înscris cu succes';
  95. }
  96. }
  97. sub info{
  98. my $oras = param('oras');
  99. eval {
  100. die 'Eveniment inexistent' unless defined $oras && exists $events{$oras};
  101. my %out = %{$events{$oras}};
  102. my $participanti = nr_participanti $oras, LoadFile DATAFILE;
  103. $out{locuri} = $out{locuri} - $participanti;
  104. print header('application/json; charset=utf-8');
  105. print encode_json \%out;
  106. };
  107. if ($@) {
  108. $@ =~ s/ at .*//;
  109. print header('text/html; charset=utf-8', '500 Internal Server Error');
  110. print $@;
  111. }
  112. }
  113. sub view{
  114. my $oras = param('oras');
  115. unless (exists $events{$oras}) {
  116. print header('text/html; charset=utf-8', '500 Internal Server Error');
  117. print 'Acest eveniment nu există';
  118. return;
  119. }
  120. my @db = grep { $_->{oras} eq $oras } LoadFile DATAFILE;
  121. my $participanti = nr_participanti $oras, @db;
  122. print header('text/html; charset=utf-8');
  123. print "Sunt $participanti participanți înscriși<p>";
  124. # for my $p(@db) {
  125. # print "Nume: $p->{nume}<br>Prenume: $p->{prenume}<br>Adresa: $p->{adresa}<br>Oras: $p->{oras}<br>Numar: $p->{numar}<br>Anunturi: $p->{anunturi}<p>";
  126. # }
  127. }
  128. while (CGI::Fast->new) {
  129. my $op = param 'op' // '';
  130. append if $op eq 'append';
  131. info if $op eq 'info';
  132. view if $op eq 'view';
  133. }
  134. 1;
  135. __END__
  136. =head1 NAME
  137. hgcj - Formular de înscriere la Hacatonul de GNU din Cluj-Napoca
  138. =head1 AUTHORS
  139. Marius Gavrilescu E<lt>marius@ieval.roE<gt>
  140. Tiberiu C. Turbureanu E<lt>tct@ceata.org<gt>
  141. =head1 COPYRIGHT AND LICENSE
  142. Copyright (C) 2013 Fundația Ceata
  143. This program is free software: you can redistribute it and/or modify
  144. it under the terms of the GNU Affero General Public License as published by
  145. the Free Software Foundation, either version 3 of the License, or
  146. (at your option) any later version.
  147. This program is distributed in the hope that it will be useful,
  148. but WITHOUT ANY WARRANTY; without even the implied warranty of
  149. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  150. GNU Affero General Public License for more details.
  151. You should have received a copy of the GNU Affero General Public License
  152. along with this program. If not, see <http://www.gnu.org/licenses/>.
  153. =cut