X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=zlp;h=cd89a4a188eb5ede66f98270cf9f026bd178349e;hb=b3b0c5f1825d50c0fcaf3a12738b645789639995;hp=31cf77053f77f245c4bcebf155ed214b64ca0442;hpb=165d37a04fdec4fd6f6bf8405b4687a82fdc0e30;p=zlp.git diff --git a/zlp b/zlp index 31cf770..cd89a4a 100755 --- a/zlp +++ b/zlp @@ -88,21 +88,21 @@ sub append{ flock LOCK, LOCK_EX; eval { - my $prenume = param('prenume') or die 'Nu ati completat campul "Prenume"'; + 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 ati completat campul "Email"'; + 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 ati ales orasul evenimentului'; - die 'Ziua Libertatii Programelor nu se tine in orasul ales' unless exists $events{$event}; - my $numar = int param('numar') or die 'Nu ati ales nuamrul de participanti'; - die 'Numarul de participanti trebuie sa fie intre 1 si 5' unless $numar >= 1 && $numar <= 5; - my $captcha = param('captcha') or die 'Nu ati completat anul de lansare al proiectului GNU'; - die 'Ati completat gresit anul de lansare al proiectului GNU' unless $captcha == 83; + 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 'Aceasta adresa de poÅta electronica este deja folosita' if grep { $_->{email} eq $email } @db; + 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; @@ -117,10 +117,10 @@ sub append{ my $success_email = Email::Simple->create( header => [ To => "$nume <$email>", - Subject => 'Inscriere la Ziua Libertatii Programelor', + Subject => 'Ãnscriere la Ziua LibertÄÈii Programelor', From => EMAIL_FROM, ], - body => "Aceasta este o confirmare de inscriere la Ziua Libertatii Programelor\n\n" . Dump \%entry, + 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; @@ -132,7 +132,7 @@ sub append{ my $error_email = Email::Simple->create( header => [ To => "Administrator <" . ADMIN_EMAIL . ">", - Subject => 'Eroare in inscrierea la Ziua Libertatii Programelor', + Subject => 'Eroare de înscriere la Ziua LibertÄÈii Programelor', From => EMAIL_FROM, ], body => "Eroare: $eroare", @@ -142,7 +142,7 @@ sub append{ print $eroare; } else { print header('text/html; charset=utf-8'); - print 'AÅ£i fost inregistrat cu succes'; + print 'AÈi fost înscris cu succes'; } } @@ -170,14 +170,14 @@ sub view{ unless (exists $events{$event}) { print header('text/html; charset=utf-8', '500 Internal Server Error'); - print 'Acest eveniment nu exista'; + 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 participanti inscrisi
"; + 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}
";
}
@@ -195,7 +195,7 @@ __END__
=head1 NAME
-zlp - Inscrieri Ziua Libertatii Programelor
+zlp - Formular de înscriere la Ziua LibertÄÈii Programelor
=head1 AUTHOR
@@ -203,7 +203,7 @@ Marius Gavrilescu E