[interchange-cvs] interchange - jon modified scripts/chkcat.PL

[interchange-core@interchange.redhat.com]

User:      jon
Date:      2001-09-07 06:30:00 GMT
Modified:  scripts  chkcat.PL
Log:
Make it easier to hand chkcat a pile of raw filenames, instead of clean
service names.

Revision  Changes    Path
1.2       +4 -2      interchange/scripts/chkcat.PL


rev 1.2, prev_rev 1.1
Index: chkcat.PL
===================================================================
RCS file: /var/cvs/interchange/scripts/chkcat.PL,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -u -r1.1 -r1.2
--- chkcat.PL	2001/09/07 04:38:28	1.1
+++ chkcat.PL	2001/09/07 06:30:00	1.2
@@ -51,7 +51,7 @@
 # Interchange catalog initialization update and query tool
 # inspired by chkconfig(8).
 #
-# $Id: chkcat.PL,v 1.1 2001/09/07 04:38:28 jon Exp $
+# $Id: chkcat.PL,v 1.2 2001/09/07 06:30:00 jon Exp $
 #
 # Copyright (C) 2001 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -170,6 +170,8 @@
 	die $usage unless $action eq 'on' or $action eq 'off';
 
 	# find out position in initialization list from each config file itself
+	s/\.cfg$//;
+	s/^S\d+//;
 	my $cfg = $_;
 	my $cfgfile = "$init_dir/$cfg.cfg";
 	my $header = Vend::Util::get_cfg_header($cfgfile);
@@ -236,7 +238,7 @@
 
 =head1 VERSION
 
-# $Id: chkcat.PL,v 1.1 2001/09/07 04:38:28 jon Exp $
+# $Id: chkcat.PL,v 1.2 2001/09/07 06:30:00 jon Exp $
 
 =head1 AUTHOR