%# $Id: upload.mc,v 1.3 2009-04-16 18:09:44 wosch Exp $ <%args> $filename => undef % if (!defined $filename) {

Please note that this form expects a ZeeRex record only, not an entire SRU explainResponse.

ZeeRex file to upload:

% return; % } <%perl> my $fin; # Apache2.0 if ($r->isa('Apache2::RequestRec')) { require Apache2::Request; require Apache2::Upload; my $req = new Apache2::Request($r); my $upload = $req->upload('filename'); $fin = $upload->fh(); } # Apache 1.3 else { $fin = $r->upload()->fh(); } if (!defined $fin) { $m->comp("/details/error.mc", msg => "Upload cancelled"); return; } my $xml = join("", <$fin>); my $xc = irspy_xpath_context($xml); my $id = irspy_record2identifier($xc); my $db = ZOOM::IRSpy::connect_to_registry(); my $conn = new ZOOM::Connection($db, 0, user => "admin", password => "fruitbat", elementSetName => "zeerex"); ZOOM::IRSpy::_rewrite_zeerex_record($conn, $xc->getContextNode());

Upload OK.

Proceed to the new record.