This file is indexed.

/var/spool/hylafax/bin/mkcover is in hylafax-server 3:6.0.6-8.

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
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
#! /bin/bash
#	$Id$
#
# HylaFAX Facsimile Software
#
# Copyright (c) 1994-1996 Sam Leffler
# Copyright (c) 1994-1996 Silicon Graphics, Inc.
# HylaFAX is a trademark of Silicon Graphics
# 
# Permission to use, copy, modify, distribute, and sell this software and 
# its documentation for any purpose is hereby granted without fee, provided
# that (i) the above copyright notices and this permission notice appear in
# all copies of the software and related documentation, and (ii) the names of
# Sam Leffler and Silicon Graphics may not be used in any advertising or
# publicity relating to the software without the specific, prior written
# permission of Sam Leffler and Silicon Graphics.
# 
# THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND, 
# EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY 
# WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.  
# 
# IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
# ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
# OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
# WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF 
# LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE 
# OF THIS SOFTWARE.
#

#
# mkcover qfile cover
#
# Generate a PostScript continuation cover page for the specified job.
#

if [ $# != 3 ]; then
    echo "Usage: $0 qfile template cover.ps"
    exit 1
fi

test -f etc/setup.cache || {
    SPOOL=`pwd`
    cat<<EOF

FATAL ERROR: $SPOOL/etc/setup.cache is missing!

The file $SPOOL/etc/setup.cache is not present.  This
probably means the machine has not been setup using the faxsetup(8)
command.  Read the documentation on setting up HylaFAX before you
startup a server system.

EOF
    exit 1
}
. etc/setup.cache

qfile=$1
TEMPLATE=${2:?'No cover sheet template file specified.'}
cover=$3

test -f $TEMPLATE || { echo "No cover sheet template $TEMPLATE."; exit 1; }

DATE=`date +"%a %b %d %Y, %H:%M %Z"`
($CAT <<'EOF'
%!PS-Adobe-3.0
%%Creator: mkcover
%%Title: HylaFAX Continuation Cover Sheet
%%Pages: 1 +1
%%EndComments
%%BeginProlog
/$coverdict 100 dict def $coverdict begin
EOF

$AWK -F: '
function emitDef(d, v)
{
    gsub("[()]", "\\&", v);
    printf "/%s (%s) def\n", d, v;
}

BEGIN		{ emitDef("todays-date", DATE);
		  jobid = FILENAME;
		  sub("^[^0-9]*", "", jobid);
		}
/^number/	{ number = $2; }
/^external/	{ number = $2; }		# override unprocessed number
/^sender/	{ emitDef("from", $2); }
/^mailaddr/	{ emitDef("mailaddr", $2); }
/^status/	{ comments = "This is the continuation of job#" jobid \
		     " which failed previously because:\n    " $2;
		  if (comments ~ /\\$/) {
		      sub("\\\\$", "", comments);
		      while (getline) {
			  comments = comments $0;
			  sub("\\\\$", "", comments);
			  if ($0 !~ /\\$/)
			      break;
		      }
		  }
		  emitDef("comments", comments);
		}
/^npages/	{ emitDef("page-count", $2); }
/^ntries/	{ emitDef("ntries", $2); }
/^ndials/	{ emitDef("ndials", $2); }
/^pagewidth/	{ printf "/pageWidth %s def\n", $2; }
/^pagelength/	{ printf "/pageLength %s def\n", $2; }
/^receiver/	{ emitDef("to", $2); }
/^location/	{ emitDef("to-location", $2); }
/^company/	{ emitDef("to-company", $2); }
END		{ emitDef("to-fax-number", number); }
' DATE="$DATE" $qfile || {
    echo "Problem processing queue file $qfile."
    exit 1
}

$CAT <<'EOF'
end
%%EndProlog
%%Page: "1" 1
$coverdict begin
EOF
case $TEMPLATE in
*.Z)	zcat $TEMPLATE;;
*.gz)	zcat $TEMPLATE;;
*.p)	pcat $TEMPLATE;;
*)	$CAT $TEMPLATE;;
esac
$CAT <<'EOF'
end
%%Trailer
%%EOF
EOF
) > $cover