summaryrefslogtreecommitdiffstats
path: root/mdkonline.pm
diff options
context:
space:
mode:
Diffstat (limited to 'mdkonline.pm')
-rw-r--r--mdkonline.pm73
1 files changed, 68 insertions, 5 deletions
diff --git a/mdkonline.pm b/mdkonline.pm
index a2400b12..37dcc8a6 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -14,12 +14,13 @@ use HTTP::Request;
use SOAP::Lite;
#For debugging
-#use Data::Dumper;
+use Data::Dumper;
my $release_file = find { -f $_ } '/etc/mandriva-release', '/etc/mandrakelinux-release', '/etc/mandrake-release', '/etc/redhat-release';
-my $uri = 'https://my.mandriva.com/soap/';
-my $serviceProxy = 'https://my.mandriva.com/soap/';
-my $onlineProxy = 'https://onine.mandriva.com/soap';
+#my $uri = 'https://localhost/~romain/online3/htdocs/soap';
+my $uri = 'https://online.mandriva.com/soap';
+my $serviceProxy = $uri;
+my $onlineProxy = $uri;
my $useragent = set_ua('mdkonline');
@@ -29,6 +30,58 @@ sub is_proxy () {
my $s = is_proxy() ? SOAP::Lite->uri($uri)->proxy($serviceProxy, proxy => [ 'http' => $ENV{http_proxy} ], agent => $useragent) : SOAP::Lite->uri($uri)->proxy($serviceProxy, agent => $useragent);
+#
+sub upgrade_to_v3 {
+ my $oldconffile = '/root/.MdkOnline/mdkupdate';
+ if( ( -e $oldconffile ) && ( -s $oldconffile ) ) {
+ my %old = getVarsFromSh('/root/.MdkOnline/mdkupdate');
+ if( $old{LOGIN} ne '' && $old{PASS} ne '' && $old{MACHINE} ne '' ) {
+ my $res = mdkonline::soap_recover_service($old{LOGIN},'{md5}'.$old{PASS},$old{MACHINE},$old{COUNTRY});
+ print Dumper($res);
+ print 'code is: ' . $res->{code} . "\n";
+ print Dumper($res->{data});
+ if( $res->{code} eq '0' || $res->{code} == 0 ) {
+ #logsay "succeeded to register anew to service; configuring local host.";
+ my $dateset = chomp_(`LC_ALL=C date`);
+ my $auto = 'FALSE';
+ my $mobile = 'FALSE';
+ my $country = 'FR';
+ my $service = 'https://online.mandriva.com/service';
+ # TODO set config file differently: set vars in a hash
+ # and setVarsInSh() to save it (nicer in order to handle optional vars)
+ output '/etc/sysconfig/mdkonline',
+ qq(# automatically generated file. Please don't edit.
+# use mdvonline_wizard instead.
+VERSION=3
+DATESET=$dateset
+SERVICE=$service
+CUSTOMER_ID=$res->{data}->{customer_id}
+HOST_ID=$res->{data}->{host_id}
+HOST_KEY=$res->{data}->{host_key}
+HOST_NAME=$res->{data}->{host_name}
+HOST_GROUPS=
+COUNTRY=$country
+MOBILE=$mobile
+AUTO=$auto
+);
+ return 1;
+ }
+ else {
+ #logwarn "failed to recover service; answer was: " . $res->{message} . "(" . $res->{code} . ")";
+ }
+ }
+ else {
+ # missing info in config file; invalid;
+ #logwarn "failed to recover service; config file is missing some info.";
+ }
+ }
+ else {
+ # no config file found;
+ #logwarn "no config file has been found (" . $oldconffile . ")";
+ }
+ return 0;
+};
+
sub md5file {
require Digest::MD5;
my @md5 = map {
@@ -62,7 +115,7 @@ sub get_distro_type {
}
sub soap_create_account {
- my $register = $s->registerUserFromWizard(@_)->result();
+ my $register = $s->registerUser(@_)->result();
$register;
}
@@ -71,6 +124,16 @@ sub soap_authenticate_user {
$auth
}
+sub soap_recover_service {
+ my $auth = $s->recoverHostFromV2(@_)->result();
+ $auth;
+}
+
+sub soap_get_task {
+ my $auth = $s->getTask(@_)->result();
+ $auth;
+}
+
sub get_from_URL {
my ($link, $agent_name) = @_;
my $ua = LWP::UserAgent->new;