Attachment #50501 for bug #16306

View | Details | Raw Unified | Return to bug 16306
Collapse All | Expand All




use XML::Simple;
use C4::Boolean;
use C4::Debug;
use C4::Members;
use POSIX ();
use DateTime::TimeZone;
use Module::Load::Conditional qw(can_load);

    return ($userenv->{flags}//0) % 2;
}

=head2 setCommandlineEnvironment

Sets the Koha environment for command line scripts.

=cut

sub setCommandlineEnvironment {
	my ($class) = @_;

	C4::Context->interface('commandline'); #Set interface for logger and friends
	C4::Context->_new_userenv('commandline');
	my $clisu = _enforceCommandlineSuperuserBorrowerExists();
	C4::Context::set_userenv($clisu->{borrowernumber},$clisu->{userid},$clisu->{cardnumber},$clisu->{firstname},$clisu->{surname}, $clisu->{branchcode}, '', {}, '', '', '');
}

sub _enforceCommandlineSuperuserBorrowerExists {
	my $commandlineSuperuser = C4::Members::GetMember(userid => 'commandlineadmin');
	unless ($commandlineSuperuser) {
		my $dbh = C4::Context->dbh();
		my $ctgr = $dbh->selectrow_array("SELECT categorycode FROM categories WHERE category_type = 'I' LIMIT 1;");
		my $brnchcd = $dbh->selectrow_array("SELECT branchcode FROM borrowers GROUP BY branchcode ORDER BY COUNT(*) DESC LIMIT 1;");
		C4::Members::AddMember(cardnumber => 'commandlineadmin',
							   userid => 'commandlineadmin',
							   surname => 'Admin',
							   firstname => 'Koha',
							   dateexpiry => '2099-12-31',
							   categorycode => $ctgr,
							   branchcode => $brnchcd,
		);
		$commandlineSuperuser = C4::Members::GetMember(userid => 'commandlineadmin');
	}
	return $commandlineSuperuser;
}

=head2 interface

Sets the current interface for later retrieval in any Perl module




# Copyright 2016 KohaSuomi
#
# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation; either version 3 of the License, or (at your option) any later
# version.
#
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with Koha; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;
use Test::More;

use C4::Context;

my $commandlineSuperuser = C4::Context::_enforceCommandlineSuperuserBorrowerExists();
is($commandlineSuperuser->{cardnumber}, "commandlineadmin", "_enforceCommandlineSuperuserBorrowerExists() enforced");

C4::Context->setCommandlineEnvironment();
my $env = C4::Context->userenv();
is($env->{id}, $commandlineSuperuser->{userid}, "setCommandlineEnvironment userenv set with 'commandlineadmin'");

done_testing();

Return to bug 16306

Lines 102-107 use ZOOM; Link Here

(-)a/C4/Context.pm (+35 lines)
102	use XML::Simple;	102	use XML::Simple;
103	use C4::Boolean;	103	use C4::Boolean;
104	use C4::Debug;	104	use C4::Debug;
		105	use C4::Members;
105	use POSIX ();	106	use POSIX ();
106	use DateTime::TimeZone;	107	use DateTime::TimeZone;
107	use Module::Load::Conditional qw(can_load);	108	use Module::Load::Conditional qw(can_load);
Lines 1293-1298 sub IsSuperLibrarian { Link Here
1293	return ($userenv->{flags}//0) % 2;	1294	return ($userenv->{flags}//0) % 2;
1294	}	1295	}
1295		1296
		1297	=head2 setCommandlineEnvironment
		1298
		1299	Sets the Koha environment for command line scripts.
		1300
		1301	=cut
		1302
		1303	sub setCommandlineEnvironment {
		1304	my ($class) = @_;
		1305
		1306	C4::Context->interface('commandline'); #Set interface for logger and friends
		1307	C4::Context->_new_userenv('commandline');
		1308	my $clisu = _enforceCommandlineSuperuserBorrowerExists();
		1309	C4::Context::set_userenv($clisu->{borrowernumber},$clisu->{userid},$clisu->{cardnumber},$clisu->{firstname},$clisu->{surname}, $clisu->{branchcode}, '', {}, '', '', '');
		1310	}
		1311
		1312	sub _enforceCommandlineSuperuserBorrowerExists {
		1313	my $commandlineSuperuser = C4::Members::GetMember(userid => 'commandlineadmin');
		1314	unless ($commandlineSuperuser) {
		1315	my $dbh = C4::Context->dbh();
		1316	my $ctgr = $dbh->selectrow_array("SELECT categorycode FROM categories WHERE category_type = 'I' LIMIT 1;");
		1317	my $brnchcd = $dbh->selectrow_array("SELECT branchcode FROM borrowers GROUP BY branchcode ORDER BY COUNT(*) DESC LIMIT 1;");
		1318	C4::Members::AddMember(cardnumber => 'commandlineadmin',
		1319	userid => 'commandlineadmin',
		1320	surname => 'Admin',
		1321	firstname => 'Koha',
		1322	dateexpiry => '2099-12-31',
		1323	categorycode => $ctgr,
		1324	branchcode => $brnchcd,
		1325	);
		1326	$commandlineSuperuser = C4::Members::GetMember(userid => 'commandlineadmin');
		1327	}
		1328	return $commandlineSuperuser;
		1329	}
		1330
1296	=head2 interface	1331	=head2 interface
1297		1332
1298	Sets the current interface for later retrieval in any Perl module	1333	Sets the current interface for later retrieval in any Perl module

Line 0 Link Here

(-)a/t/db_dependent/Context_commandline.t (-1 / +30 lines)
0	-	1	# Copyright 2016 KohaSuomi
		2	#
		3	# This file is part of Koha.
		4	#
		5	# Koha is free software; you can redistribute it and/or modify it under the
		6	# terms of the GNU General Public License as published by the Free Software
		7	# Foundation; either version 3 of the License, or (at your option) any later
		8	# version.
		9	#
		10	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
		11	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
		12	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
		13	#
		14	# You should have received a copy of the GNU General Public License along
		15	# with Koha; if not, write to the Free Software Foundation, Inc.,
		16	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
		17
		18	use Modern::Perl;
		19	use Test::More;
		20
		21	use C4::Context;
		22
		23	my $commandlineSuperuser = C4::Context::_enforceCommandlineSuperuserBorrowerExists();
		24	is($commandlineSuperuser->{cardnumber}, "commandlineadmin", "_enforceCommandlineSuperuserBorrowerExists() enforced");
		25
		26	C4::Context->setCommandlineEnvironment();
		27	my $env = C4::Context->userenv();
		28	is($env->{id}, $commandlineSuperuser->{userid}, "setCommandlineEnvironment userenv set with 'commandlineadmin'");
		29
		30	done_testing();