From b45b03e990321511a81c28479ecf2315ca72f546 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 18 Jan 2010 16:02:44 +0000
Subject: factorize get_from() (thus making mdkapplet-enterprise-update-helper
 report distro version too)

---
 mdkonline.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'mdkonline.pm')

diff --git a/mdkonline.pm b/mdkonline.pm
index 7175355e..5ae5cd76 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -32,6 +32,7 @@ use ugtk2;
 our @ISA = qw(Exporter);
 our @EXPORT = qw(fork_exec
                  get_banner
+                 get_from
                  get_product_id
                  get_stale_upgrade_filename
                  is_enterprise_media_supported
@@ -115,6 +116,19 @@ sub is_running {
     $found;
 }
 
+
+sub get_from {
+    my ($link, $header) = @_;
+    
+    my $ua = LWP::UserAgent->new;
+    $ua->agent(sprintf('mdkapplet (mdkonline-%s; distribution: %s)',
+                       $mdkonline::version, $version));
+    $ua->env_proxy;
+
+    my $response = $ua->request(POST $link, $header);
+    $response;
+}
+
 # callers need to require XML::Simple
 sub xml2perl {
     my ($res) = @_;
-- 
cgit v1.2.1