Last change
on this file since 4130 was 4130, checked in by dana, 21 years ago |
report tracker
|
-
Property svn:executable
set to
*
-
Property svn:keywords
set to
Author Date Id Revision
|
File size:
1.3 KB
|
Rev | Line | |
---|
[4130] | 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:dmn@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.