From 01884649ead863e803ca5d251910f98da39d31d8 Mon Sep 17 00:00:00 2001
From: Daouda Lo <daouda@mandriva.com>
Date: Thu, 30 Sep 2004 04:05:45 +0000
Subject: - version system

---
 mdkonline.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/mdkonline.pm b/mdkonline.pm
index fd2369ba..ee17c12b 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -12,6 +12,9 @@ use Net::HTTPS;
 use HTTP::Request::Common;
 use HTTP::Request;
 
+#Don't change version manually
+$::VERSION = '1.1-13mdk';
+
 sub get_release() {
     my ($release) = cat_('/etc/mandrake-release') =~ /release\s+(\S+)/;
     ($release)
@@ -20,7 +23,7 @@ sub get_release() {
 sub get_from_URL {
     my ($link, $agent_name) = @_;
     my $ua = LWP::UserAgent->new;
-    $ua->agent($agent_name . $ua->agent);
+    $ua->agent($agent_name . $ua->agent . $::VERSION);
     $ua->env_proxy;
     my $request = HTTP::Request->new(GET => $link);
     my $response = $ua->request($request);
@@ -48,7 +51,7 @@ sub browser {
 
 sub subscribe_online {
     my ($full_link) = shift;
-    my $ret = get_from_URL($full_link, "MdkOnlineAgent/1.1");
+    my $ret = get_from_URL($full_link, "MdkOnlineAgent/");
     my $str;
     my $result = {
 		  10 => 'OK',
@@ -154,7 +157,7 @@ sub send_config {
     my ($link, $content) = @_;
     my ($res, $key);
     my $ua = LWP::UserAgent->new;
-    $ua->agent("MdkOnlineAgent/0.15" . $ua->agent);
+    $ua->agent("MdkOnlineAgent" . '/' . $ua->agent . $::VERSION);
     $ua->env_proxy;
     my $response = $ua->request(POST $link,
 				Content_Type => 'form-data',
-- 
cgit v1.2.1