#!/bin/bash
#set -n		# read but do not execute commands (check on syntax errors)
#
# File: /usr/local/bin/m3u-stat
#
# Show all playtimes in an m3u.
#
#    Copyright (C) 2023  Juergen Kaesmann (JK)
#
##############################################################################
# GPL NOTICE
#
#    This program 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 2 of the License, or
#    (at your option) any later version.
#
#    This program 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, write to the Free Software
#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#
#############################################################################
# FIND SAMPLES
#
##############################################################################
# FILTER SAMPLES
#
##############################################################################
# AWK SAMPLES
#
#############################################################################
# SED SAMPLES
#
##############################################################################
# RSYNC OPTIONS
#
##############################################################################
# DIALOG SAMPLES
#
##############################################################################
# REPLACE STRINGS
#
##############################################################################
# EXIT CODES

##############################################################################
# SOURCE FILES
#
. /usr/local/etc/main.conf				# config main
#. $LLIBDIR/libfuncerr-sh				# functions error
. $LLIBDIR/libfuncstd-sh				# functions standard
. $LLIBDIR/libfuncmath-sh				# functions math
#. $LLIBDIR/libfuncip-sh				# functions IP
#. /usr/local/etc/sample.conf				# config sample

#if [ ! -e ~/.samplerc ]; then				# install config user
#	cp /usr/local/share/ksm-sample/samplerc ~/.samplerc
#	echo "Please configure your ~/.samplerc"
#	exit 1
#fi
#. ~/.samplerc						# config user

##############################################################################
# DECLARATION OF STANDARD CONSTANTS AND VARIABLES
#
readonly package=Multimedia				# package name
readonly package_file=ksm-multimedia			# package file name
readonly vinfopath="/usr/local/share/$package_file"	# path to package dir
readonly version=$(cat $vinfopath/VERSION)		# package version
readonly release=$(cat $vinfopath/RELEASE)		# package release
readonly scriptname=$(basename $0)			# name of script
readonly tempfile=$TEMPDIR/$scriptname.$UID.tmp		# temporary file name
#readonly tempfile=$(mktemp -u $TEMPDIR/$scriptname.$UID.XXXXXX) # temporary file name
#readonly lockfile=$TEMPDIR/lock/$scriptname.$UID.lock	# lock file name
readonly debuglog="/usr/bin/logger -p user.debug -t $scriptname -- DEBUG:"	# log dbg msg
readonly errlog="/usr/bin/logger -p user.err -t $scriptname -- ERROR:"		# log err msg
readonly infolog="/usr/bin/logger -p user.info -t $scriptname -- INFO:"		# log inf msg
cmd=''							# sub command
debug=no						# debug=yes/no
verbose=''						# verbose=yes/''/no
err=${_ERR_OK_}						# error code

##############################################################################
# USER FILL IN AT FIRST RUN

##############################################################################
# SYSTEM

##############################################################################
# USER-CONSTANTS

##############################################################################
# USER-VARIABLES
#
# STRINGS
#args=''				# all args from cmdline
arg1=''					# 1. arg from cmdline
opt_o=''				# option -o yes
					# option --output=yes
#opt_i=''				# option -i <arg>
					# option --infile=<arg>
#opt_o=''				# option -o <arg>
					# option --outfile=<arg>
#opt_p=''				# option -p <arg>
					# option --pages=<arg>

# NUMBERS
#p_first=0				# first page
#p_last=0				# last page

# ARRAYS
# Indexed arrays are always zero based string arrays.
# If index starts with 1 and all members are assigned then
# count of members of array = last index of array
#declare -a arr
#maxarr="${#arr[@]}"			# get number of elements in arr
#unset arr[@]				# remove the entire array

##############################################################################
# SIGNAL HANDLING

