Initial import of htcd system 1.0

Signed-off-by: Henrik Rydberg <rydberg@euromail.se>

1 files changed, 152 insertions, 0 deletions

diff --git a/src/sh/sys.cc b/src/sh/sys.cc
new file mode 100644
index 0000000..b70991b
--- /dev/null
+++ b/src/sh/sys.cc
@@ -0,0 +1,152 @@
+/*************************************************************************
+ *
+ * HTCd - Copyright (C) 1998-2006 Henrik Rydberg
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+ */
+
+#include <sh/htc.h>
+#include <mime/mime.h>
+#include <mt/lookup.h>
+#include <mt/issue.h>
+#include <mt/dates.h>
+#include <unistd.h>
+
+////////////////////////////////////////////
+
+TOK_IMPL(sleep) { sleep(atoi(env[0])); }
+TOK_IMPL(throw) { THROW(env[0]); }
+
+////////////////////////////////////////////
+
+TOK_IMPL(sync) { dbmap::Sync(); }
+
+////////////////////////////////////////////
+
+TOK_IMPL(gethost) {
+  IPnode node; if(Lookup(node,env[0])) out<<node.name; else out<<"UNKNOWN";
+}
+
+////////////////////////////////////////////
+
+TOK_IMPL(mail) {
+  mswrite ms;
+  if(env[0].size()<2) return;
+  ms<<"From: "; encodeHeader(ms,mime_default,env[3]); ms<<" <"<<env[0]<<">\n";
+
+  //if(env[1].nempty()) ms<<"Reply-To: "<<env[1]<<"\n";
+  //!! neat simple hack - never used except as should be
+  if(env[1].nempty()) ms<<"To: "<<env[1]<<"\n";
+
+  ms<<"Date: "<<httpTime(atoi(env[4]))<<"\n";
+  ms<<"Subject: "; encodeHeader(ms,mime_default,env[5]); ms<<"\n";
+  ms<<"MIME-Version: 1.0\n";
+  ms<<"Content-Transfer-Encoding: Quoted-Printable\n";
+  ms<<"Content-Type: "<<env[6]<<"\n";
+  mswrite body; encodeQP(body,env[7]);
+  ms<<"Content-Length: "<<body.str().size()<<"\n";
+  ms<<"\n";
+  ms<<body.str();
+  HTC* htc=Req(env)->htc();
+  if(htc->mailer.size()) {
+    issue_t cmd(htc->mailer+sref(" ")+env[2]);
+    mstream m;
+    cmd.run(m,ms.str());
+    htc->syslog<<"["<<time(0)<<"][mail]["<<env[2]<<"]\n";
+  }
+  else {
+    htc->syslog<<"["<<time(0)<<"][NOT SET]["<<env[2]<<"]\n";
+    htc->syslog<<"-----------------------------------------\n";
+    htc->syslog<<ms.str()<<"\n";
+    htc->syslog<<"=========================================\n";
+  }
+  htc->syslog.flush();
+}
+
+////////////////////////////////////////////
+
+TOK_IMPL(issue) {
+  HTC* htc=Req(env)->htc();
+  htc->syslog<<"["<<time(0)<<"][issue]["<<env[0]<<"]\n";
+  htc->syslog.flush();
+  issue_t cmd(DocPath(env,env[0]));
+  cmd.run(out,env[1]);
+  htc->syslog<<"["<<time(0)<<"][finish]["<<env[0]<<"]\n";
+  htc->syslog.flush();
+}
+
+//////////////////////////////////////////////////////////
+
+void envAddSys(tokmap& T)
+{
+  TOK_ADD(sleep,"x",tok_t::SYSONLY,
+          "%Sleep for seconds\n"
+          "%Syntax: \\sleep{t}\n"
+          "%\n"
+          "%This one works just like the UNIX command\n"
+          );
+  TOK_ADD(throw,"x",tok_t::SYSONLY,
+          "%Throw an exception\n"
+          "%Syntax: \\throw{text}\n"
+          "%\n"
+          "%Throw a, for the HTC system, standard error\n"
+          "%expection, which also many of the built-in\n"
+          "%do. Enables well-behaved error handling.\n"
+          );
+
+  /////////////////////////////////////////////////////////////
+
+  TOK_ADD(sync,"",tok_t::SYSONLY,
+          "%Syncronize all open writable databases\n"
+          "%Syntax: \\sync\n"
+          "%\n"
+          "%Use in crontab only.\n"
+          );
+  
+  /////////////////////////////////////////////////////////////
+
+  TOK_ADD(gethost,"x",tok_t::SYSONLY,
+          "%Lookup hostname on nameserver\n"
+          "%Syntax: \\gethost{IP address}\n"
+          "%\n"
+          "%Normally performed automatically by the server.\n"
+          );
+  
+  /////////////////////////////////////////////////////////////
+  
+  TOK_ADD(mail,"xxxxxxxx",tok_t::SYSONLY,
+          "%System mail\n"
+          "%Syntax: \\mail{from}{replyto}{to}{fromname}{date}{subject}{mime}{body}\n"
+          "%\n"
+          "%This mail command can do almost anything, so be careful!\n"
+          "%Usually there are several htc commands simplifying the use\n"
+          "%of this one.\n"
+          );
+  
+  /////////////////////////////////////////////////////////////
+  
+  TOK_ADD(issue,"xx",tok_t::SYSONLY,
+          "%Issue piped command\n"
+          "%Syntax: \\issue{uri}{stdin}\n"
+          "%\n"
+          "%Pipes stdin to cmd and output stdout.\n"
+          "%An extremely powerful command that may be used\n"
+          "%to run external programs via the web.\n"
+          "%\n"
+          "%Note that the normal uri handling is performed.\n"
+          );
+  
+  /////////////////////////////////////////////////////////////
+}