#!/usr/bin/env bash

# Let's say, for the sake of argument, that you were running a VMS Hobbyist
#  License.  And let's say that you had a working license file (in the
#  form of a DCL script).  But let's also say, it's expiring, or expired,
#  and you're concerned that even if you get HPE to renew it in 2020, it's
#  going to expire at the end of 2021, and it's not at all clear that
#  VMS Software, Inc. has any intention of continuing the hobbyist program
#  in any form, let alone for VAX or Alpha.

# Let's further stipulate that somehow you managed to get hold of the C
#  program pakgen and build it, so you had the ability to generate non-
#  expiring licenses for your DEC licensed software.

# Then in that case, if you were a sort who didn't care much about niceties,
#  you might want to run this to generate a DCL script that would replace your
#  time-limited licenses with non-expiring ones.

# Of course you shouldn't execute the resulting script, with privileges
#  enabled, on a VMS system, because that'd be wrong.  Oh so very wrong.


# Defaults
INP="./Hobbyist-USE-ONLY-VA.txt"
OUTP="./LIC.CMD"
PAKGEN="./pakgen"
k=""

usage () {
    echo "$0 [-h] [-k key (from license file)] \\" 1>&2
    echo "    [-l license-file ($INP)] \\" 1>&2
    echo "    [-o output-cmd-script ($OUTP)] [-p pakgen ($PAKGEN)]" 1>&2
}

while getopts ":hk:l:o:p:" opt; do
    case ${opt} in
	h )
	    usage
	    exit 0
	    ;;
	\? )
	    usage
	    exit 1
	    ;;
	: )
	    usage
	    exit 1
	    ;;
	k )
	    k=$OPTARG
	    ;;
	l )
	    INP=$OPTARG
	    ;;
	o )
	    OUTP=$OPTARG
	    ;;
	p )
	    PAKGEN=$OPTARG
	    ;;
    esac
done
shift $((OPTIND -1))
d=$(date +%y%m%d)
if [ -z "${k}" ]; then
    # Extract key from license file
    k=$(grep "AUTHORIZATION=HOBBYIST" ${INP} | \
	    head -1 | cut -d '-' -f 3 | sed -e 's/KEY//')
fi
if [ -z "${k}" ]; then
    # Default
    k="00000"
fi
AUTH="HOBBYIST-VA-KEY${k}-${d}"
PKGS=$(< ${INP} grep "LICENSE REGISTER" | awk '{print $4}')
echo "\$! Yarr Matey!" > ${OUTP}
l="/LOG/PRODUCER=DEC"
for p in $PKGS; do
    q=$(${PAKGEN} -p DEC -i DEC -a ${AUTH} ${p})
    r="${p}${l}"
    echo "\$ ${q}" >> ${OUTP}
    echo "\$ LICENSE DISABLE ${r}/ALL" >> ${OUTP}
    echo "\$ LICENSE UNLOAD ${r}" >> ${OUTP}
    echo "\$ LICENSE ENABLE ${r} -" >> ${OUTP}
    echo "        /AUTHORIZATION=${AUTH}" >> ${OUTP}
    echo "\$ LICENSE LOAD ${r}" >> ${OUTP}
done
echo "\$! Yo ho ho, a pirate's life for me!" >> ${OUTP}