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
|
#!/usr/bin/env perl
#
# $Id: build-man-pdfs.pl,v 1.7 2016/08/27 20:43:52 mjl Exp $
use strict;
use warnings;
sub cmd($)
{
my ($cmd) = @_;
print "$cmd\n";
system("$cmd");
}
my @mans = ("scamper/scamper.1",
"utils/sc_ally/sc_ally.1",
"utils/sc_analysis_dump/sc_analysis_dump.1",
"utils/sc_attach/sc_attach.1",
"utils/sc_bdrmap/sc_bdrmap.1",
"utils/sc_filterpolicy/sc_filterpolicy.1",
"utils/sc_remoted/sc_remoted.1",
"utils/sc_radargun/sc_radargun.1",
"utils/sc_speedtrap/sc_speedtrap.1",
"utils/sc_tbitblind/sc_tbitblind.1",
"utils/sc_tracediff/sc_tracediff.1",
"utils/sc_warts2json/sc_warts2json.1",
"utils/sc_warts2pcap/sc_warts2pcap.1",
"utils/sc_warts2text/sc_warts2text.1",
"utils/sc_wartscat/sc_wartscat.1",
"utils/sc_wartsdump/sc_wartsdump.1",
"scamper/libscamperfile.3",
"scamper/warts.5",
);
cmd("mkdir man");
foreach my $man (@mans)
{
cmd("groff -T ps -man $man | ps2pdf - >man/$1.pdf")
if($man =~ /^.+\/(.+)$/)
}
|
