[csw-devel] SF.net SVN: gar:[11397] csw/mgar/gar/v2/bin/upstream_watch

[skayser at users.sourceforge.net]

Revision: 11397
          http://gar.svn.sourceforge.net/gar/?rev=11397&view=rev
Author:   skayser
Date:     2010-10-25 16:11:07 +0000 (Mon, 25 Oct 2010)

Log Message:
-----------
gar: add https support to upstream_watch

Modified Paths:
--------------
    csw/mgar/gar/v2/bin/upstream_watch

Modified: csw/mgar/gar/v2/bin/upstream_watch
===================================================================
--- csw/mgar/gar/v2/bin/upstream_watch	2010-10-25 14:21:29 UTC (rev 11396)
+++ csw/mgar/gar/v2/bin/upstream_watch	2010-10-25 16:11:07 UTC (rev 11397)
@@ -89,8 +89,10 @@
 	$ftp_proxy_cmd = "set ftp:proxy $ENV{ftp_proxy};" if exists $ENV{ftp_proxy};
 	$http_proxy_cmd = "set http:proxy $ENV{HTTP_PROXY};" if exists $ENV{HTTP_PROXY};
 	$http_proxy_cmd = "set http:proxy $ENV{http_proxy};" if exists $ENV{http_proxy};
+	$https_proxy_cmd = "set https:proxy $ENV{HTTPS_PROXY};" if exists $ENV{HTTPS_PROXY};
+	$https_proxy_cmd = "set https:proxy $ENV{https_proxy};" if exists $ENV{https_proxy};
 
-	open (FH, "lftp -q -c \"set net:timeout 30; set net:max-retries 16; $ftp_proxy_cmd $http_proxy_cmd open $url/ && ls\" 2>/dev/null |");
+	open (FH, "lftp -q -c \"set net:timeout 30; set net:max-retries 16; $ftp_proxy_cmd $http_proxy_cmd $https_proxy_cmd open $url/ && ls\" 2>/dev/null |");
 
 	while (my $line = <FH>) {
 		my @cols = split (/\s+/, $line);


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.