[interchange-cvs] interchange - kwalsh modified scripts/expireall.PL

[interchange-core@interchange.redhat.com]

User:      kwalsh
Date:      2002-02-03 01:31:56 GMT
Modified:  scripts  expireall.PL
Log:
Change directory to $Global::VendRoot before calling global_config().

Revision  Changes    Path
2.1       +3 -2      interchange/scripts/expireall.PL


rev 2.1, prev_rev 2.0
Index: expireall.PL
===================================================================
RCS file: /var/cvs/interchange/scripts/expireall.PL,v
retrieving revision 2.0
retrieving revision 2.1
diff -u -r2.0 -r2.1
--- expireall.PL	18 Jul 2001 02:23:27 -0000	2.0
+++ expireall.PL	3 Feb 2002 01:31:56 -0000	2.1
@@ -50,7 +50,7 @@
 #
 # Interchange session expiration for all catalogs
 #
-# $Id: expireall.PL,v 2.0 2001/07/18 02:23:27 jon Exp $
+# $Id: expireall.PL,v 2.1 2002/02/03 01:31:56 kwalsh Exp $
 #
 # Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -155,6 +155,7 @@
 }
 
 # Parse the interchange.cfg file to look for script/catalog info
+chdir $Global::VendRoot or die "Couldn't change to $Global::VendRoot: $!\n";
 global_config();
 
 while( my($name, $cat) = each %Global::Catalog ) {
@@ -172,7 +173,7 @@
 
 =head1 VERSION
 
-# $Id: expireall.PL,v 2.0 2001/07/18 02:23:27 jon Exp $
+# $Id: expireall.PL,v 2.1 2002/02/03 01:31:56 kwalsh Exp $
 
 =head1 DESCRIPTION