X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=sql-ledger%2Fbin%2Fmozilla%2Flogin.pl;h=1cf1f729f7ffe70dadc7f25e6113df004d3d894e;hp=3c36564fdae0747f0439f0f15a9992e28663b972;hb=32306b5f8ffe4ce594409aa6e89626740b225a39;hpb=52072fcd26f2faf57923f598c358e7f47c4e2643 diff --git a/sql-ledger/bin/mozilla/login.pl b/sql-ledger/bin/mozilla/login.pl index 3c36564fd..1cf1f729f 100644 --- a/sql-ledger/bin/mozilla/login.pl +++ b/sql-ledger/bin/mozilla/login.pl @@ -1,6 +1,6 @@ ###################################################################### # SQL-Ledger Accounting -# Copyright (c) 1998-2002 +# Copyright (c) 2000 # # Author: Dieter Simader # Email: dsimader@sql-ledger.org @@ -19,6 +19,10 @@ # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +###################################################################### +# +# login frontend +# ####################################################################### @@ -58,6 +62,97 @@ if ($form->{action}) { sub login_screen { + + $form->{stylesheet} = "sql-ledger.css"; + $form->{favicon} = "sql-ledger.ico"; + + $form->{endsession} = 1; + $form->header(1); + + if ($form->{login}) { + $sf = qq|function sf() { document.login.password.focus(); }|; + } else { + $sf = qq|function sf() { document.login.login.focus(); }|; + } + + if ($form->{jsc} && -d 'bin/js') { + print qq| + +|; + } + + print qq| + + + +

+
+

+ + + + + + +

+ + +

+ +

{script} name=login> + + + + + +

+ + + + + + + + + + {path}> +

\|.$locale->text('Name').qq\|	{login}>
\|.$locale->text('Password').qq\|

+ +
+ +

+ +

+ + + +|; + +} + + +sub selectdataset { + my ($login) = @_; if (-f "css/sql-ledger.css") { $form->{stylesheet} = "sql-ledger.css"; @@ -75,7 +170,7 @@ sub login_screen { -

@@ -83,24 +178,39 @@ sub login_screen {

{script}> + +

- + - + {path}> + + + +

\|.$locale->text('Name').qq\|		$form->{login}
\|.$locale->text('Password').qq\|		{password}>
\|.$locale->text('Company').qq\|	\|; + + $checked = "checked"; + foreach $login (sort { $login{$a} cmp $login{$b} } keys %{ $login }) { + print qq\| + $login{$login} + \|; + $checked = ""; + } + + print qq\| +

-
-

@@ -115,103 +225,101 @@ sub login_screen { |; + } sub login { + $form->{stylesheet} = "sql-ledger.css"; + $form->{favicon} = "sql-ledger.ico"; + $form->error($locale->text('You did not enter a name!')) unless ($form->{login}); + if (! $form->{beenthere}) { + open(FH, "$memberfile") or $form->error("$memberfile : $!"); + @a = ; + close(FH); + + @login = grep { s/\[(.*)\]/$1/ } @a; + @company = grep { s/company=(.*)/$1/ } @a; + shift @login; + + for ($i = 0; $i <= $#login; $i++) { + chop $login[$i]; + if (($form->{login} eq $login[$i]) || ($login[$i] =~ /$form->{login}@/)) { + chop $company[$i]; + $login{$login[$i]} = $company[$i]; + } + } + + if (keys %login > 1) { + &selectdataset(\%login); + exit; + } + } + + $user = new User $memberfile, $form->{login}; # if we get an error back, bale out if (($errno = $user->login(\%$form, $userspath)) <= -1) { + $errno *= -1; $err[1] = $locale->text('Incorrect Password!'); $err[2] = $locale->text('Incorrect Dataset version!'); $err[3] = qq|$form->{login} |.$locale->text('is not a member!'); + $err[4] = $locale->text('Dataset is newer than version!'); - $form->error($err[$errno]); - } - - # made it this far, execute the menu - $argv = "login=$form->{login}&password=$form->{password}&path=$form->{path}&action=display"; + if ($errno == 5) { + # upgrade dataset and log in again + open FH, ">$userspath/nologin" or $form->error($!); - exec ("perl", "menu.pl", $argv); + map { $form->{$_} = $user->{$_} } qw(dbname dbhost dbport dbdriver dbuser dbpasswd); -} + $form->{dbpasswd} = unpack 'u', $form->{dbpasswd}; + + $form->{dbupdate} = "db$user->{dbname}"; + $form->{$form->{dbupdate}} = 1; + $form->header; + print $locale->text('Upgrading to Version')." $form->{version} ... "; + # required for Oracle + $form->{dbdefault} = $sid; -sub logout { + $user->dbupdate(\%$form); - unlink "$userspath/$form->{login}.conf"; - - # remove the callback to display the message - $form->{callback} = "login.pl?path=$form->{path}&action=&login="; - $form->redirect($locale->text('You are logged out!')); + # remove lock file + unlink "$userspath/nologin"; -} + print $locale->text('done'); + print "

{login}&sessionid=$form->{sessionid}&path=$form->{path}&action=display>".$locale->text('Continue').""; + exit; + } -sub company_logo { - - require "$userspath/$form->{login}.conf"; - $locale = new Locale $myconfig{countrycode}, "login" unless ($language eq $myconfig{countrycode}); - - $myconfig{address} =~ s/\\n/
/g; - $myconfig{dbhost} = $locale->text('localhost') unless $myconfig{dbhost}; - - map { $form->{$_} = $myconfig{$_} } qw(charset stylesheet); - - $form->{title} = $locale->text('About'); - - - # create the logo screen - $form->header unless $form->{noheader}; + $form->error($err[$errno]); + } - print qq| - -

+  # made it this far, execute the menu
+  $form->{callback} = "menu.pl?login=$form->{login}&path=$form->{path}&action=display";
 
-

- -

- + $form->redirect; + +} -

-|.$locale->text('Licensed to').qq| -

- -$myconfig{company} -
$myconfig{address} - -

- - - - - - - - - - - - - -
|.$locale->text('User').qq| $myconfig{name}
|.$locale->text('Dataset').qq| $myconfig{dbname}
|.$locale->text('Database Host').qq| $myconfig{dbhost}
-

+sub logout { - - -|; + $jsc = $form->{path} =~ /js/; + $form->{callback} = "$form->{script}?path=$form->{path}&login=$form->{login}&jsc=$jsc"; + + $form->redirect; } -

|.$locale->text('Version').qq| $form->{version} +

|.$locale->text('Version').qq| $form->{version}

|.$locale->text('Version').qq| $form->{version}