#!/usr/bin/perl -w
# mkEncodeFrameset - generate ENCODE region frameset with browser,
# optionally, with specified position
# 10/03 kate
# usage: mkEncodeFrameset?position=N
#use strict;
use CGI qw(:standard);
# HTTP header
print header();
#print start_html('ENCODE');
# NOTE: this breaks in Netscape 4.75 (croaks on body tag)
print "ENCODE\n";
my $position;
if (param('position')) {
$position = param('position');
} else {
$position = "chr1:1-10000";
}
#
EOF
print end_html();