##############################################################################
# FUNCTIONS
##############################################################################
#
##############################################################################
# HELP
#
#=============================================================================
function helptext ()
{
# Output helptext
# Uses cat, echo, logger
# Return codes:
# Standard

if [ "$debug" == "yes" ]; then				# DEBUG
	echo "DEBUG helptext: $# $@" >&2
	$debuglog helptext: $# $@
fi

cat <<EOT
NAME
$scriptname - Show all playtimes in an m3u.

SYNOPSIS
$scriptname [options] [m3u]

DESCRIPTION
Show a listing with all playtimes from an m3u. Lines with comment marks
'#' as first character are ignored.

Defaults: Show the listing with PAGER.

OPTIONS
Gnu style options:

  -h|--help    = Output help, then exit.
  -V|--version = Output version info, then exit.
  -d|--debug   = Turn on DEBUG mode.
  -q|--quiet   = Be quiet.
  -v|--verbose = Be verbose.
  -o           = Output to STDOUT.
  --           = End of options.

ARGUMENTS
Give if needed:

  m3u = The m3u to use.

EXIT STATUS
On program exit:

  Code 0 = OK

  See output of 'showerrmsg'.

SEE ALSO
Related manpages:

  showerrmsg(1).

AUTHORS
Juergen Kaesmann <juergen@kaesmann-online.de>
EOT
#  -o|--output  = Output to STDOUT.
#  -i f         = Input from file <f>.
#  --infile=f   = Input from file <f>.
#  -o f         = Output to file <f>.
#  --outfile=f  = Output to file <f>.
#  -p s,e       = Pages s=START e=END.
#  --pages=s,e  = Pages s=START e=END.

#EXAMPLES
#For instance:
#
#  Do it:
#  $scriptname

#FILES
#Used directories and files:
#
#  Config Global = /usr/local/etc/sample.conf
#  Config User   = ~/.samplerc

return
}

