summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2004-02-27 18:33:50 +0000
committerDaouda Lo <daouda@mandriva.com>2004-02-27 18:33:50 +0000
commit2e55a661e56bbf12c1174c1ced7726ff6bb3dd58 (patch)
tree787e2085d789766638d3c9168b3741f8f35c4b61
parent548dc32001ca3b635fe02ff28857640978146fa7 (diff)
downloadmgaonline-2e55a661e56bbf12c1174c1ced7726ff6bb3dd58.tar
mgaonline-2e55a661e56bbf12c1174c1ced7726ff6bb3dd58.tar.gz
mgaonline-2e55a661e56bbf12c1174c1ced7726ff6bb3dd58.tar.bz2
mgaonline-2e55a661e56bbf12c1174c1ced7726ff6bb3dd58.tar.xz
mgaonline-2e55a661e56bbf12c1174c1ced7726ff6bb3dd58.zip
- new framework
-rwxr-xr-xmdkonline19
1 files changed, 10 insertions, 9 deletions
diff --git a/mdkonline b/mdkonline
index 7cc1d3dd..1f02564b 100755
--- a/mdkonline
+++ b/mdkonline
@@ -172,11 +172,11 @@ sub subsOnline {
my $ret = requestURL($url);
my $result = {
10 => sub { !$::error and $o->{nb}->next_page},
- 11 => sub { raiseError($o->{mw}->{window},N("Creation"), N("Login and password should be less than 12 characters\n")) },
- 12 => sub { raiseError($o->{mw}->{window},N("Special characters"), N("Special characters are not allowed\n")) },
- 13 => sub { raiseError($o->{mw}->{window},N("Empty fields"), N("Please fill in all fields\n")) },
- 14 => sub { raiseError($o->{mw}->{window},N("Email"), N("Email not valid\n")) },
- 15 => sub { raiseError($o->{mw}->{window},N("Change account"), N("Account already exist\n")) },
+ 11 => sub { raiseError($o->{mw}->{window},N("Creation"),N("Login and password should be less than 12 characters\n")) },
+ 12 => sub { raiseError($o->{mw}->{window},N("Special characters"),N("Special characters are not allowed\n")) },
+ 13 => sub { raiseError($o->{mw}->{window},N("Empty fields"),N("Please fill in all fields\n")) },
+ 14 => sub { raiseError($o->{mw}->{window},N("Email"),N("Email not valid\n")) },
+ 15 => sub { raiseError($o->{mw}->{window},N("Change account"),N("Account already exist\n")) },
};
if ($ret->is_success) {
my $content = $ret->content;
@@ -232,7 +232,6 @@ sub sendConfig {
# pb with the connection ?
$result = -1;
}
-
# if information were sent correctly (exit code: 0 from scp script), go to page 5
if (! $result) {
# go to last page
@@ -244,7 +243,6 @@ sub sendConfig {
$o->{nb}->set_current_page(4);
}
}
-
sub setConf {
}
@@ -327,7 +325,6 @@ sub testPasswd () {
$o->{passwd}->set_text("");
}
}
-
sub reportConfig {
my ($file) = @_;
#touch($file);
@@ -369,12 +366,16 @@ LOGIN=$login
PASS=$passwd
BOX=$boxname
VER=$r
-MIRROR=$mirror
CURRENTKEY=$key
);
output_p "/etc/cron.daily/mdkupdate",
qq(#!/bin/bash
if [ -f /root/.mdkupdate ]; then /usr/bin/mdkupdate; fi
);
+ output_with_perm "/etc/sysconfig/mdkonline", 644,
+ qq(LOGIN=$login
+BOX=$boxname
+);
+
chmod 0755, "/etc/cron.daily/mdkupdate";
}