#!/bin/sh # .mkaff.sh - Generates the "Affinity" Profile webpage # Author: Jack C Lipton # # # HTML=affinity2.html # resultant file LIST=.squicks # list of "squick" categories AWK=/tmp/mkaff2A.$$ # awk script TMP=/tmp/mkaff2T.$$ # volatile file # # We used to have an internal copy of the list. I'm keeping # this only as a backup... # cat >${HTML}+ < Story Affinity Profile - Test

Story Affinity Profile
Test Page

This is a prototypical form developed by Jack C Lipton.
You can download a copy of the generating script from http://www.asstr-mirror.org/files/Authors/CupaSoup/www/.mkaff2.sh and the http://www.asstr-mirror.org/files/Authors/CupaSoup/www/.squicks file is used to generate the menu.
There are more than a few entries intended to get a laugh. I'll even settle for chuckles.
Another version can be seen here


Scales

There are 5 selections per category; These are:

I'm sure some folks can have something funny to say about my phrasing above. It's a first cut so please have a good time with a chain-saw.


HTMLFILE cat >$AWK <\n\n"); } printf( "

%s

\n\n", substr(\$0,2)); printf( " \n"); printf( "\t\n"); printf( "\t\n"); printf( "\t\n"); printf( "\t\n"); printf( "\t\n"); printf( "\t\n"); inlist = 1; next; } /^-$/ { # inserts a blank line (results vary) if ( inlist == 0 ) { printf( "
MustNiceSo?NopeSquick!Description
\n"); } else { printf( " \n"); # printf( "

"); # printf( "
\n"); } next; } { # acquire the varname and the description we're working with varname = \$1; description = \$2; } { printf( " \n"); for ( ndx = 1 ; ndx <= steps ; ndx++ ) { key = STEPLIST[ndx]; if ( ndx == 3 ) { printf( "\t\n", varname, key); } else { printf( "\t\n", varname, key); } } printf( "\t\n\n", description); } END { if ( inlist != 0 ) { printf( "
%s
\n\n"); } printf( "\n\n
\n
\n"); printf( "Copyright (c) 2002 - Jack C Lipton
\n"); printf( "
\n\n\n\n\n"); } AWKSCRIPT awk -f $AWK $LIST >>${HTML}+ cutover $HTML rm -f $AWK $TMP exit 0