projects
/
Printer-EVOLIS.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a53140c
)
support login
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Mon, 16 Aug 2010 22:57:38 +0000
(
00:57
+0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Mon, 16 Aug 2010 22:57:38 +0000
(
00:57
+0200)
scripts/inkscape-render.pl
patch
|
blob
|
history
diff --git
a/scripts/inkscape-render.pl
b/scripts/inkscape-render.pl
index
2f3ff0a
..
ea37eec
100755
(executable)
--- a/
scripts/inkscape-render.pl
+++ b/
scripts/inkscape-render.pl
@@
-4,14
+4,15
@@
use warnings;
use strict;
use autodie;
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,
warn "# svg: $card_svg nr: $nr $ime $prezime\n";
my $mapping = {
'200908109999' => $nr,
+'login123@ffzg.hr' => $login,
'Knjižničarko' => $ime,
'Čitalić' => $prezime,
};
'Knjižničarko' => $ime,
'Čitalić' => $prezime,
};
@@
-35,7
+36,7
@@
while(<$svg_template>) {
if ( m{($re)} ) {
warn "mapping $1\n";
if ( m{($re)} ) {
warn "mapping $1\n";
- s{($1)}{mapping($1)}e;
+ s{($1)}{mapping($1)}
g
e;
}
print $svg $_;
}
print $svg $_;