Index: /gs3-extensions/html-to-expeditee/trunk/src/src/cgi-bin/generate-collection-space.pl.in
===================================================================
--- /gs3-extensions/html-to-expeditee/trunk/src/src/cgi-bin/generate-collection-space.pl.in (revision 26744)
+++ /gs3-extensions/html-to-expeditee/trunk/src/src/cgi-bin/generate-collection-space.pl.in (revision 26744)
@@ -0,0 +1,218 @@
+#!/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
+
+use strict;
+
+# Set this to 1 to work around IIS 6 craziness
+my $iis6_mode = 0;
+
+
+# IIS 6: for some reason, IIS runs this script with the working directory set to the Greenstone
+# directory rather than the cgi-bin directory, causing lots of stuff to fail
+if ($iis6_mode)
+{
+ # Change into cgi-bin directory
+ chdir("cgi-bin");
+}
+
+
+# We use require and an eval here (instead of "use") to catch any errors loading the module (for IIS)
+eval("require \"gsdlCGI.pm\"");
+if ($@)
+{
+ print STDOUT "Content-type:text/plain\n\n";
+ print STDOUT "ERROR: $@\n";
+ exit 0;
+}
+
+sub generate_html_form
+{
+ # First create an overlay frame containing CL links.
+
+ # Then create frames with document links and images.
+
+ my ($isGSDL2,$site,$collect,$cl) = @_;
+
+ my $html_form = <
+
+ Generate Collection Space for $collect
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+