[Koha-cvs] CVS: koha/acqui.simple processz3950queue,1.7,1.8

[Andrew Arensburger]

Update of /cvsroot/koha/koha/acqui.simple
In directory usw-pr-cvs1:/tmp/cvs-serv5570

Modified Files:
        processz3950queue 
Log Message:
Added magic RCS comment.
Removed trailing whitespace.


Index: processz3950queue
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/processz3950queue,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** processz3950queue   13 Oct 2002 06:31:47 -0000      1.7
--- processz3950queue   13 Oct 2002 07:39:45 -0000      1.8
***************
*** 1,3 ****
--- 1,6 ----
  #!/usr/bin/perl
+ 
+ # $Id$
+ 
  use C4::Context;
  use DBI;
***************
*** 10,14 ****
  
  if ($< == 0) {
!     # Running as root, switch privs 
      if (-d "/var/run") {
        open PID, ">/var/run/processz3950queue.pid";
--- 13,17 ----
  
  if ($< == 0) {
!     # Running as root, switch privs
      if (-d "/var/run") {
        open PID, ">/var/run/processz3950queue.pid";
***************
*** 17,23 ****
      }
      # Get real apacheuser from koha.conf or reparsing httpd.conf
!     my $apacheuser='www-data';  
      my $uid=0;
!     unless ($uid = (getpwnam($apacheuser))[2]) { 
        die "Attempt to run daemon as non-existent or superuser\n";
      }
--- 20,26 ----
      }
      # Get real apacheuser from koha.conf or reparsing httpd.conf
!     my $apacheuser='www-data';
      my $uid=0;
!     unless ($uid = (getpwnam($apacheuser))[2]) {
        die "Attempt to run daemon as non-existent or superuser\n";
      }
***************
*** 25,29 ****
      $<=$uid;
  }
!     
  
  my $dbh = C4::Context->dbh;
--- 28,32 ----
      $<=$uid;
  }
! 
  
  my $dbh = C4::Context->dbh;