#!/bin/sh
HTML=squick.html # resultant file
LIST=.squicks # list of "squicks" shared with .mkaff.sh
AWK=/tmp/mksquickA.$$ # awk script
TMP=/tmp/mksquickT.$$ # volatile file
#
#
#
cat >${HTML}+ <<HTMLFILE
<HTML>
<HEAD>
<TITLE>Story Affinity Profile - Test</TITLE>
</HEAD>
<BODY>
<H1 ALIGN=CENTER>Story Affinity Profile<BR>Test Page</H1>
This is a prototypical form developed by <A HREF="mailto:liptonsoup1951@yahoo.com">Jack C Lipton</A>. <BR>
You can download a copy of the generating script from
<A HREF="http://www.asstr.org/~CupaSoup/.mkaff.sh">http://www.asstr.org/~CupaSoup/.mksquick.sh</A>
and the
<A HREF="http://www.asstr.org/~CupaSoup/.squicks">http://www.asstr.org/~CupaSoup/.squicks</A>file is used to generate the menu. <BR>
There are more than a few entries intended to get a laugh.
I'll even settle for chuckles. <BR>
Another version can be seen <A HREF="affinity.html">here</A> <BR>
<BR>
<FORM>
<BR>
<H2>Things I like to See</H2>
<SELECT NAME="likes" MULTIPLE>
HTMLFILE
cat >$AWK <<AWKSCRIPT
BEGIN {
FS = "|";
inlist = 0;
}
/^_/ { # handle a section header
next;
}
/^-$/ { # inserts a blank line (results vary)
next;
}
{ # acquire the varname and the description we're working with
varname = \$1;
description = \$2;
}
{
printf( "\t\t<OPTION VALUE=\\"%s\\">%s\n", varname, description);
}
END {
}
AWKSCRIPT
awk -f $AWK $LIST >>${HTML}+
cat >>${HTML}+ <<HTMLFILE
</SELECT>
<BR>
<BR>
<H2>Squick List (things I'd rather <B>not</B> read)</H2>
<SELECT NAME="squicks" MULTIPLE>
HTMLFILE
awk -f $AWK $LIST >>${HTML}+
cat >>${HTML}+ <<HTMLFILE
</SELECT>
</FORM>
<BR> <BR>
<HR SIZE=5>
<CENTER>
Copyright (c) 2002 - Jack C. Lipton<BR>
</CENTER>
</BODY>
</HTML>
HTMLFILE
cutover $HTML
rm -f $AWK $TMP
exit 0