m3uchecker checks for broken iptv links

m3uchecker.bash

#
# generated by powscript (https://github.com/coderofsalvation/powscript)
#

empty () 
{ 
    [[ "${#1}" == 0 ]] && return 0 || return 1
}

map () 
{ 
    local arr="$1";
    shift;
    local func="$1";
    shift;
    eval "for i in \"\${!$arr[@]}\"; do $func \"\$@\" \"\$i\" \"\${$arr[\$i]}\"; done"
}

pipemap () 
{ 
    func="$1";
    shift;
    cat - | while read -r line; do
        $func "$@" "$line";
    done
}


#
# application code
#

#!/usr/bin/env powscript
shift
lastinfo=""

if empty "$1"; then
  printf "%s\n\n%s" "Usage: m3ucheck <file.m3u>" "filters out broken links"
  exit
fi

process_line(){
  if [[ "$1" =~ ^(#) ]]; then
    lastinfo="$1"
  else
    testlink "$1"
  fi
}

testlink(){
  if curl --connect-timeout 2 --silent --head --fail "$1" &>/dev/null; then
    echo "$lastinfo" 
    echo "$1"
  fi
}

cat "$1" | pipemap process_line

m3uchecker.pow

#!/usr/bin/env powscript
shift                                                                           
lastinfo=""

if empty $1
  printf "%s\n\n%s" "Usage: m3ucheck <file.m3u>" "filters out broken links" && exit

process_line()
  if $1 match ^(#)
    lastinfo=$1
  else
    testlink $1

testlink()
  if curl --connect-timeout 2 --silent --head --fail $1 &>/dev/null
    echo $lastinfo
    echo $1

cat $1 | pipemap process_line