diff options
author | Pavel Machek <pavel@ucw.cz> | 2000-05-30 13:50:17 +0200 |
---|---|---|
committer | Pavel Machek <pavel@ucw.cz> | 2000-05-30 13:50:17 +0200 |
commit | 7b099bf9a73b4a81f74d90fa8f413c9ebd85f384 (patch) | |
tree | 5a6039c28101b51a299bc04a3515503cc0d3117f /doc/sgml2txt | |
parent | 068b41272e8fbb81882a187dcef6d5f3d4e43ed2 (diff) | |
download | bird-7b099bf9a73b4a81f74d90fa8f413c9ebd85f384.tar bird-7b099bf9a73b4a81f74d90fa8f413c9ebd85f384.zip |
Recovering after change linuxdoc->birddoc
Diffstat (limited to 'doc/sgml2txt')
-rwxr-xr-x | doc/sgml2txt | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/doc/sgml2txt b/doc/sgml2txt new file mode 100755 index 0000000..3f7b682 --- /dev/null +++ b/doc/sgml2txt @@ -0,0 +1,44 @@ +#!/usr/bin/perl +# +# sgmltools.in +# +# $Id$ +# +# SGML-Tools driver. Calls all other SGML-Tools components, contains +# configuration information, etcetera. +# +package main; + +sub BEGIN +{ + require 5.004; +} +use strict; + +use vars qw($prefix $LibDir $BinDir $progs); + +$prefix = "/usr"; +$LibDir = "sbase"; +$BinDir = "/usr/bin"; + +use lib "/usr/lib/sgml-tools"; +use lib "/usr/perl5"; +use lib "/usr/lib/perl5"; +$progs = { + "NSGMLS" => "/usr/bin/nsgmls", + "SGMLSASP" => "/usr/bin/sgmlsasp", + "GROFF" => "/usr/bin/groff", + "GROFFMACRO" => "-mgs" +}; + +require SGMLTools; +&SGMLTools::init; + +my @FileList = SGMLTools::process_options ($0, @ARGV); +for my $curfile (@FileList) + { + SGMLTools::process_file ($curfile); + } + +exit 0; + |