Send Twitter message on startup containing URL when Twitter is available

git-svn-id: http://svn.cactuscode.org/arrangements/CactusConnect/HTTPD/trunk@238 1faa4e14-9dd3-4be0-9f0e-ffe519881164

2 files changed, 13 insertions, 0 deletions

diff --git a/interface.ccl b/interface.ccl
index 58c695e..f846f56 100644
--- a/interface.ccl
+++ b/interface.ccl
@@ -10,3 +10,7 @@ INCLUDE HEADER: Auth.h in http_Auth.h
 INCLUDE HEADER: Cookies.h in http_Cookies.h
 INCLUDE HEADER: Steer.h in http_Steer.h
 INCLUDE HEADER: Content.h in http_Content.h
+
+CCTK_INT FUNCTION Send_Twitter_Msg(CCTK_STRING IN msg)
+USES FUNCTION Send_Twitter_Msg
+
diff --git a/src/Sockets.c b/src/Sockets.c
index 33401ee..7d6d709 100644
--- a/src/Sockets.c
+++ b/src/Sockets.c
@@ -158,6 +158,15 @@ int HTTP_SetupServer(int port, int queue_size, int hunt)
   httpport = hunt ? realport : (unsigned long int) port;
 
   printf("Server started on http://%s:%lu/\n", hostname, httpport);
+  if (CCTK_IsFunctionAliased("Send_Twitter_Msg"))
+  {
+    char msg[141];
+    char *this_user = getenv("USER");
+    if (!this_user) this_user = "unknown";
+    snprintf(msg, 140, "HTTPD by %s on http://%s:%lu/\n", this_user, hostname, httpport);
+    Send_Twitter_Msg(msg);
+  }
+  else printf("Not announcing location via Twitter.\n");
 
   minsock = sock;
   maxsock = sock;