--- trunk/all2xml.pl	2002/11/24 20:52:11	1
+++ trunk2/all2all.pl	2004/06/13 20:20:29	348
@@ -1,66 +1,126 @@
 #!/usr/bin/perl -w
 
-use strict;
-use OpenIsis;
-use Getopt::Std;
-use Data::Dumper;
-use XML::Simple;
+=head1 NAME
 
-my $config=XMLin();
+webpac.pl - basic script for all WebPac needs
 
-print Dumper($config);
+=cut
 
-my %opts;
-
-getopts('d:m:q', \%opts);
+use strict;
+use OpenIsis;
+use Text::Iconv;
+use Data::Dumper;
 
-my $db_dir = $opts{d};
+my $cp = Text::Iconv->new("852", "iso-8859-2");
 
-die "usage: $0 -d [database_dir] -m [database1,database2] " if (! %opts);
+$|=1;
 
-#--------------------------------------------------------------------
+my $db = OpenIsis::open( shift @ARGV || '/data/hidra/THS-500/THS' );
+my $maxmfn = OpenIsis::maxRowid( $db ) || 1;
 
-my $last_tell=0;
+print "rows: $maxmfn\n\n";
 
-my @isis_dirs = ( '.' );	# use dirname as database name
+my $data;
+
+my @lookup = (
+	{ 'key' => 'd:v900', 'val' => 'v250^a' },
+	{ 'eval' => '"v901^a" eq "Područje"', 'key' => 'pa:v561^4:v562^4:v461^1', 'val' => 'v900' },
+	{ 'eval '=> '"v901^a" eq "Mikrotezaurus"', 'key' => 'ma:v561^4:v562^4:v461^1', 'val' => 'v900' },
+	{ 'eval' => '"v901^a" eq "Deskriptor"', 'key' => 'da:v561^4:v562^4:v461^1', 'val' => 'v900' },
+);
+
+sub fill_in {
+	my $tmp = shift || return;
+	my $data = shift || return;
+	my $i = shift || 0;
+
+	my $found = 0;
+
+	sub get_sf {
+		my ($found,$data,$f,$sf,$i) = @_;
+		if ($$data->{$f}->[$i]->{$sf}) {
+			$$found++;
+			return $$data->{$f}->[$i]->{$sf};
+		} else {
+			return '';
+		}
+	}
 
-if ($opts{m}) {
-	@isis_dirs = split(/,/,$opts{m});
-}
+	sub get_nosf {
+		my ($found,$data,$f,$i) = @_;
+		if ($$data->{$f}->[$i]) {
+			$$found++;
+			return $$data->{$f}->[$i];
+		} else {
+			return '';
+		}
+	}
 
-my @isis_dbs;
+	$tmp =~ s/v(\d+)\^(\w)/get_sf(\$found,\$data,$1,$2,$i)/ges;
+	$tmp =~ s/v(\d+)/get_nosf(\$found,\$data,$1,$i)/ges;
 
-foreach (@isis_dirs) {
-	if (-e "$common::isis_data/$db_dir/$_/LIBRI") {
-		push @isis_dbs,"$common::isis_data/$db_dir/$_/LIBRI/LIBRI";
-	}
-	if (-e "$common::isis_data/$db_dir/$_/PERI") {
-		push @isis_dbs,"$common::isis_data/$db_dir/$_/PERI/PERI";
-	}
-	if (-e "$common::isis_data/$db_dir/$_/AMS") {
-		push @isis_dbs,"$common::isis_data/$db_dir/$_/AMS/AMS";
-	}
-	if (-e "$common::isis_data/$db_dir/$_/ARTI") {
-#		push @isis_dbs,"$common::isis_data/$db_dir/$_/ARTI/ARTI";
+	if ($found) {
+		return $tmp;
+	} else {
+		return;
 	}
 }
 
-foreach my $isis_db (@isis_dbs) {
+print "reading database...\n";
 
-	my $db = OpenIsis::open( "$isis_db" ) || warn "can't open '$isis_db'";
+for (my $mfn = 1; $mfn <= $maxmfn; $mfn++) {
 
-	my $max_rowid = OpenIsis::maxRowid( $db );
+	my $row = OpenIsis::read( $db, $mfn );
+print Dumper($row);
+	foreach my $k (keys %{$row}) {
+		if ($k ne "mfn") {
+			foreach my $l (@{$row->{$k}}) {
+				next if (! $l);
+				$l = $cp->convert($l);
+				# has subfields?
+				my $val;
+				if ($l =~ m/\^/) {
+					foreach my $t (split(/\^/,$l)) {
+						next if (! $t);
+						$val->{substr($t,0,1)} = substr($t,1);
+					}
+				} else {
+					$val = $l;
+				}
 
-	my $last_pcnt = 0;
+				push @{$data->{$mfn}->{$k}}, $val if ($val && $val ne "");
+			}
+		}
 
-	for (my $row_id = 1; $row_id <= $max_rowid; $row_id++ ) {
-		my $row = OpenIsis::read( $db, $row_id );
+	}
 
-		# output current process indicator
-		my $pcnt = int($row->{mfn} * 100 / $max_rowid);
-		if ($pcnt != $last_pcnt) {
-			printf STDERR ("%5d / %5d -- %-2d %%\n",$row->{mfn},$max_rowid,$pcnt) if (! $opts{q});
-			$last_pcnt = $pcnt;
+	foreach my $i (@lookup) {
+		if ($i->{'eval'}) {
+			my $eval = fill_in($i->{'eval'},$data->{$mfn});
+			my $key = fill_in($i->{'key'}, $data->{$mfn});
+			my $val = fill_in($i->{'val'}, $data->{$mfn});
+			if ($key && $val && eval $eval) {
+				push @{$data->{lookup}->{$key}}, $val;
+			}
+		} else {
+			my $key = fill_in($i->{'key'}, $data->{$mfn});
+			my $val = fill_in($i->{'val'}, $data->{$mfn});
+			if ($key && $val) {
+				push @{$data->{lookup}->{$key}}, $val;
+			}
 		}
 	}
+
 }
+print "\n";
+
+for (my $mfn = 1; $mfn <= $maxmfn; $mfn++) {
+	my $d = $data->{$mfn};
+	print $d->{'250'}->[0]->{'a'},"\n";
+	my $t = fill_in('v553^1;;v553^a', $d);
+	print " Uži pojam: $t\n" if ($t);
+	$t = fill_in('[a:v251];;[d:[a:v251]]', $d);
+	print " Uži pojam: $t\n" if ($t);
+}
+
+print Dumper($data);