mirror of
https://github.com/samba-team/samba.git
synced 2025-01-31 01:48:16 +03:00
26 lines
337 B
Perl
26 lines
337 B
Perl
#!/usr/bin/perl
|
|
|
|
$ignore = 0;
|
|
|
|
print "<!DOCTYPE article PUBLIC \"-//OASIS//DTD DocBook V4.1//EN\">\n";
|
|
|
|
while (<STDIN>) {
|
|
|
|
$_ =~ s/<chapter/<article/g;
|
|
$_ =~ s/<\/chapter/<\/article/g;
|
|
|
|
if ( $_ =~ '<articleinfo>') {
|
|
$ignore = 1;
|
|
}
|
|
|
|
if ( $_ =~ '</articleinfo>') {
|
|
$ignore = 0;
|
|
$_ = "";
|
|
}
|
|
|
|
|
|
if (! $ignore) { print "$_"; }
|
|
|
|
|
|
}
|