summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2006-02-27 14:49:15 +0000
committerDaouda Lo <daouda@mandriva.com>2006-02-27 14:49:15 +0000
commit07719ab45c1e5d4ca9b8b6ad2e9de5ba85111c36 (patch)
treeb12edbeecf5c36adede09a21a93f141bdc7623ce
parentb13bacc7cf34669c3c9281282846f4b9a671f2f4 (diff)
downloadmgaonline-07719ab45c1e5d4ca9b8b6ad2e9de5ba85111c36.tar
mgaonline-07719ab45c1e5d4ca9b8b6ad2e9de5ba85111c36.tar.gz
mgaonline-07719ab45c1e5d4ca9b8b6ad2e9de5ba85111c36.tar.bz2
mgaonline-07719ab45c1e5d4ca9b8b6ad2e9de5ba85111c36.tar.xz
mgaonline-07719ab45c1e5d4ca9b8b6ad2e9de5ba85111c36.zip
- perl_checko
-rw-r--r--mdkonline.pm26
1 files changed, 13 insertions, 13 deletions
diff --git a/mdkonline.pm b/mdkonline.pm
index 5de62025..09cac813 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -47,11 +47,11 @@ sub upgrade2v3 {
my $res;
if (-e $rootconf_file) {
my %oc = getVarsFromSh($rootconf_file);
- my $res = soap_recover_service($oc{LOGIN},'{md5}'. $oc{PASS}, $oc{MACHINE}, $oc{COUNTRY});
+ my $res = soap_recover_service($oc{LOGIN}, '{md5}'. $oc{PASS}, $oc{MACHINE}, $oc{COUNTRY});
print Dumper($res);
- $res = check_server_response()
+ $res = check_server_response();
}
- $res
+ $res;
}
sub get_rpmdblist {
@@ -75,45 +75,45 @@ sub md5file {
sub get_release() {
my ($r) = cat_($release_file) =~ /release\s+(\S+)/;
- ($r)
+ ($r);
}
sub set_ua {
my $package_name = shift;
my $qualified_name = chomp_(`rpm -q $package_name`);
- $qualified_name
+ $qualified_name;
}
sub get_distro_type {
my $r = cat_($release_file);
- my ($arch) = $r =~ /\s+for\s+(\w+)/;
+ my ($archi) = $r =~ /\s+for\s+(\w+)/;
my ($name) = $r =~ /(corporate|mnf)/i;
- { name => lc($name), arch => $arch };
+ { name => lc($name), arch => $archi };
}
sub soap_create_account {
- my $data = $s->registerUser(@_)->result();
+ my $data = $s->registerUser(@_)->result;
$data;
}
sub soap_authenticate_user {
- my $data = $s->authenticateUser(@_)->result();
+ my $data = $s->authenticateUser(@_)->result;
$data;
}
sub soap_register_host {
- my $data = $s->registerHost(@_)->result();
+ my $data = $s->registerHost(@_)->result;
$data;
}
sub soap_upload_config {
- my $data = $s->setHostConfig(@_)->result();
+ my $data = $s->setHostConfig(@_)->result;
$data;
}
sub soap_query_bundle {
my ($wc, $bundle_name) = @_;
- my $data = $s->query($wc->{HOST_ID}, $wc->{HOST_KEY}, 'Software::get_bundle', $bundle_name)->result();
+ my $data = $s->query($wc->{HOST_ID}, $wc->{HOST_KEY}, 'Software::get_bundle', $bundle_name)->result;
$data;
}
sub register_upload_host {
@@ -131,7 +131,7 @@ sub register_upload_host {
#Reread configuration
$wc = read_conf() if $res eq 'OK';
$res = prepare_upload_con($wc);
- $res
+ $res;
}
sub prepare_upload_conf {