diff options
| author | christopherm <christopherm@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-12 05:34:09 +0000 |
|---|---|---|
| committer | christopherm <christopherm@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-12 05:34:09 +0000 |
| commit | 16b10f9cddca05aa2c3f63a15238c983b873bf23 (patch) | |
| tree | 5b4127f4b8e267f42214a05e7cd231a2f5d46ab8 /LedgerSMB/Form.pm | |
| parent | 402191681370f0059a0d58d95e799d2d53666fce (diff) | |
creating a central Session::password_check which will allow for an upgrade from crypted passwords to md5. Fixing session timeout problem for first login. Removing some old cruft (set_cookie and more). Changing central db users_conf to remove dbconnect (which will now be generated) and to add crypted_password (which will eventually be removed).
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@520 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/Form.pm')
| -rwxr-xr-x | LedgerSMB/Form.pm | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index d514adf7..347f0c78 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -272,8 +272,6 @@ sub header { $self->{titlebar} = ($self->{title}) ? "$self->{title} - $self->{titlebar}" : $self->{titlebar}; - $self->set_cookie($init); - print qq|Content-Type: text/html\n\n <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> @@ -295,28 +293,6 @@ sub header { $self->{header} = 1; } - -sub set_cookie { - - my ($self, $init) = @_; - - $self->{timeout} = ($self->{timeout} > 0) ? $self->{timeout} : 3600; - my $t = ($self->{endsession}) ? time : time + $self->{timeout}; - - if ($ENV{HTTP_USER_AGENT}) { - - my @d = split / +/, scalar gmtime($t); - my $today = "$d[0], $d[2]-$d[1]-$d[4] $d[3] GMT"; - - if ($init) { - $self->{sessionid} = time; - } - - print qq|Set-Cookie: LedgerSMB-$self->{login}=$self->{sessionid}; expires=$today; path=/;\n| if $self->{login}; - } -} - - sub redirect { my ($self, $msg) = @_; |