support for getting shortlinks on upload

supd is a very simple tool that uploads everything from a directory to zfh.
Also some refactoring on sup.

sup

@@ -8,7 +8,7 @@ _self="${0##*/}"
 
 cfg_url_regex='^[A-Za-z]([A-Za-z0-9+.-]+)?://.+'
 cfg_tmp_dir="/tmp/$USER/sup"; TEMPDIR="$cfg_tmp_dir"
-cfg_script_url='https://zfh.so/upload'
+cfg_service_url='https://zfh.so'
 cfg_screenshot_ext='png'
 
 [[ -f $HOME/.suprc ]] && { source "$HOME/.suprc"; }
@@ -31,6 +31,7 @@ sup.usage() {
 		        -F                   # Make a fullscreen shot instead of prompting for a window/area. Implies -s.
 		        -D <num>             # Delay the shot by <num> seconds.
 		        -p                   # Make the file private. Requires \$secret to be set in the config.
+		        -u                   # Generate a shortlink from URL.
 		
 		    Config options (~/.suprc):
 		        secret               # Your personal token. Get it at https://zfh.so/settings_form
@@ -38,7 +39,7 @@ sup.usage() {
 		        # Others are self-explanatory:
 		        cfg_url_regex
 		        cfg_tmp_dir
-		        cfg_script_url
+		        cfg_service_url
 	EOF
 }
 
@@ -48,17 +49,71 @@ sup.env() {
 	done
 }
 
+sup.get_hash() {
+	read file_hash _ < <( sha1sum "$1" )
+}
+
 sup.upload() {
-	curl -F file="@$file" \
+	if (( flag_scrot )); then
-		-F upload_mode='api' \
+		file=$(sup.scrot) || { return 1; }
-		-F flag_private="$flag_private" \
+	else
-		-F secret="$secret" \
+		(( $# )) || {
-		-F submit="" \
+			sup.usage
-		"$cfg_script_url" -sL -A 'zerofiles.org upload script' || { return 1; }
+			return 1
+		}
 
-	(( "$flag_rm" )) && { rm "$file"; }
+		target="$1"
 
-	return 0
+		if sup.if_url "$target"; then
+			file=$(sup.mktemp "$cfg_tmp_dir")
+
+			curl -skL "$target" > "$file" || {
+				sup.err "Could not download file."
+				return 1
+			}
+		else
+			file="$target"
+
+			[[ -f "$file" ]] || {
+				sup.err "No such file: ${file}"
+				return 1
+			}
+		fi
+	fi
+
+	sup.get_hash "$file"
+
+	file_url=$( curl -fsL "${cfg_service_url}/api?mode=file&file=${file_hash}&direct=1&short=${flag_shortlink}" )
+	if ! (( $? )); then
+		printf '%s\n' "$file_url"
+	else
+		if curl -sL \
+			-F file="@$file" \
+			-F upload_mode='api' \
+			-F flag_private="$flag_private" \
+			-F short="$flag_shortlink" \
+			-F secret="$secret" \
+			-F submit="" \
+			-A 'zerofiles.org upload script' \
+			"$cfg_service_url/upload"
+		then
+			if (( flag_rm )); then
+				sup.msg "Removing file: $file"
+				rm "$file"
+			fi
+		else
+			sup.err 'Something has gone wrong with the upload.'
+			return 7
+		fi
+	fi
+}
+
+sup.url() {
+	declare url=$1
+
+	if ! curl -fsL "$cfg_service_url/api?mode=url_add&url=${url}&raw=1"; then
+		sup.err 'Something went wrong!'
+	fi
 }
 
 sup.mktemp() {
@@ -146,6 +201,7 @@ sup.set_argv() {
 
 main() {
 	declare args file target flag_private flag_rm flag_scrot flag_scrot_fullscreen cfg_scrot_delay
+	declare flag_shortlink=0
 
 	while [[ "$1" ]]; do
 		case "$1" in
@@ -159,6 +215,9 @@ main() {
 				flag_scrot_fullscreen='1'
 			;;
 
+			-S|--short) flag_shortlink='1';;
+			-u|--url) action='url';;
+			
 			-h|--help|--usage) sup.usage; return;;
 
 			--) shift; break;;
@@ -170,34 +229,10 @@ main() {
 
 	sup.env
 
-	if (( flag_scrot )); then
+	case "${action:-upload}" in
-		file=$(sup.scrot) || { return 1; }
+		upload) sup.upload "$1";;
-	else
+		url) sup.url "$1";;
-		(( $# )) || {
+	esac
-			sup.usage
-			return 1
-		}
-
-		target="$1"
-
-		if sup.if_url "$target"; then
-			file=$(sup.mktemp "$cfg_tmp_dir")
-
-			curl -skL "$target" > "$file" || {
-				sup.err "Could not download file."
-				return 1
-			}
-		else
-			file="$target"
-
-			[[ -f "$file" ]] || {
-				sup.err "No such file: ${file}"
-				return 1
-			}
-		fi
-	fi
-
-	sup.upload
 }
 
 sup.set_argv "$@"

supd

@@ -0,0 +1,47 @@
+#!/usr/bin/env bash
+shopt -s nullglob
+
+# Defaults
+cfg_workdir="/tmp/$USER/supd"
+cfg_scan_delay='30'
+
+msg() { printf '%s\n' "$*"; }
+err() { echo "$*" >&2; }
+
+usage() { echo "No help available."; }
+
+main() {
+	while (( $# )); do
+		case "$1" in
+			(--help|-h) usage; return 0;;
+			(--workdir|-d) cfg_workdir="$2"; shift;;
+			(--scan-delay|-D) cfg_scan_delay="$2"; shift;;
+
+			(--) shift; break;;
+			(-*)
+				err "Unknown key: $1"
+				usage
+				return 1
+			;;
+
+			(*) break;;
+		esac
+		shift
+	done
+
+	mkdir -p "$cfg_workdir" || {
+		return 1
+	}
+
+	cd "$cfg_workdir" || {
+		return 1
+	}
+
+	while sleep "$cfg_scan_delay"; do
+		for i in *; do
+			sup -R "$i"
+		done
+	done
+}
+
+main "$@"