diff options
author | Daouda Lo <daouda@mandriva.com> | 2006-02-23 14:48:09 +0000 |
---|---|---|
committer | Daouda Lo <daouda@mandriva.com> | 2006-02-23 14:48:09 +0000 |
commit | 73a75758e70d878a718fa442fcf9bf427db91add (patch) | |
tree | 424f6a3e8c319b9f18d3b288d22ccc5227a5ddb4 | |
parent | f450ebd0c4f6b39aec7a6ad2c2870d45a11d9a94 (diff) | |
download | mgaonline-73a75758e70d878a718fa442fcf9bf427db91add.tar mgaonline-73a75758e70d878a718fa442fcf9bf427db91add.tar.gz mgaonline-73a75758e70d878a718fa442fcf9bf427db91add.tar.bz2 mgaonline-73a75758e70d878a718fa442fcf9bf427db91add.tar.xz mgaonline-73a75758e70d878a718fa442fcf9bf427db91add.zip |
- connect to start page
-rwxr-xr-x | mdkupdate | 24 |
1 files changed, 6 insertions, 18 deletions
@@ -38,19 +38,15 @@ require_root_capability(); my $confdir = '/root/.MdkOnline'; my $conffile = "$confdir/mdkupdate"; + my $difflog = '/var/tmp/diff.log'; +my $logfile = '/var/tmp/mdkupdate.log'; + my $currentrpm = "$confdir/rpm_qa_installed_current"; my $afterrpm = "$confdir/rpm_qa_installed_after"; -my $logfile = '/var/tmp/mdkupdate.log'; - -my $onlineUrl = "https://www.mandrivaonline.com/"; - -my $url; -foreach (qw(online_dif online_update online3_RemoteAction wizard)) { - $url->{$_} = $onlineUrl . $_ . '.php'; -} +my $startpage = 'http://start.mandriva.com/bundle/'; my $VERSION = "3"; my $YEARS = "2002-2005"; @@ -90,7 +86,7 @@ GetOptions(%options); -s $conffile || $bundle or die N("No %s file found. Run mdkonline wizard first", $conffile); -$bundle eq "webbundle" and mdkonline::get_site("http://online3.mandriva.com/one/web/bundle"), exit(0); +$bundle eq "webbundle" and mdkonline::get_site($startpage), exit(0); my $result; my $wc = mdkonline::read_conf(); @@ -131,7 +127,7 @@ if (!$bundle) { } } else { # no HOST_ID - } + } } else { my $bundle_info; my $namespace = 'http://online3.mandriva.com/o/soap/'; @@ -274,14 +270,6 @@ sub update_pkgs { return 1; } -sub send_conf_update { - my ($login, $password, $boxname) = @_; - mdkonline::report_config("$confdir/$login.$password.$boxname.online.log"); - my $tag = { submit => 'upload_wizard', wizard => [ "$confdir/$login.$password.$boxname.online.log.bz2.uue" ] }; - my ($res, $key) = mdkonline::send_config($url->{wizard}, $tag); - ($res, $key); -} - sub get_rpm_diff { my $isdif = `sdiff -s $afterrpm $currentrpm`; $isdif and output_p($difflog, $isdif), return 1; |