[Woc-commit] CVS: woc/src/woc/cgi-src/ir link.pl,NONE,1.1

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Update of /cvsroot/woc/woc/src/woc/cgi-src/ir
In directory usw-pr-cvs1:/tmp/cvs-serv23171/woc/cgi-src/ir

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>Infrarood Spectrum</title>\n";
print "</HEAD>\n";
print "<BODY bgcolor=white>\n";
print "<CENTER><h1>Infrarood Spectrum</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";
print "</BODY>\n</HTML>\n";