[Koha-cvs] CVS: koha installer.pl,1.2.2.51,1.2.2.52 koha.upgrade,1.1.2.6,1.1.2.7

[Steve Tonnesen]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv18545

Modified Files:
      Tag: rel-1-2
	installer.pl koha.upgrade 
Log Message:
Added check that programs are being run as root.


Index: installer.pl
===================================================================
RCS file: /cvsroot/koha/koha/installer.pl,v
retrieving revision 1.2.2.51
retrieving revision 1.2.2.52
diff -C2 -r1.2.2.51 -r1.2.2.52
*** installer.pl	4 Jul 2002 17:42:23 -0000	1.2.2.51
--- installer.pl	5 Jul 2002 19:18:16 -0000	1.2.2.52
***************
*** 4,7 ****
--- 4,11 ----
  use strict; # please develop with the strict pragma
  
+ if ($<) {
+     print "\n\nYou must run koha.upgrade as root.\n\n";
+     exit;
+ }
  unless ($< == 0) {
      print "You must be root to run this script.\n";

Index: koha.upgrade
===================================================================
RCS file: /cvsroot/koha/koha/koha.upgrade,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -C2 -r1.1.2.6 -r1.1.2.7
*** koha.upgrade	3 Jul 2002 17:07:09 -0000	1.1.2.6
--- koha.upgrade	5 Jul 2002 19:18:17 -0000	1.1.2.7
***************
*** 1,4 ****
--- 1,12 ----
  #!/usr/bin/perl -w
  
+ use diagnostics;
+ use strict; # please develop with the strict pragma
+ 
+ if ($<) {
+     print "\n\nYou must run koha.upgrade as root.\n\n";
+     exit;
+ }
+ 
  my %configfile;
  open (KC, "/etc/koha.conf");