From 6c10baec836854135b84559de426ccb63996f2af Mon Sep 17 00:00:00 2001
From: =?utf8?q?Dobrica=20Pavlinu=C5=A1i=C4=87?= <dpavlin@rot13.org>
Date: Wed, 25 Jan 2012 13:00:03 -0800
Subject: [PATCH]

---
 hnb.pl | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 hnb.pl

diff --git a/hnb.pl b/hnb.pl
new file mode 100644
index 0000000..1a3498d
--- /dev/null
+++ b/hnb.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+
+# curl http://www.hnb.hr/tecajn/f`date +%d%m%y`.dat | ./hnb.pl | sudo mysql koha_ffzg
+
+# http://www.hnb.hr/tecajn/hopiszap.htm
+
+use warnings;
+use strict;
+
+my $zag = <>;
+chomp $zag;
+
+my ( $broj, $izrada, $dd, $mm, $yyyy, $rows ) = unpack 'A3A8A2A2A4A2', $zag;
+
+warn "# $broj - $izrada - $dd $mm $yyyy - $rows\n";
+
+while(<>) {
+        chomp;
+        s/(\d+),(\d{6})/$1.$2/gs;
+        my ( $sifra, $oznaka, $broj, $kupovni, $srednji, $prodajni ) = unpack 'A3A3A3A15A15A15', $_;
+        warn "$sifra|$oznaka|$broj|$kupovni|$srednji|$prodajni|\n";
+
+        print qq{
+                INSERT INTO currency SET currency='$oznaka',symbol='$oznaka',rate=$srednji,active=0
+                ON DUPLICATE KEY UPDATE rate=$srednji ;
+        };
+
+}
\ No newline at end of file
-- 
2.20.1