#!/usr/bin/perl
#
# This program converts a list of text documents into HTML format.
#
# Title:          readme2html
# Version:        1.0
# Written by:     Alex Burger
# Date:           March 1st, 2004
# Last modified:  March 20th, 2004
#
# Requirements:
#
# -tidy (http://tidy.sourceforge.net/)
#
################################################################
# Options

# Output folder to create the HTML files
$readme_dir_html = "/tmp/net-snmp/html/";

# tidy location
$tidy = "tidy";

# txt2html location
$txt2html = "./txt2html";

# Base dir where README files are located.  Leave empty if @files
# contains the complete path for each file.
$base_dir = "../../..";

# Files to convert in the format of:
# filename title
# filename title
# filename title
# etc..
@files = qw(
AGENT.txt AGENT.txt 
CodingStyle CodingStyle 
COPYING COPYING 
INSTALL INSTALL
NEWS NEWS 
PORTING PORTING 
TODO TODO 
README README 
README.agentx README.agentx 
README.hpux11 README.hpux11 
README.krb5 README.krb5
README.snmpv3 README.snmpv3 
README.solaris README.solaris 
README.thread README.thread 
README.win32 README.win32 
NEWS NEWS 
README.perl README.perl
);

# Folder separator
$separator = '-';

################################################################

# Chop off trailing slash
if ($base_dir =~ /\/$/) {
  chop $base_dir;
}

# Chop off trailing slash
if ($readme_dir_html =~ /\/$/) {
  chop $readme_dir_html;
}

mkdir "$readme_dir_html";
if ($separator eq '/') {
  # Make output directory structure
  mkdir "$readme_dir_html/readme";
}

for (my $i=0; $i <= $#files; ) {

  my $file = $files[$i++];
  my $file_title = $files[$i++];

  chomp $file;
  chomp $file_title;
 
  if (! (-f "$base_dir/$file")) {
    die "Could not open file $base_dir/$file!";
  }

  $command = "$txt2html $base_dir/$file | $tidy > $readme_dir_html/readme$separator$file_title.html";

  #print "$command\n";

  system "$command";
  
}


