X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fhlptohtml.pl;fp=perl%2Fhlptohtml.pl;h=e0f6d0cef7b7682ad6247ff5ccc6b2bba2318f5c;hb=6ea05be3ca5b4857bb319782c408d5784658ec20;hp=0000000000000000000000000000000000000000;hpb=89ab02190d47c949e48b303260055f00591e3cdd;p=spider.git

diff --git a/perl/hlptohtml.pl b/perl/hlptohtml.pl
new file mode 100755
index 00000000..e0f6d0ce
--- /dev/null
+++ b/perl/hlptohtml.pl
@@ -0,0 +1,137 @@
+#!/usr/bin/perl
+# 
+# A program to split out the Command_en.hlp file into two
+# html documents, one for sysops, one for users
+#
+# Copyright (c) - 1999 Dirk Koopman G1TLH
+#
+# $Id$
+#
+require 5.004;
+
+# search local then perl directories
+BEGIN {
+	# root of directory tree for this system
+	$root = "/spider"; 
+	$root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
+	
+	unshift @INC, "$root/perl";	# this IS the right way round!
+	unshift @INC, "$root/local";
+}
+
+use strict;
+use IO::File;
+use DXVars;
+use Carp;
+
+my $lang = 'en';
+$lang = shift @ARGV if @ARGV;
+
+
+# read in the help file and key it all up and store it
+my $h = new IO::File;
+
+if (!open($h, "$main::localcmd/Commands_$lang.hlp")) {
+	if (!open($h, "$main::cmd/Commands_$lang.hlp")) {
+		die "cannot open $main::cmd/Commands_$lang.hlp $!";
+	}
+}
+my $in;
+my $state = 0;
+my $ref;
+my $text;
+my %c;
+
+foreach $in (<$h>) {
+	chomp;
+	next if $in =~ /^\#/;
+	$in =~ s/</\&lt;/g;
+	$in =~ s/>/\&gt;/g;
+	if ($in =~ /^===/) {
+		$text = [ ] if $state != 1;   # new text reference if not in a list
+		$in =~ s/=== //;
+		my ($priv, $cmd, $desc) = split /\^/, $in;
+		$c{$cmd} = { cmd=>$cmd, priv=>$priv, desc=>$desc, text=> $text };
+		$state = 1;
+		next;
+	}
+	if ($state > 0) {
+		confess "no text!" unless $text;
+	    push @$text, $in;
+		$state = 2;
+	}
+}
+
+close($h);
+
+# At this point we should have a hash containing all the useful info on each command
+
+# Starting with the user file, open it and copy across the top and tail with the 
+# <data> tag replaced by this system.
+#
+
+my $html = "$main::root/html";
+my $in = new IO::File "$html/user_$lang\_t.html" or die "can't open $html/user_$lang\_t.html $!";
+my $out = new IO::File ">$html/user_$lang.html" or die "can't open $html/user_$lang.html $!";
+chmod 0664, "$html/user_$lang.html";
+
+# copy until <data> is nigh
+while (<$in>) {
+	last if /<data>/i;
+	print $out $_;
+}
+
+my $c;
+my $count;
+my %done;
+
+foreach $c (sort {$a->{cmd} cmp $b->{cmd}} values %c) {
+	next if $c->{priv};
+	$count++;
+    my $label = "L$count";
+	print $out "<li><a name=\"$label\"><b>$c->{cmd}</b></a> $c->{desc}<br><br>\n";
+	printlines($out, $c->{text});
+}
+
+# now copy the rest out
+while (<$in>) {
+	print $out $_;
+}
+
+$in->close;
+$out->close;
+
+exit(0);
+
+sub printlines
+{
+	my $fh = shift;
+	my $ref = shift;
+
+	my $last;
+	my $state = 0;
+	for (@$ref) {
+		if ($state == 0) {
+			if (/^\s+\S+/) {
+				print $fh "<pre>\n";
+				$state = 1;
+			}
+		} else {
+			unless (/^\s+\S+/) {
+				print $fh "</pre>\n";
+				$state = 0;
+			}
+		}
+		print $fh $_, " ";
+    
+		if (/^\s*$/) {
+            if ($last =~ /^\s*$/) {
+				print $fh "<br>\n";
+			} else {
+				print $fh "<br><br>\n";
+			}
+		}
+		$last = $_;
+	}
+#    print $fh "<br>\n";
+}