 |
submit.dcgi - gopher-lawn - The gopher lawn gopher directory project. |
 |
git clone git://bitreich.org/gopher-lawn/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhf… |
 |
Log |
|
Files |
|
Refs |
|
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]… |
|
22 printf "This will post the link to irc://irc.bitreich.org/#bitre… |
|
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… |
|
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 … |
|
40 printf "\n" |
|
41 printf "Here is what we already have from that same doma… |
|
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 |
