49 lines
2.4 KiB
Perl
49 lines
2.4 KiB
Perl
#!/usr/bin/perl
|
|
use Pod::Man;
|
|
my $parser = Pod::Man->new (release => $VERSION, section => 8);
|
|
|
|
#create
|
|
$parser->parse_from_file ('root/usr/sbin/lat-users', "root/usr/man/man8/lat-users.8");
|
|
$parser->parse_from_file ('root/usr/sbin/lat-procmail', "root/usr/man/man8/lat-procmail.8");
|
|
$parser->parse_from_file ('root/usr/sbin/lat-dump',"root/usr/man/man8/lat-dump.8");
|
|
$parser->parse_from_file ('root/usr/sbin/lat-domains',"root/usr/man/man8/lat-domains.8");
|
|
$parser->parse_from_file ('root/usr/sbin/lat-groups',"root/usr/man/man8/lat-groups.8");
|
|
$parser->parse_from_file ('root/usr/sbin/lat-hosts',"root/usr/man/man8/lat-hosts.8");
|
|
$parser->parse_from_file ('root/usr/sbin/lat-ibays',"root/usr/man/man8/lat-ibays.8");
|
|
$parser->parse_from_file ('root/usr/sbin/lat-pptp',"root/usr/man/man8/lat-pptp.8");
|
|
$parser->parse_from_file ('root/usr/sbin/lat-pseudonyms',"root/usr/man/man8/lat-pseudonyms.8");
|
|
$parser->parse_from_file ('root/usr/sbin/lat-quota',"root/usr/man/man8/lat-quota.8");
|
|
$parser->parse_from_file ('root/usr/sbin/lat-restore',"root/usr/man/man8/lat-restore.8");
|
|
$parser->parse_from_file ('root/usr/sbin/lat-shadow',"root/usr/man/man8/lat-shadow.8");
|
|
|
|
# compress
|
|
system("/bin/gzip","root/usr/man/man8/lat-users.8");
|
|
system("/bin/gzip","root/usr/man/man8/lat-procmail.8");
|
|
system("/bin/gzip","root/usr/man/man8/lat-dump.8");
|
|
system("/bin/gzip","root/usr/man/man8/lat-domains.8");
|
|
system("/bin/gzip","root/usr/man/man8/lat-groups.8");
|
|
system("/bin/gzip","root/usr/man/man8/lat-hosts.8");
|
|
system("/bin/gzip","root/usr/man/man8/lat-ibays.8");
|
|
system("/bin/gzip","root/usr/man/man8/lat-pptp.8");
|
|
system("/bin/gzip","root/usr/man/man8/lat-pseudonyms.8");
|
|
system("/bin/gzip","root/usr/man/man8/lat-quota.8");
|
|
system("/bin/gzip","root/usr/man/man8/lat-restore.8");
|
|
system("/bin/gzip","root/usr/man/man8/lat-shadow.8");
|
|
|
|
# delete
|
|
|
|
system("/bin/rm -f","root/usr/man/man8/lat-users.8");
|
|
system("/bin/rm -f","root/usr/man/man8/lat-procmail.8");
|
|
system("/bin/rm -f","root/usr/man/man8/lat-dump.8");
|
|
system("/bin/rm -f","root/usr/man/man8/lat-domains.8");
|
|
system("/bin/rm -f","root/usr/man/man8/lat-groups.8");
|
|
system("/bin/rm -f","root/usr/man/man8/lat-hosts.8");
|
|
system("/bin/rm -f","root/usr/man/man8/lat-ibays.8");
|
|
system("/bin/rm -f","root/usr/man/man8/lat-pptp.8");
|
|
system("/bin/rm -f","root/usr/man/man8/lat-pseudonyms.8");
|
|
system("/bin/rm -f","root/usr/man/man8/lat-quota.8");
|
|
system("/bin/rm -f","root/usr/man/man8/lat-restore.8");
|
|
system("/bin/rm -f","root/usr/man/man8/lat-shadow.8");
|
|
|
|
|