#!/cygdrive/c/strawberry/perl/bin/perl -w # Need to specify the full path of Perl above, e.g. for Windows something like #!C:\\Perl32\\bin\\perl -w ## # This is used for exporting individual Greenstone # documents to Expeditee. To export entire collections, # use html-to-expeditee.pl ## use strict; my $iis6_mode = 0; if($iis6_mode){ #Change into cgi-bin directory chdir("cgi-bin"); } eval("require \"gsdlCGI.pm\""); if ($@) { print STDOUT "Content-type:text/plain\n\n"; print STDOUT "ERROR: $@\n"; exit 0; } sub display_output { my($docID,$c,$assocfilepath,$site,$fn,$found) = @_; my $iframeURL = "library/collection/$c/document/$docID"."?p.showAssocFilePath=1"; #Render an html page to display & export item. my $html = < Export Item to Expeditee

Exporting following document to Expeditee...