summaryrefslogtreecommitdiffstats
path: root/mdkupdate
diff options
context:
space:
mode:
Diffstat (limited to 'mdkupdate')
-rwxr-xr-xmdkupdate24
1 files changed, 15 insertions, 9 deletions
diff --git a/mdkupdate b/mdkupdate
index 5cbf7335..c88d2805 100755
--- a/mdkupdate
+++ b/mdkupdate
@@ -62,7 +62,9 @@ my %o = getVarsFromSh("/root/.mdkupdate");
rpm_qa("/root/rpm_qa_installed_before");
update_rpms($o{LOGIN},$o{PASS},$o{BOX},$o{CURRENTKEY});
rpm_qa("/root/rpm_qa_installed_after");
-foreach (@rpm_qadiff) { print "$_\n";};
+my %new = getVarsFromSh("/root/.mdkupdate");
+print "old key is $new{OLDKEY}\n";
+send_rpm_dif($new{LOGIN},$new{PASS},$new{BOX},$new{OLDKEY});
sub update_rpms () {
my ($login,$password,$box_name,$curkey) =@_;
@@ -99,8 +101,9 @@ sub update_rpms () {
LOGIN => $l{LOGIN} ,
});
my @junk= splice(@str_m,0,3);
- my $mir_full = $l{MIRROR} . "/" . $l{VER} ."/" . "RPMS";
- @str_m and update_packages(@str_m,$mir_full);
+ my $mir_full = "ftp://" . $l{MIRROR} . "/" . $l{VER} ."/" . "RPMS"."/";
+ print "la chaine est @str_m\n";
+ update_packages($mir_full,@str_m);
} else { print "problem occur $str_m\n";}
@@ -111,24 +114,27 @@ sub update_rpms () {
}
sub update_packages {
- my (@str,$mir) = @_;
+ my ($mir,@str) = @_;
chdir ($rpms_rep);
- $full_rpm = join(' ',@strm);
+ $full_rpm = join(' ',@str);
+ print "@str\n";
foreach (@str) {
-x "/usr/bin/wget" or die _("wget is missing\n");
- `/usr/bin/wget $mir/$_`;
+ `/usr/bin/wget $mir$_`;
}
`urpmi $full_rpm`;
}
sub send_rpm_dif {
my ($login,$password,$box_name,$oldkey) =@_;
- `sdiff -o /root/$login.$password.$box_name.$old_key.dif -s /root/rpm_qa_installed_after /root/rpm_qa_installed_before `;
- my $response = $ua->request(POST $url_upload_diff,
+ `sdiff -s /root/rpm_qa_installed_after /root/rpm_qa_installed_before >/root/$login.$password.$box_name.$oldkey.dif`;
+ my $ua = LWP::UserAgent->new;
+ $ua->agent("MdkOnlineAgent/0.15" . $ua->agent);
+ my $response = $ua->request(POST "https://www.mandrakeonline.net/testonline/online_dif.php",
Content_Type => 'form-data',
Content => [submit => "upload_dif",
- dif_file => ["$root-dir/$login.$password.$box_name.$old_key.dif"]
+ dif_file => ["/root/$login.$password.$box_name.$oldkey.dif"]
]);
# Check the outcome of the response
print "REPONSE: ".$response->content."\n";