1 | #!/cygdrive/c/strawberry/perl/bin/perl -w
|
---|
2 |
|
---|
3 | # Need to specify the full path of Perl above, e.g. for Windows something like
|
---|
4 | #!C:\\Perl32\\bin\\perl -w
|
---|
5 |
|
---|
6 | use strict;
|
---|
7 | my $iis6_mode = 0;
|
---|
8 |
|
---|
9 | if($iis6_mode){
|
---|
10 | #Change into cgi-bin directory
|
---|
11 | chdir("cgi-bin");
|
---|
12 | }
|
---|
13 |
|
---|
14 | eval("require \"gsdlCGI.pm\"");
|
---|
15 | if ($@)
|
---|
16 | {
|
---|
17 | print STDOUT "Content-type:text/plain\n\n";
|
---|
18 | print STDOUT "ERROR: $@\n";
|
---|
19 | exit 0;
|
---|
20 | }
|
---|
21 |
|
---|
22 | sub display_output
|
---|
23 | {
|
---|
24 | my($docID,$c,$assocfilepath,$site) = @_;
|
---|
25 |
|
---|
26 | my $iframeURL = "library/collection/$c/document/$docID"."?p.showAssocFilePath=1";
|
---|
27 |
|
---|
28 | #Render an html page to display and export item.
|
---|
29 | my $html = <<EOT;
|
---|
30 | <html>
|
---|
31 | <head>
|
---|
32 | <title>Export Document to Expeditee</title>
|
---|
33 | <base href=".."/>
|
---|
34 |
|
---|
35 | <link type="text/css" href="ext/html-to-expeditee/jquery/css/le-frog/jquery-ui-1.8.16.custom.css" rel="stylesheet"/>
|
---|
36 | <script type="text/javascript" src="ext/html-to-expeditee/jquery/js/jquery-1.6.2.min.js"></script>
|
---|
37 | <script type="text/javascript" src="ext/html-to-expeditee/jquery/js/jquery-ui-1.8.16.custom.min.js"></script>
|
---|
38 | <script type="text/javascript" src="ext/html-to-expeditee/js/html-to-expeditee.js"></script>
|
---|
39 | <script type="text/javascript" src="ext/html-to-expeditee/js/gsajax-min.js"></script>
|
---|
40 |
|
---|
41 | <style type="text/css">
|
---|
42 | body{
|
---|
43 | font-family: Arial;
|
---|
44 | font-size: 16px;
|
---|
45 | color: #000;
|
---|
46 | }
|
---|
47 | </style>
|
---|
48 | <script type="text/javascript">
|
---|
49 | function load(){
|
---|
50 |
|
---|
51 | var iframe = document.getElementById("iframe");
|
---|
52 |
|
---|
53 | if(iframe.style.display != "block"){
|
---|
54 | iframe.height = "90%";
|
---|
55 | iframe.style.display = "block";
|
---|
56 | }
|
---|
57 |
|
---|
58 | var iframeDoc;
|
---|
59 |
|
---|
60 | if(iframe.contentDocument){
|
---|
61 | /* Firefox and Chrome */
|
---|
62 | iframeDoc = iframe.contentDocument;
|
---|
63 | }else if(iframe.contentWindow){
|
---|
64 | /* IE */
|
---|
65 | iframeDoc = iframe.contentWindow.document;
|
---|
66 | }
|
---|
67 |
|
---|
68 | var gsContent = iframeDoc.getElementById("gs_content");
|
---|
69 | var xmlUrl = iframe.src + "&o=xml";
|
---|
70 |
|
---|
71 | var frameNum = getMetadata(xmlUrl,'frameID');
|
---|
72 |
|
---|
73 | if(frameNum === null){
|
---|
74 | //use -1 as default, to change later.
|
---|
75 | frameNum = -1;
|
---|
76 | }
|
---|
77 |
|
---|
78 | //Check for assocfilepath
|
---|
79 | var assocElem = iframeDoc.getElementById('assocfilepath');
|
---|
80 | var assoc = null;
|
---|
81 |
|
---|
82 | if(assocElem === undefined || assocElem === null){
|
---|
83 | assoc = getMetadata(xmlUrl,'assocfilepath');
|
---|
84 | }else if(assocElem !== undefined && assocElem !== null){
|
---|
85 | var assocElemString = assocElem.innerHTML;
|
---|
86 | assoc =assocElemString.split(' ')[1];
|
---|
87 | }
|
---|
88 |
|
---|
89 | var expFrameTree = htmlToExpeditee(gsContent);
|
---|
90 | var expFrame = JSON.stringify(expFrameTree);
|
---|
91 |
|
---|
92 | var site = "$site";
|
---|
93 | var url = "cgi-bin/export-individual-expeditee.pl";
|
---|
94 | var params = "c=" + "$c";
|
---|
95 |
|
---|
96 | if(site.match(/\\w/)){
|
---|
97 | params += "&site=" + site;
|
---|
98 | }
|
---|
99 |
|
---|
100 | params += "&a=generate-frame&fn=" + frameNum;
|
---|
101 | params += "&json=" + escape(expFrame);
|
---|
102 |
|
---|
103 | //Add an assocfilepath param
|
---|
104 | if(assoc !== null){
|
---|
105 | params += "&assoc=" + assoc;
|
---|
106 | }
|
---|
107 |
|
---|
108 | var request = urlPostSync(url,params);
|
---|
109 | var msg = "Document has been successfully exported to Expeditee.";
|
---|
110 |
|
---|
111 | //TODO: the value of frameNum is changed in ExpediteeExportAction, so need a way to retrieve this for the alert message.
|
---|
112 | if(frameNum != -1)
|
---|
113 | msg += " The corresponding Expeditee frame can be found in the collection's export directory at: " + frameNum + ".exp";
|
---|
114 |
|
---|
115 | alert(msg);
|
---|
116 | }
|
---|
117 |
|
---|
118 | function getMetadata(xmlUrl,nameValue){
|
---|
119 |
|
---|
120 | var metadata = null;
|
---|
121 |
|
---|
122 | \$.ajax({
|
---|
123 | type: "GET",
|
---|
124 | async: false,
|
---|
125 | url: xmlUrl,
|
---|
126 | dataType: "xml",
|
---|
127 | success: function(xml){
|
---|
128 |
|
---|
129 | \$(xml).find('metadata').each(function(){
|
---|
130 |
|
---|
131 | var name = \$(this).attr('name');
|
---|
132 |
|
---|
133 | if(name === nameValue){
|
---|
134 |
|
---|
135 | if(metadata === null){
|
---|
136 | metadata = \$(this).text();
|
---|
137 | //console.log(metadata);
|
---|
138 | }
|
---|
139 |
|
---|
140 | }
|
---|
141 | });
|
---|
142 |
|
---|
143 | }
|
---|
144 |
|
---|
145 | });
|
---|
146 |
|
---|
147 | return metadata;
|
---|
148 | }
|
---|
149 | </script>
|
---|
150 |
|
---|
151 | <body>
|
---|
152 |
|
---|
153 | <p id="msg">Exporting following document to Expeditee... </p>
|
---|
154 |
|
---|
155 | <hr style="margin: 10px;"/>
|
---|
156 |
|
---|
157 | <!-- Load up an iframe to display URL in-->
|
---|
158 | <div align="center"><iframe id="iframe" width="1000px" height="90%" src="$iframeURL" onload="load();"></iframe></div>
|
---|
159 | </body>
|
---|
160 | </html>
|
---|
161 | EOT
|
---|
162 | print "Content-type:text/html\n\n";
|
---|
163 | print $html;
|
---|
164 | }
|
---|
165 |
|
---|
166 | sub main
|
---|
167 | {
|
---|
168 | my $gsdl_cgi = new gsdlCGI();
|
---|
169 |
|
---|
170 | #Load needed GSDL modules
|
---|
171 | $gsdl_cgi->setup_gsdl();
|
---|
172 |
|
---|
173 | my $gsdlhome = $ENV{'GSDLHOME'};
|
---|
174 | $gsdl_cgi->checked_chdir($gsdlhome);
|
---|
175 |
|
---|
176 | require cgiactions::ExpediteeExportAction;
|
---|
177 | $gsdl_cgi->parse_cgi_args();
|
---|
178 |
|
---|
179 | $gsdl_cgi->{'xml'} = 0;
|
---|
180 |
|
---|
181 | my $fn = $gsdl_cgi->param("fn");
|
---|
182 |
|
---|
183 | if(defined $fn){
|
---|
184 |
|
---|
185 | my $site = $gsdl_cgi->clean_param("site");
|
---|
186 | my $c = $gsdl_cgi->clean_param("c");
|
---|
187 | my $a = $gsdl_cgi->clean_param("a"); #assocfilepath
|
---|
188 |
|
---|
189 | my $json = $gsdl_cgi->clean_param("json");
|
---|
190 |
|
---|
191 | my $action = new ExpediteeExportAction($gsdl_cgi,$iis6_mode);
|
---|
192 | $action->do_action();
|
---|
193 |
|
---|
194 | }else{
|
---|
195 |
|
---|
196 | my $docID = $gsdl_cgi->clean_param("docID");
|
---|
197 | my $c = $gsdl_cgi->clean_param("c");
|
---|
198 | my $assocfilepath = $gsdl_cgi->clean_param("assocfilepath");
|
---|
199 | my $site = $gsdl_cgi->clean_param("site");
|
---|
200 |
|
---|
201 | if(!defined $site){
|
---|
202 | $gsdl_cgi->generate_error("No site specified.");
|
---|
203 | }
|
---|
204 |
|
---|
205 | display_output($docID,$c,$assocfilepath,$site);
|
---|
206 | }
|
---|
207 | }
|
---|
208 |
|
---|
209 | &main(); |
---|