blob: 6bf91d3026074eb7358e617aacc765e75a74bfcb (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#!/usr/bin/env bash
TCL_SCRIPT="./upchud.tcl"
TEST_FILE="example.png"
#TEST_FILE="example.txt"
TCLSH_CMD="$(command -v tclsh)"
# verify files exist
if [[ ! -x "$TCL_SCRIPT" ]]; then
echo "ERROR: cannot execute $TCL_SCRIPT" >&2
exit 1
fi
if [[ ! -f "$TEST_FILE" ]]; then
echo "ERROR: test file $TEST_FILE not found" >&2
exit 1
fi
CONTENT_LENGTH=$(wc -c < "$TEST_FILE")
export CONTENT_LENGTH
export HTTP_CONTENT_DISPOSITION="form-data; name=\"file\"; filename=\"$TEST_FILE\""
echo "Uploading '$TEST_FILE' ($CONTENT_LENGTH bytes) to $TCL_SCRIPT"
OUT_NAME=$("$TCLSH_CMD" "$TCL_SCRIPT" < "$TEST_FILE")
echo "Script response:\n $OUT_NAME"
|
