-
Notifications
You must be signed in to change notification settings - Fork 0
/
bgaol.csh.m4
executable file
·63 lines (63 loc) · 2.06 KB
/
bgaol.csh.m4
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
`#!/bin/csh
# bgaol.csh
#
# Herbert J. Bernstein, Bernstein + Sons
# Lawrence C. Andrews, Micro Encoder, Inc.
#
# 30 May 2012
#
# This is a service script for the bgaol.html web page
# It must be placed in an appropriate cgi-bin directory on
# the server pointed to by bgaol.html
#
#
# Set the following to the best available search URL
set searchurl="'SEARCHURL()`"
#set searchurl="http://www.bernstein-plus-sons.com/software/bgaol#search"
#
# To operate correctly, the programs tr and sed must be in the
# default path and the /bin/echo version of echo must follow
# system V conventions sufficiently to produce an empty line
# call, below
#
/bin/echo "Content-type: text/html"
/bin/echo
echo "<head>"
echo "<title>Bravais General Identification of Lattices (BGAOL)"
echo "</title>"
echo "</head>"
echo ''`<body><font face="Arial,Helvetica,Times">''`
'ifelse(CGIMETHOD(),`GET',`echo $QUERY_STRING |')` tr ''`\&''` ''`\n''` |sed "s/^./set &/" | sed "s/%2B/+/g" > /tmp/outstr$$
#cat /tmp/outstr$$
source /tmp/outstr$$
rm /tmp/outstr$$
echo "<h3 align=center>Bravais General Identification of Lattices (BGAOL)</h3>"
echo ''`<p><center>''`
echo ''`| <a href="#results">GO TO RESULTS</a>''`
echo ''`| <a href="''`${searchurl}''`">NEW SEARCH</a> |</center><p>''`
echo "<hr />"
echo ${Centering}. > /tmp/instr$$
echo "<P>| Centering: " $Centering
echo $A $B $C $Alpha $Beta $Gamma >>/tmp/instr$$
echo "| Cell: " $A $B $C $Alpha $Beta $Gamma
echo $sigA $sigB $sigC $sigAlpha $sigBeta $sigGamma >>/tmp/instr$$
echo "n" >> /tmp/instr$$
echo "n" >> /tmp/instr$$
echo "y" >> /tmp/instr$$
echo "y" >> /tmp/instr$$
echo "q" >> /tmp/instr$$
echo "| Sigmas: " $sigA $sigB $sigC $sigAlpha $sigBeta $sigGamma "|"
echo ''`<p><hr /><p><h3><a href="#results">Results</a> of BGAOL Run</h3>''`
setenv ITERATE_QUERY NO
setenv OUTPUT_STYLE $OutputStyle
echo "<PRE>"
'BINPATH()` < /tmp/instr$$
rm /tmp/instr$$
#cat /tmp/instr$$
echo "</pre>"
echo "<hr />"
echo ''`<p><center>''`
echo ''`| <a href="#results">GO TO RESULTS</a>''`
echo ''`| <a href="''`${searchurl}''`">NEW SEARCH</a> |</center><p>''`
echo "</font>"
echo "</body>"'