#!/usr/local/bin/perl
#
# cusi2susi.pl
#
# Reads cusi.html and produces a Perl
# associative array from menu names
# to values. Requires cusi.html menus
# look like:
#   <option VALUE="http://www.stir.ac.uk/jsbin/h1_js?_cusi-search-term-here_">
#   JumpStation
#   <option VALUE="http://galaxy.einet.net/www/www.html?_cusi-search-term-here_">
#   EINet Galaxy
#
# For use by CUSI's SUSI compatibility mode
#
# $Id: cusi2susi.pl,v 1.1 1994/11/04 18:41:57 mak Exp $
#
# By Martijn Koster <m.koster@nexor.co.uk>

$in = shift;
die "Usage: cusi2susi cusi.html > susi-map.pl\n" if (!defined $in);
open(F, $in) || die "Cannot read $in\n";;
print "%services = (\n";

while(<F>) {
    chop;
    if (/<option/i) {
	if (!/value/i) {
	    $_ .= <F>;
	    chop;
	}
	if (/VALUE=\"([^\"]+)\"/i) {
	    $url = $1;
	    $next = <F>;
	    $next=~s/^\s*//;
	    $next=~s/\s*$//;
	    $next=~s/'/\\'/;
	    print "\t'$next', '$url',\n";
	}
	else {
	    die "Didn't match value: $_";
	}
    }
}
print ");\n";