#!/usr/bin/perl

my $inputfile = $ARGV[0];

print "Now splitting file $inputfile\n";
open(IN, "<$inputfile") or die "Error opening file $inputfile";
$dummy = <IN>;  # <?xml version="1.0" encoding="ISO-8859-1"?>
$dummy = <IN>;  #
$dummy = <IN>;  # <rdf:RDF .../>
$where = <IN>;  # <h:Object rdf:about="...">
chomp($where);
$where =~ s/^[^"]*"([^"]*)">$/$1/;
while(($line1 = <IN>) && not ($line1 =~ /<\/h:Object>/)) {
  $line2 = <IN>;
  $line3 = <IN>; # </refObj>
  $uri = $line2;
  chomp($uri);
  $uri =~ s/^ *<h:Occurrence rdf:about="[^"]*" rdf:value="([^"]*)"\/>$/$1/;
  $who = $uri;
  $who =~ s/^cic:/backward/;
  $who =~ s/#xpointer\(1\/([^\/]*)\/([^\/]*)\)/,$1,$2/;
  $who =~ s/#xpointer\(1\/([^\/]*)\)/,$1/;
  $line2 =~ s/\Q$uri\E/$where/;
   
  open(OUT, ">>$who") or die "Error opening file $who";
  print OUT "    <h:backPointer>\n";
  print OUT $line2;
  print OUT "    </h:backPointer>\n";
  close(OUT);
}
close(IN);
