From bbf703fb564a432187be6380d76c75b36316bc83 Mon Sep 17 00:00:00 2001 From: Daouda Lo Date: Tue, 21 Feb 2006 12:35:11 +0000 Subject: - write global conf --- mdkonline.pm | 122 ++++++++++++++++++++++++----------------------------------- 1 file changed, 50 insertions(+), 72 deletions(-) (limited to 'mdkonline.pm') diff --git a/mdkonline.pm b/mdkonline.pm index a08caaa9..b2e3c463 100644 --- a/mdkonline.pm +++ b/mdkonline.pm @@ -18,6 +18,8 @@ use Data::Dumper; my ($uri, $service_proxy, $online_proxy); my $release_file = find { -f $_ } '/etc/mandriva-release', '/etc/mandrakelinux-release', '/etc/mandrake-release', '/etc/redhat-release'; +my ($product_file, $conf_file, $rootconf_file) = ('/etc/sysconfig/system', '/etc/sysconfig/mdkonline', '/root/.MdkOnline/hostconf'); +my $release = get_release(); #$uri = 'https://localhost/~romain/online3/htdocs/soap'; my $uri = 'https://online.mandriva.com/soap'; @@ -27,12 +29,15 @@ $service_proxy = $online_proxy = $uri; my $useragent = set_ua('mdkonline'); sub is_proxy () { - return 1 if defined $ENV{http_proxy}; + return defined $ENV{http_proxy} ? 1 : defined $ENV{https_proxy} ? 2 : 0; } +my $proxy = is_proxy; -my $s = is_proxy() -? SOAP::Lite->uri($uri)->proxy($service_proxy, proxy => [ 'http' => $ENV{http_proxy} ], agent => $useragent) -: SOAP::Lite->uri($uri)->proxy($service_proxy, agent => $useragent); +my $s = $proxy == 2 + ? SOAP::Lite->uri($uri)->proxy($service_proxy, proxy => [ 'http' => $ENV{https_proxy} ], agent => $useragent) + : $proxy == 1 + ? SOAP::Lite->uri($uri)->proxy($service_proxy, proxy => [ 'http' => $ENV{http_proxy} ], agent => $useragent) + : SOAP::Lite->uri($uri)->proxy($service_proxy, agent => $useragent); sub get_configuration { my $in = shift; @@ -111,7 +116,6 @@ sub upgrade_to_v3 { } } else { - } } else { @@ -149,27 +153,11 @@ sub get_conf_from_dns { } } -sub run_and_return_task { - my $task = shift; - my $ret; - if( $task->{command} ne 'none' ) { - } - $ret; +sub get_rpmdblist { + my $rpmdblist = `rpm -qa --queryformat '%{HDRID};%{N};%{E};%{V};%{R};%{ARCH};%{OS};%{DISTRIBUTION};%{VENDOR};%{SIZE};%{BUILDTIME};%{INSTALLTIME}\n'`; + $rpmdblist } -sub upload_host_data { - my ($id, $key) = @_; - my $data; - print "Saving local sw config...\n"; - my $swdata = `rpm -qa --queryformat '%{HDRID};%{N};%{E};%{V};%{R};%{ARCH};%{OS};%{DISTRIBUTION};%{VENDOR};%{SIZE};%{BUILDTIME};%{INSTALLTIME}\n'`; - print "Done.\n"; - print "Uploading data...\n"; - my ($r) = get_release(); - $data = soap_upload_host_config( $id, $key, $r, $swdata ); - print "Done.\n\n"; - print Dumper($data); -}; - sub md5file { require Digest::MD5; my @md5 = map { @@ -185,8 +173,8 @@ sub md5file { } sub get_release() { - my ($release) = cat_($release_file) =~ /release\s+(\S+)/; - ($release) + my ($r) = cat_($release_file) =~ /release\s+(\S+)/; + ($r) } sub set_ua { @@ -196,9 +184,9 @@ sub set_ua { } sub get_distro_type { - my $release = cat_($release_file); - my ($arch) = $release =~ /\s+for\s+(\w+)/; - my ($name) = $release =~ /(corporate|mnf)/i; + my $r = cat_($release_file); + my ($arch) = $r =~ /\s+for\s+(\w+)/; + my ($name) = $r =~ /(corporate|mnf)/i; { name => lc($name), arch => $arch }; } @@ -222,6 +210,23 @@ sub soap_upload_config { $auth; } +sub register_upload_host { + my ($login, $password, $boxname, $descboxname, $country) = @_; + my ($registered, $uploaded); + my ($rc, $wc) = read_conf(); + if (!$rc->{HOST_ID}) { + $registered = soap_register_host($login, $password, $boxname, $descboxname, $country); + $registered->{status} and write_conf($registered); + ($rc, $wc) = read_conf(); + } + my $r = cat_($release_file); + my %p = getVarsFromSh($product_file); + my $rpmdblist = get_rpmdblist(); + $rc->{HOST_ID} and $uploaded = soap_upload_config($rc->{HOST_ID}, $rc->{HOST_KEY}, $r, $p{META_CLASS}, $rpmdblist); + write_conf($uploaded); + return 'TRUE' +} + sub get_from_URL { my ($link, $agent_name) = @_; my $ua = LWP::UserAgent->new; @@ -259,10 +264,10 @@ sub create_authenticate_account { }; foreach my $num ([9, 8], [21, 20]) { $hreturn->{$num->[0]} = $hreturn->{$num->[1]} }; my $action = { - #create => sub { eval { $response = soap_create_account(@info) }; }, - create => sub { eval { $response = soap_exec_action('registerUser', @info) }; }, - #authenticate => sub { eval { $response = soap_authenticate_user(@info) }; } - authenticate => sub { eval { $response = soap_exec_action('authenticateUser', @info) }; } + create => sub { eval { $response = soap_create_account(@info) }; }, + #create => sub { eval { $response = soap_exec_action('registerUser', @info) }; }, + authenticate => sub { eval { $response = soap_authenticate_user(@info) }; } + #authenticate => sub { eval { $response = soap_exec_action('authenticateUser', @info) }; } }; $action->{$type}->(); $ret = check_server_response($response, $hreturn); @@ -355,43 +360,6 @@ sub soap_return_task_result { $auth; } -sub report_config { - my $file = shift; -sub header { " -******************************************************************************** -* $_[0] -********************************************************************************"; -} -output($file, map { chomp; "$_\n" } - header("rpm -qa"), join('', sort `rpm -qa`), - header("mandrake version"), cat_($release_file)); -system("/usr/bin/bzip2 -f $file"); -open(my $F, $file . ".bz2") or die "Cannot open file : $!"; -my ($chunk, $buffer); -while (read($F, $chunk, 60*57)) { - $buffer .= $chunk; -} -close($F); -open(my $OUT, "> $file" . ".bz2.uue") or die "Cannot open file : $!"; -print $OUT encode_base64($buffer); -close($OUT); -} - -sub send_config { - my ($link, $content) = @_; - my ($res, $key); - my $ua = LWP::UserAgent->new; - $ua->agent($useragent); - $ua->env_proxy; - my $response = $ua->request(POST $link, - Content_Type => 'form-data', - Content => [ %$content ]); - if ($response->is_success && $response->content =~ /^TRUE(.*?)([^a-zA-Z0-9].*)?$/) { - ($res, $key) = ('TRUE', $1); - } - ($res, $key) -} - sub mv_files { my ($source, $dest) = @_; -e $source and system("mv", $source, $dest); @@ -410,13 +378,12 @@ sub hw_upload { sub automated_upgrades { my ($conffile, $login, $passwd, $boxname, $key, $country, $auto) = @_; - my ($r) = get_release(); output $conffile, qq(# automatically generated file. Please don't edit LOGIN=$login PASS=$passwd MACHINE=$boxname -VER=$r +VER=$release CURRENTKEY=$key COUNTRY=$country AUTO=$auto @@ -429,6 +396,17 @@ if [ -f $conffile ]; then /usr/sbin/mdkupdate --auto; fi chmod 0755, "/etc/cron.daily/mdkupdate"; } +sub read_conf() { + my %rc = getVarsFromSh($rootconf_file); my %wc = getVarsFromSh($conf_file); + (\%wc, \%rc) +} + +sub write_conf { + my $response = shift; + #write_wide_conf($response); write_rootconf($response); + print Dumper($response); +} + sub write_wide_conf { my ($login, $boxname, $country) = @_; my $wideconf = '/etc/sysconfig/mdkonline'; -- cgit v1.2.1