| OLD | NEW |
| 1 #!/usr/bin/perl -w | 1 #!/usr/bin/perl -wT |
| 2 | 2 |
| 3 use CGI; | 3 use CGI; |
| 4 use HTTP::Date; | 4 use HTTP::Date; |
| 5 | 5 |
| 6 print "Content-type: text/javascript\n"; | 6 print "Content-type: text/javascript\n"; |
| 7 | 7 |
| 8 my $query = new CGI; | 8 my $query = new CGI; |
| 9 @names = $query->param; | 9 @names = $query->param; |
| 10 foreach (@names) { | 10 foreach (@names) { |
| 11 next if ($_ eq "uniqueId"); | 11 next if ($_ eq "uniqueId"); |
| 12 print $_ . ": " . $query->param($_) . "\n"; | 12 print $_ . ": " . $query->param($_) . "\n"; |
| 13 } | 13 } |
| 14 | 14 |
| 15 my $random_number = int(rand(1000000000000)); | 15 my $random_number = int(rand(1000000000000)); |
| 16 # include randam etag to stop apache from doing any caching | 16 # include randam etag to stop apache from doing any caching |
| 17 print "ETag: " . $random_number . "\n"; | 17 print "ETag: " . $random_number . "\n"; |
| 18 print "\n"; | 18 print "\n"; |
| 19 | 19 |
| 20 print "randomNumber = " . $random_number . ";\n"; | 20 print "randomNumber = " . $random_number . ";\n"; |
| OLD | NEW |