--- ocsinventory-client.pl	2015-04-20 11:23:35.130535000 -0500
+++ /tmp/ocsinventory-client.pl	2015-04-20 11:26:38.000000000 -0500
@@ -82,6 +82,7 @@
 my(	$req, $res, $ua, $Dversion, $AuthUpdate, $inventory, %request, @lspci,
 	%account, @config, $ServerName, $DeviceID, $old_deviceid, $YEAR, $MONTH, $DAY, $HOUR, $MIN, $SEC,
 	$xfree, @xconfig, $compress, $xml, $start, $end, $UnitID, $OrderID, $OrderYear, $local,
+	$proxy,
 	$OrderOwner,$ProductID, %xmladm, %xmlconf, $URI, %options, $distro, $Iversion);
 
 my( $XmlLocalDir );
@@ -122,6 +123,7 @@
 $Iversion   = $xmlconf->{IPDISCOVER_VERSION}?$xmlconf->{IPDISCOVER_VERSION}:1;
 $AuthUpdate = 1 if $xmlconf->{UPDATE} eq '1';
 $XmlLocalDir   = $xmlconf->{XMLLOCALDIR};
+$proxy = $xmlconf->{PROXY};
 
 # Reading Account infos 
 my $xmladm = XML::Simple::XMLin( $install_path."/ocsinv.adm", ForceArray => [ 'ACCOUNTINFO' ] );
@@ -228,6 +230,8 @@
 	# Connect to server
 	$ua = LWP::UserAgent->new(keep_alive => 1);
 	$ua->agent('OCS-NG_linux_client_v'.VERSION);
+	$proxy = $ENV{http_proxy} if exists $ENV{http_proxy};
+	$ua->proxy( ['http'], $proxy ) if defined $proxy;
 
 	# Update if needed
 	if($AuthUpdate){
@@ -1078,6 +1082,9 @@
 
 		# Checking response
 		if($res->is_success){
+		    if ( defined $proxy ) {
+			print localtime()." => Using proxy ".$proxy."\n";
+		    }		
 			print localtime()." => Transmission...done.\n";
 		}else{
 			print localtime()." => Cannot transmit inventory ->".$res->status_line, "\n";