Update of /cvsroot/woc/woc/src/woc/cgi-src/massa
In directory usw-pr-cvs1:/tmp/cvs-serv23171/woc/cgi-src/massa
Added Files:
link.pl
Log Message:
--- NEW FILE: link.pl ---
#!/usr/local/gnu/bin/perl -- -*-perl-*-
# ------------------------------------------------------------
# ------------------------------------------------------------
# Print out what we need
print "Content-type: text/html\n\n";
print "<HTML>\n";
print "<HEAD>\n";
print " <title>Massaspectrum</title>\n";
print "</HEAD>\n";
print "<BODY bgcolor=white>\n";
print "<CENTER><h1>Massapectrum</h1></center>\n";
print "<hr>";
print "<p>Er is gezocht op CAS NR <i>";
print @ARGV;
print "</i> in:";
print "<h1><a href='http://webbook.nist.gov/'>NIST Chemitry Webbook</a></h1>\n";
print "<ul>\n";
print " <APPLET CODEBASE='http://webbook.nist.gov/classes/' CODE='JCAMP.class' WIDTH=100% HEIGHT=90%>\n";
print " <PARAM NAME='SRC' VALUE='http://webbook.nist.gov/cgi/cbook.exe?JCAMP=C";
print @ARGV;
print "&Type=IR'>\n";
print " <P><BLOCKQUOTE>\n";
print " <STRONG>Notice:</STRONG> This spectrum may be better viewed with a Java capable browser.\n";
print " </BLOCKQUOTE></P>\n";
print " <IMG SRC='http://webbook.nist.gov//cgi/cbook.exe?Spec=C";
print @ARGV;
print "&Type=IR' ALT='IR spectrum'>\n";
print " </TABLE>\n";
print " </APPLET\n>";
print "</ul>\n";
print "<hr>\n";
|
