#!/bin/sh

cat <<EOF
Content-type: text/html

EOF

PATH=/usr/bin:/bin:$PATH
export PATH

. data/bin/common.sh

output ()
{
    imagefile="images/$QUERY_id/$QUERY_if"
    stuff=""
    title="The Internet Pinball Database Presents"

    read result
    case "$result" in
        GAMEOK)
            read machine
            read xtitle

            if [ -z "$id" ] ; then
                cat <<EOF
                    <p>Malformed URL <p>Please report this problem to
                    the owner of the page containing the link you
                    followed to get to this page.
EOF
            else
                title="`tag_pasture_font 0`$title`tag_pasture_font_end`<br>$xtitle"
            fi
            ;;
        NOTFOUND)
            stuff="<p>The game you were looking for was not found in the
                database. The reason for this may be that the ID
                number you used was incorrect or has been removed from
                the database in a recent update. Please use the <a
                href=\"search.cgi\">general search form</a> to locate
                the correct ID number."
            ;;
        NOTID)
            stuff="<p>The only type of query available for image pages is
                a simple ID number lookup. Please notify the
                maintainer of the page containing the link to this
                page that there was an error."
            ;;
        *)
            stuff="<p>Your query has failed for some mysterious and
                unknown reason ($result). Please report this to <a
                href=\"mailto:byers@lysator.liu.se\">byers@lysator.liu.se</a>
                and include the URL of this document in your message."
            ;;
    esac

    tag_pasture "Internet Pinball Presents $xtitle"
    tag_pasture_font 0

    tag_pasture_hn 1 "$title"

     cat <<EOF
         <hr noshade size=1 width="80%">
         <div align=center>
EOF

     tag_pasture_linkbar "Instructions" "instructions.html" \
                         "Linking to the IPD" "linking.html" \
                         "New Basic Search" "search.cgi?qf=b" \
                        "New Advanced Search" "search.cgi?qf=x" 

     cat <<EOF
         </div>
         <hr noshade size=1 width="80%">
EOF

    tag_pasture_text

    backlink=""
    if [ ! -z "$QUERY_h" ] ; then
        href="$QUERY_h"
        htext="Go back"
        if [ ! -z "$QUERY_t" ] ; then
            htext="$QUERY_t"
        fi

        backlink="<p align=center>`tag_pasture_font +1`<b><a href=\"$href\">$htext</a></b>`tag_pasture_font_end`</p>"
    fi

    echo "$backlink"
    echo "$stuff"
    cat
    echo "$backlink"

    tag_pasture_footer "The Internet Pinball Database" \
                       data/pinball.db \
                       "Back to the Pinball Pasture" "$PASTURE_URL" \
                       "Back to the Internet Pinball Database" "$IPD_URL"
    tag_pasture_text_end
    tag_pasture_font_end
    tag_pasture_end
}


if [ ! -z "$QUERY_fm" ] ; then
    QUERY_STRING="$QUERY_STRING&bfm=$QUERY_fm"
    QUERY_bfm="$QUERY_fm"
    export QUERY_bfm
    QUERY_fm="page"
fi

QUERY_STRING="$QUERY_STRING&fm=page"
export QUERY_STRING
QUERY_fm="page"
export QUERY_fm

if [ ! -z "$QUERY_id" ] ; then
    id="$QUERY_id"
else
    id="$QUERY_STRING"
    QUERY_STRING="id=$id"
    QUERY_id="$id"
fi

$BINDIR/pdblookup | output

exit 0