svn commit: r1363299 - /trafficserver/site/trunk/content/cgi-bin/random.cgi

[humbedooh]

Author: humbedooh
Date: Thu Jul 19 11:25:57 2012
New Revision: 1363299

URL: http://svn.apache.org/viewvc?rev=1363299&view=rev
Log:
fix perl script

Modified:
    trafficserver/site/trunk/content/cgi-bin/random.cgi

Modified: trafficserver/site/trunk/content/cgi-bin/random.cgi
URL: 
http://svn.apache.org/viewvc/trafficserver/site/trunk/content/cgi-bin/random.cgi?rev=1363299&r1=1363298&r2=1363299&view=diff
==============================================================================
--- trafficserver/site/trunk/content/cgi-bin/random.cgi (original)
+++ trafficserver/site/trunk/content/cgi-bin/random.cgi Thu Jul 19 11:25:57 2012
@@ -1,5 +1,7 @@
-#!/usr/bin/perl
-my $response = `curl 
"https://issues.apache.org/jira/secure/IssueNavigator.jspa?reset=true&jqlQuery=project+%3D+TS+AND+status+%3D+Open+ORDER+BY+priority+DESC&mode=hide"`;
+#!/usr/bin/perl -T
+$ENV{ 'PATH' } = '/bin:/usr/bin:/usr/local/bin';
+delete @ENV{ 'IFS', 'CDPATH', 'ENV', 'BASH_ENV' };
+my $response = `curl 
'https://issues.apache.org/jira/secure/IssueNavigator.jspa?reset=true&jqlQuery=project+%3D+TS+AND+status+%3D+Open+ORDER+BY+priority+DESC&mode=hide'`;
 my @matches = ( $response =~ /browse\/(TS\-\d+)/g );
 my $length = $#matches + 1; 
 $length = rand($length);