diff options
Diffstat (limited to 'mdkonline.gtk')
| -rwxr-xr-x | mdkonline.gtk | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/mdkonline.gtk b/mdkonline.gtk index bcec49ba..ccb800b5 100755 --- a/mdkonline.gtk +++ b/mdkonline.gtk @@ -75,15 +75,15 @@ $o->{actions} = { $p = $o->{nb}->get_current_page; $stage{$p}->(); $p <= 0 and $o->{Prev}->set_sensitive(1); - $p == 4 and main_quit() + $p == 4 and main_quit(); }, SkipWiz => sub { - main_quit() + main_quit(); }, Prev => sub { $p = $o->{nb}->get_current_page; $o->{nb}->prev_page; - $p <= 1 and init(0) + $p <= 1 and init(0); } }; foreach my $l ([ 'Next', N("Next"), 1 ], [ 'SkipWiz', N("Cancel") ], [ 'Prev', N("Previous"), 1 ]) { @@ -175,16 +175,16 @@ sub subs_online() { my $url = $explink . '?desuserid=' . $login . '&despwd=' . $despwd . '&user_email=' . $cmail; #print "LOGIN = $login\nPASSWD = $despwd\nMAIL= $cmail\nURL=$url\n"; my $ret = mdkonline::subscribe_online($url); - if ($ret eq 'OK') { $o->{nb}->next_page } else { raiseError($o->{mw}{window}, N("Error"), $ret) }; + if ($ret eq 'OK') { $o->{nb}->next_page } else { raiseError($o->{mw}{window}, N("Error"), $ret) } } } sub check_errors { my ($login, $despwd, $despwdcfm, $cmail) = @_; $login or raiseError($o->{mw}{window}, N("Error"), N("Please provide a login")); if (!$::error && $despwd ne $despwdcfm) { - raiseError($o->{mw}{window}, N("Error"), N("The passwords do not match\n Please try again\n")) + raiseError($o->{mw}{window}, N("Error"), N("The passwords do not match\n Please try again\n")); } elsif (!$::error && check_valid_email($cmail) != 1) { - raiseError($o->{mw}{window}, N("Error"), N("Not a valid mail address!\n")) + raiseError($o->{mw}{window}, N("Error"), N("Not a valid mail address!\n")); } } sub set_entry_with_conf() { @@ -208,7 +208,7 @@ sub send_conf_online() { remove_wait_msg($ww); if ($res eq 'TRUE' && $key) { $o->{currentkey} = $key; - $o->{nb}->next_page; $o->{Next}->set_label(N("Finish")); $o->{Prev}->hide + $o->{nb}->next_page; $o->{Next}->set_label(N("Finish")); $o->{Prev}->hide; } else { raiseError($o->{mw}{window}, N("Connection problem"), N("Problem occurs when uploading files, please try again")); } @@ -231,14 +231,14 @@ sub first_settings() { } sub final() { $o->{Prev}->hide; $o->{SkipWiz}->hide; - $o->{Next}->set_label(N("Finish")) + $o->{Next}->set_label(N("Finish")); } sub get_names() { my ($login, $passwd, $machine); $login = $o->{login}->get_text; $passwd = md5_hex($o->{passwd}->get_text); $machine = $o->{machine}->get_text; - ($login, $passwd, $machine) + ($login, $passwd, $machine); } sub main_quit() { # remove local files @@ -253,7 +253,7 @@ sub main_quit() { } sub is_alphanum { my ($x) = @_; - my $_is_num = sub { $x =~ /^[[:alnum:]]+$/ ? 1 : 0 } + my $_is_num = sub { $x =~ /^[[:alnum:]]+$/ ? 1 : 0 }; } sub check_passwd() { my $link = 'http://www.mandrivaexpert.com/firsttimewizard/validusercheck.php'; |