/usr/bin/mkdtskel is in libxml-dt-perl 0.63-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 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 | #!/usr/bin/perl -s
eval 'exec /usr/bin/perl -s -S $0 ${1+"$@"}'
if 0; # not running under some shell
use XML::DT;
use XML::DTDParser "ParseDTDFile";
our ($dtd, $html, $lines);
my $filename = shift;
$dtd = 1 if $filename =~ m!\.dtd$!;
if ($dtd) {
mkdtskel_fromDTD ($filename, @ARGV);
}
else {
if ($lines) {
## XXX - fixme, using head/xmllint is not a good idea
system("head -$lines $filename | xmllint --recover - > /tmp/_xml_$$");
$filename = "/tmp/_xml_$$";
}
if ($html) {
mkdtskel("-html", $filename, @ARGV);
}
else {
mkdtskel($filename, @ARGV);
}
unlink("/tmp/_xml_$$") if $lines;
}
__END__
=encoding utf-8
=head1 NAME
mkdtskel - Perl code skeleton generator to process XML files with XML::DT
=head1 SYNOPSIS
mkdtskel [-lines=20000] <xmlfile>
mkdtskel -dtd <dtdfile>
mkdtskel -html <htmlfile>
=head1 DESCRIPTION
Use this command to prepare a skeleton file with basic code needed to
process your XML file with XML::DT; The command checks the element
names and for each one, the attributes. This information is described
on the generated file to remember the programmer.
=head1 SEE ALSO
XML::DT(1), mkdtdskel(1), mkxmltype(1) and perl(1)
=head1 AUTHORS
Jose Joao Almeida, <jj@di.uminho.pt>
Alberto Manuel Simões, <albie@alfarrabio.di.uminho.pt>
=head1 COPYRIGHT AND LICENSE
Copyright 1999-2013 by Projecto Natura
This library is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.
=cut
|