SF.net SVN: ledger-smb: [948] branches/1.2

[..hidden..]

Revision: 948
          http://svn.sourceforge.net/ledger-smb/?rev=948&view=rev
Author:   einhverfr
Date:     2007-03-19 11:53:52 -0700 (Mon, 19 Mar 2007)

Log Message:
-----------
Removing per-login script feature

Modified Paths:
--------------
    branches/1.2/LedgerSMB/Form.pm
    branches/1.2/bin/login.pl
    branches/1.2/menu.pl

Modified: branches/1.2/LedgerSMB/Form.pm
===================================================================
--- branches/1.2/LedgerSMB/Form.pm	2007-03-19 18:28:32 UTC (rev 947)
+++ branches/1.2/LedgerSMB/Form.pm	2007-03-19 18:53:52 UTC (rev 948)
@@ -79,11 +79,8 @@
 
 	bless $self, $type;
 
-	$self->{path} =~ s#\\#/#g;
-	if (($self->{path}) && ($self->{path} !~ m#^bin/#) 
-				|| ($self->{path} =~ m#(\w*/){2,}#)){
-		$self->error("Access Denied");
-	}
+	if ($form->{path} ne 'bin/lynx'){ $form->{path} = 'bin/mozilla';}	
+
 	if (($self->{script} =~ m#(..|\\|/)#)){
 		$self->error("Access Denied");
 	}

Modified: branches/1.2/bin/login.pl
===================================================================
--- branches/1.2/bin/login.pl	2007-03-19 18:28:32 UTC (rev 947)
+++ branches/1.2/bin/login.pl	2007-03-19 18:53:52 UTC (rev 948)
@@ -78,12 +78,6 @@
 	$form->error(__FILE__.':'.__LINE__.': '.$@) if ($@);
 }
 
-# per login customization
-if (-f "bin/custom/$form->{login}_$form->{script}") {
-	eval { require "bin/custom/$form->{login}_$form->{script}"; };
-	$form->error(__FILE__.':'.__LINE__.': '.$@) if ($@);
-}
-
 # window title bar, user info
 $form->{titlebar} = "LedgerSMB ".$locale->text('Version'). " $form->{version}";
 

Modified: branches/1.2/menu.pl
===================================================================
--- branches/1.2/menu.pl	2007-03-19 18:28:32 UTC (rev 947)
+++ branches/1.2/menu.pl	2007-03-19 18:53:52 UTC (rev 948)
@@ -110,8 +110,6 @@
 map { $form->{$_} = $myconfig{$_} } qw(stylesheet timeout) unless ($form->{type} eq 'preferences');
 $form->db_init(\%myconfig);
 
-if ($form->{path} ne 'bin/lynx'){ $form->{path} = 'bin/mozilla';}	
-
 # did sysadmin lock us out
 if (-f "${LedgerSMB::Sysconfig::userspath}/nologin") {
 	$form->error(__FILE__.':'.__LINE__.': '.$locale->text('System currently down for maintenance!'));


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.