#!/usr/bin/perl
push(@INC,"/data/htdocs/chemistry/cmp") ;
require("cgi-lib.pl") ;
&ReadParse ;
$sMP = $in{'MP'} ; # search melting point
$sBP = $in{'BP'} ; # search boiling point(760)
$sND = $in{'ND'} ; # search index of refraction
$sMW = $in{'MW'} ; # search molecular weight
$sX[1] = $in{'C'} ; # search formula C
$sX[2] = $in{'H'} ; # search formula H
$sX[3] = $in{'N'} ; # search formula N
$sX[4] = $in{'O'} ; # search formula O
$sX[5] = $in{'Cl'} ; # search formula Cl
$sX[6] = $in{'Br'} ; # search formula Br
$sX[7] = $in{'I'} ; # search formula I
$sX[8] = $in{'S'} ; # search formula S
$sW[1] = $in{'W[1]'} ; # search UV wavelength 1
$sW[2] = $in{'W[2]'} ; # search UV wavelength 2
$sW[3] = $in{'W[3]'} ; # search UV wavelength 3
$sMS[1] = $in{'MS[1]'} ; # search four biggest peaks in Mass Spec
$sMS[2] = $in{'MS[2]'} ;
$sMS[3] = $in{'MS[3]'} ;
$sMS[4] = $in{'MS[4]'} ;
$sCO = $in{'CO'} ; # search for Carbonyl
$sAR = $in{'AR'} ; # search for Aryl
$sHT = $in{'HT'} ; # search 0:no C-H,1:sat,2:unsat,3:both
$sQH = $in{'QH'} ; # search for OH or NH
$sname = $in{'name'} ; # search for name that contains sname
print &PrintHeader ;
print "\n";
print "\n";
print "Search Results\n" ;
print "\n" ;
print "\n" ;
print "Search Results
\n" ;
print "\n";
print "\n" ;
print "\n" ;
print "\n" ;