#=============================================================================
function HMS2Secs ()
{
# Transform a time from HH:MM:SS[.ss] to seconds.
# par1 = HH:MM:SS[.ss]
# Uses echo, logger
# I OK then output result to STDOUT.
# Return codes:
# Standard

if [ "$debug" == "yes" ]; then				# DEBUG
#	echo "DEBUG HMS2Secs: $# $@" >&2
	$debuglog HMS2Secs: $# $@
fi

local result='' t="$1"
local h=0 m=0 s=0 ss=0 ret=0

if [ -n "$t" ]; then					# if not empty
	if [ "${t#*:}" != "$t" ]; then			# contains :
		if [ $ret -eq 0 ]; then
			h=${t%%:*}
			h=$(X_mul_Y "$h" "3600")	# h in seconds
			m=${t#*:}
			m=${m%:*}
			m=$(X_mul_Y "$m" "60")		# m in seconds
			s=${t##*:}
			ss=$(($h+$m))
			result=$(X_plus_Y "$ss" "$s")
			echo "$result"
		fi
	else						# secs always in var
		ret=0
	fi
else							# empty
	ret=10
fi

return $ret
}

#=============================================================================
function secs2HMS ()
{
# Transform a time from seconds to HH:MM:SS[.ss].
# par1 = seconds
# Uses echo, logger
# I OK then output result to STDOUT.
# Return codes:
# Standard

if [ "$debug" == "yes" ]; then				# DEBUG
#	echo "DEBUG secs2HMS: $# $@" >&2
	$debuglog secs2HMS: $# $@
fi

local rest='' t="$1"
local bu=0 h=0 m=0 s=0 result=0 ret=0

if [ -n "$t" ]; then					# if not empty
	if [ "${t#*:}" == "$t" ]; then			# contains no :
		if [ $ret -eq 0 ]; then
			Find_Substr "$t" "."
			ret=$?
			if [ $ret -eq 0 ]; then		# . found
				rest=${t##*.}
				t=${t%.*}
			fi
			h=$(($t/3600))			# h = hours
			bu=$(X_mul_Y "$h" 3600)
			t=$(($t-$bu))
			m=$(($t/60))			# m = minutes
			bu=$(X_mul_Y "$m" 60)
			t=$(($t-$bu))
			if [ -n "$rest" ]; then
				s="${t}.$rest"
			else
				s=$t
			fi
			if [ "$h" -lt 10 ]; then h="0$h"; fi
			if [ "$m" -lt 10 ]; then m="0$m"; fi
			bu=$(X_LT_Y "$s" 10)
			ret=$?
			if [ $ret -eq 0 ]; then s="0$s"; fi
			result="${h}:${m}:${s}"
			echo "$result"
		fi
	else						# secs always in var
		ret=0
	fi
else							# empty
	ret=10
fi

return $ret
}

#=============================================================================
function get_timediff ()
{
# Process 1. time - 2. time.
# par1 = late time	(spaetere/groessere zeit)
# par2 = early time	(fruehere/kleinere zeit)
# Timeformat is HH:MM:SS[.ss]
# Result are seconds.
# Uses echo, logger, math-lib
# I OK then push result onto stack.
# Return codes:
# Standard

if [ "$debug" == "yes" ]; then				# DEBUG
	echo "DEBUG get_timediff: $# $@" >&2
	$debuglog get_timediff: $# $@
fi

local s='' tl="$1" te="$2" ts=''
local dif=0 secs1=0 secs2=0 ret=0

# get tl in secs
s=${tl#*:}
ts=${tl#* }						# extract time
if [ "$s" != "$tl" ]; then				# contain :
        secs1=$(HMS2Secs $ts)
        ret=$?
else							# are seconds
        secs1=$ts
fi


if [ $ret -eq 0 ]; then
	# get te in secs
	s=${te#*:}
	ts=${te#* }					# extract time
	if [ "$s" != "$te" ]; then			# contain :
		secs2=$(HMS2Secs $ts)
		ret=$?
	else						# are seconds
		secs2=$ts
	fi
fi

if [ $ret -eq 0 ]; then
	dif=$(X_minus_Y $secs1 $secs2)
	ret=$?
	if [ $ret -eq 0 ]; then
		Push "$dif"
		ret=$?
	fi
fi

return $ret
}

#=============================================================================
function mainproc ()
{
# Do the main stuff.
# par1 = 
# Uses echo, logger
# Return codes:
# Standard

if [ "$debug" == "yes" ]; then				# DEBUG
	echo "DEBUG mainproc: $# $@" >&2
	$debuglog mainproc: $# $@
fi

local bu='' l='' summ='' t=''
local i=0 ret=0 ss=0
#local -a arr
#local maxarr="${#arr[@]}"		# get number of elements in arr
#unset arr[@]				# remove the entire array

echo "${arg1}" > $tempfile
echo >> $tempfile
echo "X TTIME    TOTAL    SONG" >> $tempfile
summ=0
ss=0
i=0
while read l; do
	if [ "${l:0:1}" != "#" ]; then
		let ++i
		# get time of mp3
		t=$(mediainfo $l 2>&1 | grep Duration | cut -d ',' -f1)
		t=${t##* }
		t=${t%.*}
		ss=$(HMS2Secs $t)
		summ=$(X_plus_Y "$summ" "$ss")
		bu=$(secs2HMS "$summ")
		echo "$i $t $bu $l" >> $tempfile
	fi
done < $arg1
ret=$?
if [ -n "$opt_o" ]; then
	cat $tempfile
else
	$PAGER $tempfile
fi
rm -f $tempfile

return $ret
}

##############################################################################
# GET OPTIONS
##############################################################################
# Give 2 strings and all cmdline_args to func GetOpt
# (POSIX_options Gnu_long_options cmdline_args):
# GetOpt 'hVdqvi:m:' 'help version debug quiet verbose infile= myval=' $@
#
# A ':' after a POSIX option means this option needs an arg.
# A '=' after a Gnu long option means this option needs an arg.
#
# All cmd/options have to be initialised to ''!
#
# Options are divided in 2 classes:
#   a) cmds (mutually exclusive). All cmds are given to var 'cmd'.
#   b) options (as many as you like). Each option is given to it's own var.
# As a general rule: If cmds/options are given multiple then last given wins.
#
# Options can take 1 argument (no whitespace in arg). If you want to give more
# than 1 arg or want to use multiple strings as 1 arg then concatenate them
# together with a delimiter like ',' or ';' or '.'
# Use a delimiter which will not be part of the arg:
# sampleprog -m val1,val2
# sampleprog --myval=val1,val2
# It's at the programmers responsibility to do meaningfull things with the
# content of the options.
#
# While err = 0 then look for a next option.
# When GetOpt finishes then all options are removed from cmdline.
#
if [ "$debug" == "yes" ]; then				# DEBUG
	echo "DEBUG Parse Commandline: $# $@" >&2
	$debuglog Parse Commandline: $# $@
fi
#
err=${_ERR_OK_}
while [ "$err" -eq 0 ]; do
	GetOpt 'hVdqvo' 'help version debug quiet verbose' $@
	err=$?
	#echo "DEBUG GET OPTIONS: err=${err}  _OPTNAME_=${_OPTNAME_}  _OPTVAL_=${_OPTVAL_}  _OPTPOS_=${_OPTPOS_}  _OPTIDX_=${_OPTIDX_}" >&2
	if [ $err -eq 0 ]; then
		case "$_OPTNAME_" in
		    h|help)	cmd="-h";;
		    V|version)	cmd="-V";;
#		    a)		cmd="-${_OPTNAME_}";;
		    d|debug)	debug=yes;;
		    q|quiet)	verbose=no;;
		    v|verbose)	verbose=yes;;
		    o)		opt_o=yes;;
#		    o|output)	opt_o=yes;;
#		    i|infile)	opt_i="${_OPTVAL_}";;
#		    o|outfile)	opt_o="${_OPTVAL_}";;
#		    p|pages)	opt_p="${_OPTVAL_}";;
		    --)		break;;
		    :)	Show_Err ${_ERR_MISSING_ARG_FOR_OPT_} "-${_OPTVAL_}"
			exit ${_ERR_MISSING_ARG_FOR_OPT_};;
		    ?)	Show_Err ${_ERR_UNKNOWN_OPT_} "-${_OPTVAL_}"
			exit ${_ERR_UNKNOWN_OPT_};;
		    *)	Show_Err ${_ERR_UNKNOWN_ERR_} "_OPTNAME_=${_OPTNAME_} _OPTVAL_=${_OPTVAL_}"
			exit ${_ERR_UNKNOWN_ERR_};;
		esac
	fi
