isubmit.dcgi - gopher-lawn - The gopher lawn gopher directory project. Err bitreich.org 70 hgit clone git://bitreich.org/gopher-lawn/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/gopher-lawn/ URL:git://bitreich.org/gopher-lawn/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/gopher-lawn/ bitreich.org 70 1Log /scm/gopher-lawn/log.gph bitreich.org 70 1Files /scm/gopher-lawn/files.gph bitreich.org 70 1Refs /scm/gopher-lawn/refs.gph bitreich.org 70 1Tags /scm/gopher-lawn/tag bitreich.org 70 i--- Err bitreich.org 70 isubmit.dcgi (1223B) Err bitreich.org 70 i--- Err bitreich.org 70 i 1 #!/bin/sh Err bitreich.org 70 i 2 Err bitreich.org 70 i 3 IDX="index.gph" Err bitreich.org 70 i 4 STRIP="/lawn/" Err bitreich.org 70 i 5 Err bitreich.org 70 i 6 search="$1" Err bitreich.org 70 i 7 arguments="$2" Err bitreich.org 70 i 8 host="$3" Err bitreich.org 70 i 9 port="$4" Err bitreich.org 70 i 10 Err bitreich.org 70 i 11 domain=$(printf "%s" "${search}" | sed 's,gopher://,,; s,/.*,,') Err bitreich.org 70 i 12 Err bitreich.org 70 i 13 printf "\n" Err bitreich.org 70 i 14 printf " ~~[[ T H E G O P H E R L A W N ]]\n" Err bitreich.org 70 i 15 printf "\n" Err bitreich.org 70 i 16 printf "_____[[ S_U_B_M_I_T ]]\n" Err bitreich.org 70 i 17 Err bitreich.org 70 i 18 if [ -z "${search}" ]; Err bitreich.org 70 i 19 then Err bitreich.org 70 i 20 printf "Please enter the link to propose for the lawn.\n" Err bitreich.org 70 i 21 printf "[7|Gopher Lawn Submission|/lawn/submit.dcgi|server|port]\n" Err bitreich.org 70 i 22 printf "This will post the link to irc://irc.bitreich.org/#bitreich-lawn\n" Err bitreich.org 70 i 23 else Err bitreich.org 70 i 24 case "${search}" in Err bitreich.org 70 i 25 EQUEST*) Err bitreich.org 70 i 26 printf "Join us on our RMS quest!\n" Err bitreich.org 70 i 27 printf "gophers://bitreich.org/9/memecache/rms-quest.mkv\n" Err bitreich.org 70 i 28 Err bitreich.org 70 i 29 /home/annna/bin/annna-say -c "#bitreich-lawn" \ Err bitreich.org 70 i 30 "${REMOTE_HOST} sent malicious request ${search}" Err bitreich.org 70 i 31 exit 0 Err bitreich.org 70 i 32 ;; Err bitreich.org 70 i 33 *) Err bitreich.org 70 i 34 /home/annna/bin/annna-say -c "#bitreich-lawn" \ Err bitreich.org 70 i 35 "new link proposed: ${search}" Err bitreich.org 70 i 36 Err bitreich.org 70 i 37 printf "Entry submitted\n" Err bitreich.org 70 i 38 printf "\n" Err bitreich.org 70 i 39 printf "Join #bitreich-lawn at irc.bitreich.org to talk about it.\n" Err bitreich.org 70 i 40 printf "\n" Err bitreich.org 70 i 41 printf "Here is what we already have from that same domain:\n" Err bitreich.org 70 i 42 ./search.sh "|${domain}|" Err bitreich.org 70 i 43 printf "\n" Err bitreich.org 70 i 44 printf "[7|Submit Again|/lawn/submit.dcgi|server|port]\n" Err bitreich.org 70 i 45 ;; Err bitreich.org 70 i 46 esac Err bitreich.org 70 i 47 fi Err bitreich.org 70 i 48 Err bitreich.org 70 i 49 printf "\n" Err bitreich.org 70 i 50 printf "[1|Back to the lawn.|/lawn|server|port]\n" Err bitreich.org 70 i 51 Err bitreich.org 70 .