- some print debug stuffs

- new and old key

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