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