summaryrefslogtreecommitdiffstats
path: root/mdkupdate
diff options
context:
space:
mode:
Diffstat (limited to 'mdkupdate')
-rwxr-xr-xmdkupdate6
1 files changed, 3 insertions, 3 deletions
diff --git a/mdkupdate b/mdkupdate
index d24d593a..3d76b031 100755
--- a/mdkupdate
+++ b/mdkupdate
@@ -78,8 +78,8 @@ if ($o{LOGIN} && $o{PASS} && $o{LOGIN} !~ /\s+/ && $o{PASS} !~ /\s+/) {
if ($contents =~ /TRUE/) { $u = 10 } elsif ($contents = m/(\d+)/) { $u = sprintf("%d", $1) } else { $u = 83 } ;
my $action = {
10 => sub {
- print "\nCONTENTS = $contents \n";
my $c2h = splitContents($contents);
+ printf("\nCONTENTS = $contents \n torf = %s\n OLDKEY = %s = %s \n NEWKEY = %s \n FTP = %s", $c2h->{torf}, $c2h->{OLDKEY}, $o{CURRENTKEY}, $c2h->{NEWKEY}, $c2h->{FTP} );
if ($c2h->{torf} eq "TRUE" && $c2h->{OLDKEY} && $c2h->{NEWKEY}) { updateConf($c2h->{OLDKEY}, $c2h->{NEWKEY}) }
if ($c2h->{FTP}) { addMedia($c2h->{FTP}) }
$scheduled = join(',',@{$c2h->{sched}});
@@ -113,7 +113,7 @@ if ($o{LOGIN} && $o{PASS} && $o{LOGIN} !~ /\s+/ && $o{PASS} !~ /\s+/) {
log::l("[mdkupdate] No active Online service found for this host.")
},
83 => sub {
- log::l("[mdkupdate] Unknown problem, better relaunch mdkonline wizard")
+ log::l("[mdkupdate] Unknown problem, better relaunch mdkonline wizard or check connexion")
}
};
$action->{$u}->();
@@ -129,7 +129,7 @@ sub splitContents {
$s = [ split /\n/, $cont ];
$elem->{torf} = $s->[0];
if ($elem->{torf} eq 'TRUE') {
- ($elem->{torf},$elem->{OLDKEY},$elem->{NEWKEY},$elem->{FTP}) = splice(@$s,0,4);
+ ($elem->{torf},$elem->{NEWKEY},$elem->{OLDKEY},$elem->{FTP}) = splice(@$s,0,4);
($elem->{sched},$elem->{nosched}) = partition { $_ =~/i586$/ } @$s;
}
$elem