From: Tiberiu C. Turbureanu Date: Mon, 9 Sep 2013 05:39:46 +0000 (+0300) Subject: Diacritice și în scriptul de Perl. X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=b3b0c5f1825d50c0fcaf3a12738b645789639995;p=zlp.git Diacritice și în scriptul de Perl. --- 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 Emarius@ieval.roE =head1 COPYRIGHT AND LICENSE -Copyright (C) 2013 by Fundatia Ceata +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 @@ -220,4 +220,3 @@ along with this program. If not, see . =cut -