From 31b7bbe143de60cc6d84ee0e681e813eabd2eadf Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 17 Aug 2010 00:57:38 +0200
Subject: [PATCH] support login

---
 scripts/inkscape-render.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/scripts/inkscape-render.pl b/scripts/inkscape-render.pl
index 2f3ff0a..ea37eec 100755
--- a/scripts/inkscape-render.pl
+++ b/scripts/inkscape-render.pl
@@ -4,14 +4,15 @@ use warnings;
 use strict;
 use autodie;
 
-die "unsage: $0 card/template.svg 201008159999 Ime Prezime\n" unless @ARGV;
+die "unsage: $0 card/template.svg 201008159999 login Ime Prezime\n" unless @ARGV;
 
-my ($card_svg,$nr,$ime,$prezime) = @ARGV;
+my ($card_svg,$nr,$login,$ime,$prezime) = @ARGV;
 
 warn "# svg: $card_svg nr: $nr $ime $prezime\n";
 
 my $mapping = {
 '200908109999' => $nr,
+'login123@ffzg.hr' => $login,
 'Knjižničarko' => $ime,
 'Čitalić' => $prezime,
 };
@@ -35,7 +36,7 @@ while(<$svg_template>) {
 
 	if ( m{($re)} ) {
 		warn "mapping $1\n";
-		s{($1)}{mapping($1)}e;
+		s{($1)}{mapping($1)}ge;
 	}
 
 	print $svg $_;
-- 
2.20.1