cgi-fcgi-perl: skeleton, compiles

diff --git a/.gitignore b/.gitignore
index 6fdcfb84e9dd59755e7d1fd39763f4b5b911ee4c..b08c589cf42785df7dc566284b1159bdd6064e89 100644 (file)
--- a/.gitignore
+++ b/.gitignore
@@ -16,6 +16,7 @@ cprogs/watershed
 cprogs/watershed.txt
 cprogs/rcopy-repeatedly
 cprogs/acctdump
+cprogs/cgi-fcgi-perl
 
 debian/tmp
 debian/sv-*

diff --git a/cprogs/Makefile b/cprogs/Makefile
index cd82ab1bf55cbdc43881de5b0d1ab3685737d727..77e14e22204e0cdb090fb930b8e65d49feeac4b1 100644 (file)
--- a/cprogs/Makefile
+++ b/cprogs/Makefile
@@ -28,7 +28,8 @@ include ../settings.make
 RWBUFFER_SIZE_MB=16
 
 PROGRAMS=              readbuffer writebuffer with-lock-ex xbatmon-simple \
-                       summer watershed rcopy-repeatedly xduplic-copier
+                       summer watershed rcopy-repeatedly xduplic-copier \
+                       cgi-fcgi-perl
 SUIDSBINPROGRAMS=      really
 DAEMONS=               trivsoundd
 MAN1PAGES=             readbuffer.1 writebuffer.1 with-lock-ex.1 \
@@ -57,6 +58,7 @@ writebuffer:                  writebuffer.o   wrbufcore.o     rwbuffer.o
 trivsoundd:                    trivsoundd.o    wrbufcore.o     rwbuffer.o 
 really:                                really.o myopt.o
 acctdump:                      acctdump.o      myopt.o
+cgi-fcgi-perl:                 cgi-fcgi-perl.o myopt.o
 
 acctdump.o really.o myopt.o rcopy-repeatedly.o: myopt.h
 readbuffer.o writebuffer.o rwbuffer.o wrbufcore.o trivsoundd.o:        rwbuffer.h

diff --git a/cprogs/cgi-fcgi-perl.c b/cprogs/cgi-fcgi-perl.c
index 62c5831f7a2e9d00f6e218252c997270f3131f91..037bd8644e271675b6817b019c7af4d23cc97dac 100644 (file)
--- a/cprogs/cgi-fcgi-perl.c
+++ b/cprogs/cgi-fcgi-perl.c
@@ -8,7 +8,7 @@
  *
  * Options:
  *
- *  -M<ident>
+ *  -g<ident>
  *          Use <ident> rather than hex(sha256(<script>))
  *          as the basename of the leafname of the fcgi rendezvous
  *          socket.  If <ident> contains only hex digit characters it
@@ -55,3 +55,41 @@
  *  - run  cgi-fcgi -connect SOCKET SCRIPT
  */
 
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <errno.h>
+
+#include "myopt.h"
+
+static const char *ident;
+static int numservers;
+
+static void diee(const char *m) {
+  fprintf(stderr,"cgi-fcgi-: error: %s failed: %s\n", m, strerror(errno));
+  exit(127);
+}
+
+static void fusagemessage(FILE *f) {
+  fprintf(f, "usage: #!/usr/bin/cgi-fcgi-perl [<options>]\n");
+}
+
+void usagemessage(void) { fusagemessage(stderr); }
+
+static void of_help(const struct cmdinfo *ci, const char *val) {
+  fusagemessage(stdout);
+  if (ferror(stdout)) diee("write usage message to stdout");
+  exit(0);
+}
+
+static const struct cmdinfo cmdinfos[]= {
+  { "help",   0, .call= of_help               },
+  { 0, 'g',   1, .sassignto= &ident           },
+  { 0, 'M',   1, .iassignto= &numservers      },
+  { 0 }
+};
+
+int main(int argc, const char *const *argv) {
+  myopt(&argv, cmdinfos);
+  exit(0);
+}