done
err=${_ERR_OK_}
shift ${_OPTIDX_}				# rm all opts from cmdline
#
# Uncomment if giving a cmd is mandatory
#if [ -z "$cmd" ]; then					# error no cmd given
#	Show_Err ${_ERR_MISSING_SUB_CMD_} ""
#	exit ${_ERR_MISSING_SUB_CMD_}
#fi

##############################################################################
# CHECK LINK NAMES

##############################################################################
# CHECK OPTIONS

##############################################################################
# CHECK VERSION

##############################################################################
# CHECK ARGUMENTS
#
case "$cmd" in
    '')
	if [ "$#" -eq 1 ]; then				# parameter count ok
		arg1="$1"
		shift
		#args="$@"
		#shift $#
	else						# error in param count
		Show_Err ${_ERR_WRONG_PAR_COUNT_} ""
		exit ${_ERR_WRONG_PAR_COUNT_}
	fi
	;;
    *)
	if [ "$#" -ne 0 ]; then				# error in param count
		Show_Err ${_ERR_WRONG_PAR_COUNT_} ""
		exit ${_ERR_WRONG_PAR_COUNT_}
	fi
	;;
esac

##############################################################################
# LOCK

##############################################################################
# MAINPROGRAM
##############################################################################
#
if [ "$debug" == "yes" ]; then				# DEBUG
	echo "DEBUG Main: $# $@" >&2
	$debuglog Main: $# $@
fi

# Check what to do (sub commands, options and args are removed from cmdline)
case "$cmd" in
    '')
	mainproc
	err=$?
	;;
    -h)
	helptext
	exit 0
	;;
    -V)
	echo "${scriptname}: (${package}) $package_file ${version}-${release}"
	exit 0
	;;
    *)							# error
	Show_Err ${_ERR_SUB_CMD_NOT_FOUND_} ""
	err=${_ERR_SUB_CMD_NOT_FOUND_}
	;;
esac

#rm -f $lockfile

exit $err
