source: main/trunk/greenstone2/cgi-bin/trackreport.cgi@ 21377

Last change on this file since 21377 was 11655, checked in by kjdon, 18 years ago

changed email address to greenstone instead of dmn

  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.3 KB
Line 
1#!/usr/bin/perl
2
3use usabcgi;
4
5print "Content-type:text/html\n\n";
6
7
8print "<html><head><title>Greenstone Usability - Track Report</title>\n";
9usabcgi::printscript;
10usabcgi::printstyle($ENV{HTTP_USER_AGENT});
11
12print "</head><body bgcolor=\"#ffffff\">\n";
13
14usabcgi::printbanner("Track Report");
15usabcgi::printaplinks;
16
17usabcgi::checkidno;
18
19%reportvals=usabcgi::getusabreportdetails;
20
21print "<h2>Your automatically generated report ID number is: $reportvals{\"report-id\"}</h2>\n";
22
23print "<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
25print "<h2>Updates on this report</h2>\n";
26if(!(defined($reportvals{"update"}))){ print "<p>None at this time.</p>\n"; }
27else { print $reportvals{"update"}; }
28
29print "<br><br><p class=\"sans\"><a href=\"mailto:greenstone&#064;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
33print "</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.