#!/usr/bin/perl &parse_form; @fields=keys %Form; # ------------------------- #default $cgi = "http://hea-www.harvard.edu/ChaMPlane/cgi-bin/x-ray4pub/getsrc.pl"; #$rdb = $Form{"rdb"} if defined $Form{"rdb"}; # ------------------------- $rdb = "/proj/ChaMP/ChaMPlane/WWW/data/xray/xmaster.rdb"; open(RDB, $rdb); @column =("None"); &get_column_name; $ncolumn = $#column+1 if $ncolumn > $#column+1; close(RDB); $sort_option = ""; foreach (@column) { if (/dist/) { $sort_option .= "\n"; } else { $sort_option .= "\n"; } } print <

EOF exit; sub get_column_name{ # check current line, $_ while(){ next if /^\s*$/ ; # skip blank lines next if( /^\s*\#/ ); # comment line $lln++ ; # logical line nr last if( $lln > 1 ); # while( s/\s*(\S+)// ) { while( s/\t*([^\t]+)// ) { $x = $1 ; push( @column, $x ) ; #print $x . "\n"; } } } sub parse_form { if ($ENV{'REQUEST_METHOD'} eq 'GET') { @pairs = split(/&/, $ENV{'QUERY_STRING'}); } elsif ($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); } foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $Form{$name} = $value; } }