session_create will simply exit if executed via the command line

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@620 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 5 insertions, 0 deletions

diff --git a/LedgerSMB/Session/DB.pm b/LedgerSMB/Session/DB.pm
index af8b5ac4..8b1d20f0 100755
--- a/LedgerSMB/Session/DB.pm
+++ b/LedgerSMB/Session/DB.pm
@@ -89,6 +89,11 @@ sub session_check {
 sub session_create {
 	my ($form) = @_;
 
+	if (! $ENV{HTTP_HOST}){
+		#don't create cookies or sessions for CLI use
+		return 1;
+	}
+
 	# use the central database handle
 	my $dbh = ${LedgerSMB::Sysconfig::GLOBALDBH};