#!/bin/sh

# dog
# Copyright (C) 2006, 2007, 2012, 2013, 2018 Joseph Rosevear, San Diego
# CA

# This file is part of an application of SAM for GNU/Linux Slackware
# known as SAM-GLS.

# SAM-GLS is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by the
# Free Software Foundation; either version 3 of the License, or (at
# your option) any later version.

# SAM-GLS is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# General Public License for more details.

# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.

# (Slackware is a registered trademark of Patrick Volkerding and
# Slackware Linux, Inc.)



# Joseph Rosevear 120727 I changed the code to look for $1.dat this
# way:
#
#    $level/data/dog/$1.dat
#
# it was
#
#    $level/data/$1.dat

# Joseph Rosevear 130519 I removed use of var3.  I changed the temp
# file to $env_scratch/dog.html.

# Joseph Rosevear 150107 I added "$2" after "$1.dat" to allow the use
# of
#
#   "dog notes 1"
# This is a syntax similar to "notes 1" which is already in use.

# Joseph Rosevear 180219 I changed the code to make it compatible with
# Super.  It detects Super mode by the non-blank value of SuperDisplay. 
# As part of this change I changed the place where dog.html is
# stored--now in /tmp instead of $env_scratch.

# Joseph Rosevear 180401 I changed $place to $sam_root, because that is
# what it is called now.

# Joseph Rosevear 181115 I changed the code to have two different
# purposes.  I call them dog and named.  Purpose dog is the original
# purpose and the code performs in the original way.  Purpose named
# uses the name of an existing, normally remote, URL saved in file
# /tmp/dog_name.



# Determine purpose:

#    named:   Use named URL.
#    dog:     Use /tmp/dog.html.

# If $1 is not "", then assume purpose is dog, otherwise purpose is named.
if [ "$1" != "" ]; then

   purpose=dog
   
else

   purpose=named
fi

echo purpose is $purpose

# Write to /tmp/dog_name  based on purpose.
case $purpose in

   dog) echo /tmp/dog.html > /tmp/dog_name;
   bound $level $env_tool_base/splurge;
   splurge9 $sam_tool/pony.spl $level/data/dog/$1.dat$2 > /tmp/dog.html;
   chmod ugo+r /tmp/dog.html;;
esac   

#   named) url="`cat /tmp/dog_name`";;

# Normal mode:
if [ "$SuperDisplay" = "" ]; then

   net_or_rem `cat /tmp/dog_name`

# Super mode:
else

   echo "Login as student"
   su -c "DISPLAY=$SuperDisplay $sam_root/begin \"net_or_rem \\\`cat /tmp/dog_name\\\`; bye\"" student
fi
