From b3b0c5f1825d50c0fcaf3a12738b645789639995 Mon Sep 17 00:00:00 2001
From: "Tiberiu C. Turbureanu" <tct@ceata.org>
Date: Mon, 9 Sep 2013 08:39:46 +0300
Subject: [PATCH] =?utf8?q?Diacritice=20=C8=99i=20=C3=AEn=20scriptul=20de?=
 =?utf8?q?=20Perl.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 zlp | 35 +++++++++++++++++------------------
 1 file changed, 17 insertions(+), 18 deletions(-)

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<p>";
+  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>";
   }
@@ -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<lt>marius@ieval.roE<gt>
 
 =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 <http://www.gnu.org/licenses/>.
 
 
 =cut
-
-- 
2.30.2