From 846341a031f74300027973dd68863c01b7c91477 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 12 Apr 2005 23:12:17 +0000
Subject: [PATCH] beginings of a user import script.  right now it just parses
 addresses (mostly)

git-svn-id: svn://svn.open-ils.org/ILS/trunk@488 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Evergreen/src/extras/import/user_import.pl | 70 ++++++++++++++++++++++
 1 file changed, 70 insertions(+)
 create mode 100755 Evergreen/src/extras/import/user_import.pl

diff --git a/Evergreen/src/extras/import/user_import.pl b/Evergreen/src/extras/import/user_import.pl
new file mode 100755
index 0000000000..9031468088
--- /dev/null
+++ b/Evergreen/src/extras/import/user_import.pl
@@ -0,0 +1,70 @@
+#!/usr/bin/perl
+
+use strict;
+use Data::Dumper;
+
+while (<STDIN>) {
+	chomp;
+	my @parts = split '\|';
+#	@parts = @parts[
+#			PRIV_EXP_DATE	CREATION_DATE	PRIV_GRANT_DATE	DELINQ_STATUS
+#			3,		4,		5,		7,
+#
+#			USER_BARCODE	PROFILE		COUNTY(CAT1)	BIRTH_YEAR
+#			10,		12,		13,	 	15,
+#
+#			HOME_LIB	ZIP		ALTID		ADDRESS1
+#			16,		17,		18,		19,
+#			
+#			ADDRESS2	PHONE		EMAIL		NAME
+#			20,		21,		22,		23,
+#			
+#			NUM_CLAIMED_RETURNED
+#			24
+#	];
+
+	my $addr = parse_addr(@parts[19,20]);
+
+	$$addr{county} = $parts[13];
+	$$addr{zip} ||= $parts[17];
+
+	print Dumper($addr);
+}
+
+sub parse_addr {
+	my $addr1 = shift;
+	my $addr2 = shift;
+
+	$addr1 =~ s/^\s*(.+)\s*$/$1/gso;
+	$addr2 =~ s/^\s*(.+)\s*$/$1/gso;
+
+	$addr1 =~ s/\s+/ /gso;
+	$addr2 =~ s/\s+/ /gso;
+
+	my %hash;
+
+	if ($addr1 =~ /^(\d+\s+[^,]+)/o) {
+		$hash{address1} = $1;
+		if ($addr1 =~ /,\s+(.+)$/o) {
+			my $a2 = $1;
+			if ($a2 =~ /^(\w{2})\.?\s+(\d+)$/o) {
+				$hash{state} = uc($1);
+				$hash{zip} = $2;
+			} elsif (lc($a2) !~ /^(?:s\.?e\.?|s\.?w\.?|n\.?e\.?|n\.?w\.?|south|north|east|west|n\.?|s\.?|e\.?|w\.?)$/) {
+				$hash{address2} = $a2;
+			} else {
+				$hash{address1} .= " $a2";
+			}
+		}
+	} else {
+		$hash{address1} = $addr1;
+	}
+
+	if ($addr2 =~ /^([^,]+),\s*(\w{2}).*\s+(\w+)$/o) {
+		$hash{city} = $1;
+		$hash{state} = uc($2);
+		$hash{zip} = $3;
+	}
+
+	return \%hash;
+}
-- 
2.43.2