summaryrefslogtreecommitdiffstats
path: root/mdkonline.gtk
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2006-02-27 15:03:42 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2006-02-27 15:03:42 +0000
commit2fe72bc9e9de06778198c00a94dd195eea819836 (patch)
tree8b9a9c0496f2393a395f64521f77bd70766b0667 /mdkonline.gtk
parent01815cecee91fbb92cbc046a8b5a572eddc8b834 (diff)
downloadmgaonline-2fe72bc9e9de06778198c00a94dd195eea819836.tar
mgaonline-2fe72bc9e9de06778198c00a94dd195eea819836.tar.gz
mgaonline-2fe72bc9e9de06778198c00a94dd195eea819836.tar.bz2
mgaonline-2fe72bc9e9de06778198c00a94dd195eea819836.tar.xz
mgaonline-2fe72bc9e9de06778198c00a94dd195eea819836.zip
perl_checker fixes
Diffstat (limited to 'mdkonline.gtk')
-rwxr-xr-xmdkonline.gtk20
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';