summaryrefslogtreecommitdiffstats
path: root/mdkupdate
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2006-02-23 14:48:09 +0000
committerDaouda Lo <daouda@mandriva.com>2006-02-23 14:48:09 +0000
commit73a75758e70d878a718fa442fcf9bf427db91add (patch)
tree424f6a3e8c319b9f18d3b288d22ccc5227a5ddb4 /mdkupdate
parentf450ebd0c4f6b39aec7a6ad2c2870d45a11d9a94 (diff)
downloadmgaonline-73a75758e70d878a718fa442fcf9bf427db91add.tar
mgaonline-73a75758e70d878a718fa442fcf9bf427db91add.tar.gz
mgaonline-73a75758e70d878a718fa442fcf9bf427db91add.tar.bz2
mgaonline-73a75758e70d878a718fa442fcf9bf427db91add.tar.xz
mgaonline-73a75758e70d878a718fa442fcf9bf427db91add.zip
- connect to start page
Diffstat (limited to 'mdkupdate')
-rwxr-xr-xmdkupdate24
1 files changed, 6 insertions, 18 deletions
diff --git a/mdkupdate b/mdkupdate
index ab5d5c7e..946fe52d 100755
--- a/mdkupdate
+++ b/mdkupdate
@@ -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;