#!/usr/bin/perl # # cusi2susi.pl # # Reads cusi.html and produces a Perl # associative array from menu names # to values. Requires cusi.html menus # look like: # # JumpStation # # 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 $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() { chop; if (/; chop; } if (/VALUE=\"([^\"]+)\"/i) { $url = $1; $next = ; $next=~s/^\s*//; $next=~s/\s*$//; $next=~s/'/\\'/; print "\t'$next', '$url',\n"; } else { die "Didn't match value: $_"; } } } print ");\n";