From 378ceb25d315acfdcd781ddeb496c16ae52702ef Mon Sep 17 00:00:00 2001
From: Daouda Lo <daouda@mandriva.com>
Date: Thu, 15 Sep 2005 14:30:19 +0000
Subject: - fix compile errors

---
 mdkonline.pm | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'mdkonline.pm')

diff --git a/mdkonline.pm b/mdkonline.pm
index c95c6f2a..08750f26 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -28,7 +28,7 @@ sub get_release() {
 
 sub set_ua {
     my $package_name = shift;
-    my $qualified_name = chomp_(`rpm -q $name`);
+    my $qualified_name = chomp_(`rpm -q $package_name`);
     $qualified_name
 }
 
@@ -65,7 +65,7 @@ sub get_site {
     system("/usr/bin/www-browser  " . $link . "&");
 }
 
-sub subscribe_online {
+sub create_authenticate_account {
     my ($type) = shift;
     my ($response, $code);
     my $hreturn = {
@@ -86,22 +86,22 @@ sub subscribe_online {
     foreach my $num ([9, 8], [21, 20]) { $hreturn->{$num->[0]} = $hreturn->{$num->[1]} };
     my $action = {
 		  create => sub {
-		      eval { $response = $this->soap_create_account(@_) };
+		      eval { $response = soap_create_account(@_) };
 		      if ($response->{status}) {
-			  return 'OK'
+			  return 'OK';
 		      } else {
-			  $code = $this->{response}{code} || '99';
+			  $code = $response->{code} || '99';
 			  return $hreturn->{$code}->[0] . ' : ' . $hreturn->{$code}->[1];
-		      },
-		  }
+		      }
+		  },
 		  authenticate => sub {
-		      eval { $response = $this->soap_authenticate_user(@_) };
+		      eval { $response = soap_authenticate_user(@_) };
 		      if ($response->{status}) {
 			  return 'OK'
 		      } else {
-			  $code = $this->{response}{code} || '99';
+			  $code = $response->{code} || '99';
 			  return $hreturn->{$code}->[0] . ' : ' . $hreturn->{$code}->[1];
-		      },
+		      }
 		  }
 		 };
     $action->{$type}->();
-- 
cgit v1.2.1