diff options
| author | Denis Vlasenko <vda.linux@googlemail.com> | 2007-08-22 10:38:44 +0000 |
|---|---|---|
| committer | Denis Vlasenko <vda.linux@googlemail.com> | 2007-08-22 10:38:44 +0000 |
| commit | 764299819016e5fb400be2fccf12d8de248e4cef (patch) | |
| tree | a031b6c86205944508794b9ef2dc0dca1e629f3d /networking/httpd_index_cgi_example | |
| parent | 72b6a65b2fab7325767ce72fc71b9cf45514764a (diff) | |
| download | busybox-w32-764299819016e5fb400be2fccf12d8de248e4cef.tar.gz busybox-w32-764299819016e5fb400be2fccf12d8de248e4cef.tar.bz2 busybox-w32-764299819016e5fb400be2fccf12d8de248e4cef.zip | |
httpd: replace shell-based dir indexer cgi example with C-based one.
Diffstat (limited to 'networking/httpd_index_cgi_example')
| -rw-r--r-- | networking/httpd_index_cgi_example | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/networking/httpd_index_cgi_example b/networking/httpd_index_cgi_example deleted file mode 100644 index 9c8e022a6..000000000 --- a/networking/httpd_index_cgi_example +++ /dev/null | |||
| @@ -1,50 +0,0 @@ | |||
| 1 | #!/bin/sh | ||
| 2 | # This CGI creates directory index. | ||
| 3 | # Put it into cgi-bin/index.cgi and chmod 0755. | ||
| 4 | # | ||
| 5 | # Problems: | ||
| 6 | # * Unsafe wrt weird filenames with <>"'& etc... | ||
| 7 | # * Not efficient: calls stat (program, not syscall) for each file | ||
| 8 | # * Probably requires bash | ||
| 9 | # | ||
| 10 | # If you want speed and safety, you need to code it in C | ||
| 11 | |||
| 12 | # Must start with '/' | ||
| 13 | test "${QUERY_STRING:0:1}" = "/" || exit 1 | ||
| 14 | # /../ is not allowed | ||
| 15 | test "${QUERY_STRING%/../*}" = "$QUERY_STRING" || exit 1 | ||
| 16 | test "${QUERY_STRING%/..}" = "$QUERY_STRING" || exit 1 | ||
| 17 | |||
| 18 | # Outta cgi-bin... | ||
| 19 | cd .. 2>/dev/null || exit 1 | ||
| 20 | # Strip leading '/', go to target dir | ||
| 21 | cd "${QUERY_STRING:1}" 2>/dev/null || exit 1 | ||
| 22 | |||
| 23 | f=`dirname "$QUERY_STRING"` | ||
| 24 | test "$f" = "/" && f="" | ||
| 25 | |||
| 26 | printf "%s" \ | ||
| 27 | $'HTTP/1.0 200 OK\r\n'\ | ||
| 28 | $'Content-type: text/html\r\n\r\n'\ | ||
| 29 | "<html><head><title>Index of $QUERY_STRING</title></head>"$'\r\n'\ | ||
| 30 | "<body><h1>Index of $QUERY_STRING</h1><pre>"$'\r\n'\ | ||
| 31 | $'<table width=100%>\r\n'\ | ||
| 32 | $'<col><col><col width=0*>\r\n'\ | ||
| 33 | $'<tr><th>Name<th align=right>Last modified<th align=right>Size\r\n'\ | ||
| 34 | \ | ||
| 35 | "<tr><td><a href='$f/'>..</a><td><td>"$'\r\n' | ||
| 36 | |||
| 37 | IFS='#' | ||
| 38 | for f in *; do | ||
| 39 | # Guard against empty dirs... | ||
| 40 | test -e "$f" && \ | ||
| 41 | stat -c "%F#%s#%z" "$f" | { | ||
| 42 | read type size cdt junk | ||
| 43 | dir='' | ||
| 44 | test "$type" = "directory" && dir='/' | ||
| 45 | cdt="${cdt//.*}" # no fractional seconds | ||
| 46 | cdt="${cdt// / }" # prevent wrapping around space | ||
| 47 | printf "%s" "<tr><td><a href='$f$dir'>$f</a><td align=right>$cdt<td align=right>$size"$'\r\n' | ||
| 48 | } | ||
| 49 | done | ||
| 50 | printf "</table></pre><hr></body></html>"$'\r\n' | ||