%# $Id: upload.mc,v 1.2 2007-07-17 14:31:54 mike Exp $ <%args> $filename => undef %args> % if (!defined $filename) {
Please note that this form expects a ZeeRex record only, not an entire SRU explainResponse.
% return; % } <%perl> my $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 $conn = new ZOOM::Connection("localhost:8018/IR-Explain---1", 0, user => "admin", password => "fruitbat", elementSetName => "zeerex"); ZOOM::IRSpy::_really_rewrite_record($conn, $xc->getContextNode()); %perl>
Upload OK.
Proceed to ">the new record.