diff options
Diffstat (limited to 'mdkupdate')
| -rwxr-xr-x | mdkupdate | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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 |