/usr/share/sysconftool/sysconftoolcheck is in sysconftool 0.15-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | #! /usr/bin/perl
# $Id: sysconftoolcheck.in,v 1.1 2000/12/10 01:19:48 mrsam Exp $
# Copyright 2000 Double Precision, Inc. See COPYING for
# distribution information.
my $linenum=0;
my $foundver=0;
my $filename=shift @ARGV;
open (F, $filename) || die "$filename: $!\n";
while (<F>)
{
++$linenum;
if (/^\#\#VERSION:/)
{
$foundver=1;
last;
}
last if $linenum > 20;
}
die "Did not find a ##VERSION header.\n" unless $foundver;
while (<F>)
{
++$linenum;
next unless /^\#/;
my $foundtag=0;
$foundtag=1 if /^\#\#NAME:/;
while (<F>)
{
++$linenum;
if ( /^\#\#NAME:/ )
{
die "Line $linenum: second ##NAME tags, without a setting.\n"
if $foundtag;
$foundtag=1;
}
last unless /^#/;
}
print "Warning - line $linenum - did not see a ##NAME.\n"
unless $foundtag;
}
|