/usr/bin/manifake is in dist 1:3.5-36.0001-2.
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
eval 'exec perl -S $0 ${1+"$@"}'
if $running_under_some_shell;
# $Id: manifake.SH 31 2010-03-06 20:15:24Z rmanfredi $
#
# Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
#
# You may redistribute only under the terms of the Artistic Licence,
# as specified in the README file that comes with the distribution.
# You may reuse parts of this distribution only within the terms of
# that same Artistic Licence; a copy of which may be found at the root
# of the source tree for dist 4.0.
#
# $Log: manifake.SH,v $
# Revision 3.0.1.1 1993/08/19 06:42:18 ram
# patch1: leading config.sh searching was not aborting properly
#
# Revision 3.0 1993/08/18 12:04:32 ram
# Baseline for dist 3.0 netwide release.
#
$NEWMANI = 'MANIFEST.new';
$MANI = 'MANIFEST';
&manifake;
sub manifake {
# make MANIFEST and MANIFEST.new say the same thing
if (! -f $NEWMANI) {
if (-f $MANI) {
open(IN,$MANI) || die "Can't open $MANI";
open(OUT,">$NEWMANI") || die "Can't create $NEWMANI";
while (<IN>) {
if (/---/) {
# Everything until now was a header...
close OUT;
open(OUT,">$NEWMANI") ||
die "Can't recreate $NEWMANI";
next;
}
s/^\s*(\S+\s+)[0-9]*\s*(.*)/$1$2/;
print OUT;
print OUT "\n" unless /\n$/; # If no description
}
close IN;
close OUT;
}
else {
die "You need to make a $NEWMANI file, with names and descriptions.\n";
}
}
}
|