source:
gsdl/tags/gsdl-2_74-distribution/cgi-bin/trackreport.cgi@
18449
Last change on this file since 18449 was 11655, checked in by , 18 years ago | |
---|---|
|
|
File size: 1.3 KB |
Line | |
---|---|
1 | #!/usr/bin/perl |
2 | |
3 | use usabcgi; |
4 | |
5 | print "Content-type:text/html\n\n"; |
6 | |
7 | |
8 | print "<html><head><title>Greenstone Usability - Track Report</title>\n"; |
9 | usabcgi::printscript; |
10 | usabcgi::printstyle($ENV{HTTP_USER_AGENT}); |
11 | |
12 | print "</head><body bgcolor=\"#ffffff\">\n"; |
13 | |
14 | usabcgi::printbanner("Track Report"); |
15 | usabcgi::printaplinks; |
16 | |
17 | usabcgi::checkidno; |
18 | |
19 | %reportvals=usabcgi::getusabreportdetails; |
20 | |
21 | print "<h2>Your automatically generated report ID number is: $reportvals{\"report-id\"}</h2>\n"; |
22 | |
23 | print "<p>Thank you very much for helping us improve the usability of the Greenstone software\n<p>We received your report at $reportvals{\"time\"}, any updates are shown below.\n<p>To track this report continue to use the URL <a href=\"http://$ENV{HTTP_HOST}$ENV{SCRIPT_NAME}?$ENV{QUERY_STRING}\">http://$ENV{HTTP_HOST}$ENV{SCRIPT_NAME}?$ENV{QUERY_STRING}</a>.\n"; |
24 | |
25 | print "<h2>Updates on this report</h2>\n"; |
26 | if(!(defined($reportvals{"update"}))){ print "<p>None at this time.</p>\n"; } |
27 | else { print $reportvals{"update"}; } |
28 | |
29 | print "<br><br><p class=\"sans\"><a href=\"mailto:greenstone@cs.waikato.ac.nz\">Contact us</a> with any queries or if you would like this report to be removed from the database. Please include your report ID number ($ENV{QUERY_STRING}) if your query concerns this report specifically.\n"; |
30 | |
31 | |
32 | |
33 | print "</body></html>"; |
34 | |
35 | |
36 | |
37 | |
38 | |
39 | |
40 | |
41 | |
42 | |
43 | |
44 | |
45 | |
46 | |
47 |
Note:
See TracBrowser
for help on using the repository browser.