coderofsalvation · February 24, 2016 20:25
diff --git a/m3uchecker.bash b/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
diff --git a/m3uchecker.pow b/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
	#
	# 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