[Koha-cvs] CVS: koha/maint catmaintain.pl,1.3,1.3.2.1 shiftbib.pl,1.1,1.1.2.1

[Steve Tonnesen]

Update of /cvsroot/koha/koha/maint
In directory sc8-pr-cvs1:/tmp/cvs-serv16981/maint

Modified Files:
      Tag: rel-1-2
	catmaintain.pl shiftbib.pl 
Log Message:
Added checkauth call to top of all intranet scripts.  This will allow
installations to choose to use basic authentication or Auth.pm to protect the
intranet side of Koha.  Note that all scripts require superlibrarian access by
default.


Index: catmaintain.pl
===================================================================
RCS file: /cvsroot/koha/koha/maint/catmaintain.pl,v
retrieving revision 1.3
retrieving revision 1.3.2.1
diff -C2 -r1.3 -r1.3.2.1
*** catmaintain.pl	26 Feb 2002 09:31:15 -0000	1.3
--- catmaintain.pl	9 Dec 2002 21:05:01 -0000	1.3.2.1
***************
*** 12,15 ****
--- 12,22 ----
  
  my $input = new CGI;
+ 
+ # Authentication script added, superlibrarian set as default requirement
+ 
+ my $flagsrequired;
+ $flagsrequired->{superlibrarian}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
+ 
  print $input->header;
  my $type=$input->param('type');

Index: shiftbib.pl
===================================================================
RCS file: /cvsroot/koha/koha/maint/shiftbib.pl,v
retrieving revision 1.1
retrieving revision 1.1.2.1
diff -C2 -r1.1 -r1.1.2.1
*** shiftbib.pl	15 Mar 2001 10:11:33 -0000	1.1
--- shiftbib.pl	9 Dec 2002 21:05:02 -0000	1.1.2.1
***************
*** 12,15 ****
--- 12,22 ----
  
  my $input = new CGI;
+ 
+ # Authentication script added, superlibrarian set as default requirement
+ 
+ my $flagsrequired;
+ $flagsrequired->{superlibrarian}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
+ 
  print $input->header;
  my $type=$input->param('type');