From a83d60fc729ca7e261057f7ecc6f4ff670382759 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Mon, 4 Sep 2006 22:49:08 +0000 Subject: Removed the underscore from valid login names since it was causing regex errors. Fixed the system so that the db upgrade script works. Added some new tasks, notes, etc to TODO. git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@21 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/Form.pm | 2 +- LedgerSMB/Session.pm | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'LedgerSMB') diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index 73d9f4c5..12ddfa40 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -43,7 +43,7 @@ sub new { $self->{menubar} = 1 if $self->{path} =~ /lynx/i; $self->{version} = "2.6.17"; - $self->{dbversion} = "2.6.12"; + $self->{dbversion} = "2.6.17"; bless $self, $type; diff --git a/LedgerSMB/Session.pm b/LedgerSMB/Session.pm index 902e67c4..d287d199 100755 --- a/LedgerSMB/Session.pm +++ b/LedgerSMB/Session.pm @@ -53,7 +53,7 @@ sub session_check { my ($sessionLogin) = $checkQuery->fetchrow_array; my $login = $form->{login}; - $login =~ s/[^a-zA-Z0-9@_.-]//g; + $login =~ s/[^a-zA-Z0-9@.-]//g; if($sessionLogin eq $login){ $updateAge->execute($sessionid) || $form->dberror('Updating session age: '); @@ -94,7 +94,7 @@ sub session_create { # this is assuming that $form->{login} is safe, which might be a bad assumption # so, I'm going to remove some chars, which might make previously valid logins invalid my $login = $form->{login}; - $login =~ s/[^a-zA-Z0-9@._-]//g; + $login =~ s/[^a-zA-Z0-9@.-]//g; #delete any existing stale sessions with this login if they exist if (!$myconfig{timeout}){ -- cgit v1.2.3