From 74958ba8f6bf41322ea5ce94937cf3adb71fc40b Mon Sep 17 00:00:00 2001 From: Stefan Ritt Date: Fri, 21 Dec 2001 15:27:46 +0000 Subject: [PATCH] Removed old versions SVN revision: 7 --- elog.c | 533 ---- elogd.c | 8273 ------------------------------------------------------- 2 files changed, 8806 deletions(-) delete mode 100755 elog.c delete mode 100755 elogd.c diff --git a/elog.c b/elog.c deleted file mode 100755 index 4cac020f..00000000 --- a/elog.c +++ /dev/null @@ -1,533 +0,0 @@ -/********************************************************************\ - - Name: elog.c - Created by: Stefan Ritt - - Contents: Electronic logbook utility - - $Log$ - Revision 1.1 2001/12/21 15:14:04 midas - Initial revision - - Revision 1.23 2001/12/21 12:33:04 midas - Fixed bug with single logbook and user authentication, thanks to Glenn Horton-Smith - - Revision 1.22 2001/12/05 10:02:50 midas - Fixed -Wall compiler warning - - Revision 1.21 2001/12/05 09:58:57 midas - Fixed small bug - - Revision 1.20 2001/11/15 11:49:46 midas - Added -u flag for user name/password - - Revision 1.19 2001/11/14 15:35:37 midas - Fix error under Cygwin with O_BINARY - - Revision 1.18 2001/11/06 15:52:17 midas - Added general attributes - - Revision 1.17 2001/10/12 08:40:02 midas - Fixed bug when submitting text files and an additional (garbage) lines was - added - - Revision 1.16 2001/06/19 10:55:40 midas - Variable number of attachments, revised attachment editing - - Revision 1.15 2001/05/23 13:15:34 midas - Fixed bug with category - - Revision 1.14 2001/05/23 13:04:19 midas - Added password functionality - - Revision 1.13 2001/05/23 10:48:21 midas - elog can be used with elogd now - - Revision 1.12 2000/09/01 15:49:26 midas - Elog is now submitted via mhttpd - - Revision 1.1 1999/09/14 15:15:27 midas - Initial revision - - -\********************************************************************/ - -#include -#include -#include -#include -#include -#include - -#ifdef _MSC_VER -#include -#include -#else -#include -#include -#include -#include -#include -#include -#define closesocket(s) close(s) -#ifndef O_BINARY -#define O_BINARY 0 -#endif -#endif - -typedef int INT; - -#define MAX_ATTACHMENTS 10 -#define NAME_LENGTH 100 -#define MAX_N_ATTR 20 - -int verbose; - -/*------------------------------------------------------------------*/ - -char *map= "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"; - -void base64_encode(char *s, char *d) -{ -unsigned int t, pad; - - pad = 3 - strlen(s) % 3; - while (*s) - { - t = (*s++) << 16; - if (*s) - t |= (*s++) << 8; - if (*s) - t |= (*s++) << 0; - - *(d+3) = map[t & 63]; - t >>= 6; - *(d+2) = map[t & 63]; - t >>= 6; - *(d+1) = map[t & 63]; - t >>= 6; - *(d+0) = map[t & 63]; - - d += 4; - } - *d = 0; - while (pad--) - *(--d) = '='; -} - -/*------------------------------------------------------------------*/ - -void sgets(char *string, int size) -{ -char *p; - - do - { - p = fgets(string, size, stdin); - } while (p == NULL); - - if (strlen(p) > 0 && p[strlen(p)-1] == '\n') - p[strlen(p)-1] = 0; -} - -/*------------------------------------------------------------------*/ - -char request[600000], response[10000], content[600000]; - -INT submit_elog(char *host, int port, char *experiment, char *passwd, - char *uname, char *upwd, - char attrib_name[MAX_N_ATTR][NAME_LENGTH], - char attrib[MAX_N_ATTR][NAME_LENGTH], - int n_attr, - char *text, - char afilename[MAX_ATTACHMENTS][256], - char *buffer[MAX_ATTACHMENTS], - INT buffer_size[MAX_ATTACHMENTS]) -/********************************************************************\ - - Routine: submit_elog - - Purpose: Submit an ELog entry - - Input: - char *host Host name where ELog server runs - in port ELog server port number - char *passwd Write password - char *uname User name - char *upwd User password - int run Run number - char *attrib_name Attribute names - char *attrib Attribute values - char *text Message text - - char afilename[] File names of attachments - char *buffer[] Attachment contents - INT buffer_size[] Size of buffer in bytes - - Function value: - EL_SUCCESS Successful completion - -\********************************************************************/ -{ -int status, sock, i, n, header_length, content_length; -struct hostent *phe; -struct sockaddr_in bind_addr; -char host_name[256], boundary[80], str[80], *p; - -#if defined( _MSC_VER ) - { - WSADATA WSAData; - - /* Start windows sockets */ - if ( WSAStartup(MAKEWORD(1,1), &WSAData) != 0) - return -1; - } -#endif - - /* get local host name */ - gethostname(host_name, sizeof(host_name)); - - phe = gethostbyname(host_name); - if (phe == NULL) - { - perror("Cannot retrieve host name"); - return -1; - } - phe = gethostbyaddr(phe->h_addr, sizeof(int), AF_INET); - if (phe == NULL) - { - perror("Cannot retrieve host name"); - return -1; - } - - /* if domain name is not in host name, hope to get it from phe */ - if (strchr(host_name, '.') == NULL) - strcpy(host_name, phe->h_name); - - /* create socket */ - if ((sock = socket(AF_INET, SOCK_STREAM, 0)) == -1) - { - perror("cannot create socket"); - return -1; - } - - /* compose remote address */ - memset(&bind_addr, 0, sizeof(bind_addr)); - bind_addr.sin_family = AF_INET; - bind_addr.sin_addr.s_addr = 0; - bind_addr.sin_port = htons((unsigned short)port); - - phe = gethostbyname(host); - if (phe == NULL) - { - perror("cannot get host name"); - return -1; - } - memcpy((char *)&(bind_addr.sin_addr), phe->h_addr, phe->h_length); - - /* connect to server */ - status = connect(sock, (void *) &bind_addr, sizeof(bind_addr)); - if (status != 0) - { - printf("Cannot connect to host %s, port %d\n", host, port); - return -1; - } - - if (verbose) - printf("Successfully connected to host %s, port %d\n", host, port); - - /* compose content */ - strcpy(boundary, "---------------------------7d0bf1a60904bc"); - strcpy(content, boundary); - strcat(content, "\r\nContent-Disposition: form-data; name=\"cmd\"\r\n\r\nSubmit\r\n"); - - if (uname[0]) - sprintf(content+strlen(content), - "%s\r\nContent-Disposition: form-data; name=\"unm\"\r\n\r\n%s\r\n", boundary, uname); - - if (upwd[0]) - { - base64_encode(upwd, str); - sprintf(content+strlen(content), - "%s\r\nContent-Disposition: form-data; name=\"upwd\"\r\n\r\n%s\r\n", boundary, str); - } - - if (experiment[0]) - sprintf(content+strlen(content), - "%s\r\nContent-Disposition: form-data; name=\"exp\"\r\n\r\n%s\r\n", boundary, experiment); - - for (i=0 ; i 0) - { - i = recv(sock, response+n, 10000, 0); - if (i > 0) - n += i; - } - response[n] = 0; - - closesocket(sock); - - if (verbose) - { - printf("Response received:\n"); - puts(response); - } - - /* check response status */ - if (strstr(response, "302 Found")) - printf("Message successfully transmitted\n"); - else if (strstr(response, "Logbook Selection")) - printf("No logbook specified\n\n"); - else if (strstr(response, "Enter password")) - printf("Missing or invalid password\n"); - else if (strstr(response, "login")) - printf("Missing or invalid user name/password\n"); - else - printf("Error transmitting message\n"); - - return 1; -} - -/*------------------------------------------------------------------*/ - -int main(int argc, char *argv[]) -{ -char str[1000], text[10000], uname[80], upwd[80]; -char host_name[256], logbook[32], textfile[256], password[80]; -char *buffer[MAX_ATTACHMENTS], attachment[MAX_ATTACHMENTS][256]; -INT att_size[MAX_ATTACHMENTS]; -INT i, n, fh, n_att, n_attr, size, port; -char attr_name[MAX_N_ATTR][NAME_LENGTH], attrib[MAX_N_ATTR][NAME_LENGTH]; - - text[0] = textfile[0] = uname[0] = upwd[0] = 0; - host_name[0] = logbook[0] = password[0] = n_att = n_attr = 0; - port = 80; - for (i=0 ; i= argc || argv[i+1][0] == '-') - goto usage; - if (argv[i][1] == 'h') - strcpy(host_name, argv[++i]); - else if (argv[i][1] == 'p') - port = atoi(argv[++i]); - else if (argv[i][1] == 'l') - strcpy(logbook, argv[++i]); - else if (argv[i][1] == 'w') - strcpy(password, argv[++i]); - else if (argv[i][1] == 'u') - { - strcpy(uname, argv[++i]); - strcpy(upwd, argv[++i]); - } - else if (argv[i][1] == 'a') - { - strcpy(str, argv[++i]); - if (strchr(str, '=')) - { - strcpy(attrib[n_attr], strchr(str, '=')+1); - *strchr(str, '=') = 0; - strcpy(attr_name[n_attr], str); - n_attr++; - } - else - { - printf("Error: Attributes must be supplied in the form \"-a =\".\n"); - return 0; - } - } - else if (argv[i][1] == 'f') - strcpy(attachment[n_att++], argv[++i]); - else if (argv[i][1] == 'm') - strcpy(textfile, argv[++i]); - else - { - usage: - printf("\nusage: elog -h [-p port]\n"); - printf(" [-l logbook/experiment]\n"); - printf(" [-v] for verbose output\n"); - printf(" [-w password] write password defined on server\n"); - printf(" [-u username password] user name and password\n"); - printf(" [-f ] (up to %d times)\n", MAX_ATTACHMENTS); - printf(" -a = (up to %d times)\n", MAX_N_ATTR); - printf(" -m ] | \n"); - printf("\nArguments with blanks must be enclosed in quotes\n"); - printf("The elog message can either be submitted on the command line\n"); - printf("or in a file with the -m flag. Multiple attributes and attachments\n"); - printf("can be supplied\n"); - return 0; - } - } - else - strcpy(text, argv[i]); - } - } - - if (host_name[0] == 0 || - n_attr == 0 || - (text[0] == 0 && textfile[0] == 0)) - goto usage; - - /*---- open text file ----*/ - - if (textfile[0]) - { - fh = open(textfile, O_RDONLY | O_BINARY); - if (fh < 0) - { - printf("Message file \"%s\" does not exist.\n", textfile); - return 0; - } - - size = lseek(fh, 0, SEEK_END); - lseek(fh, 0, SEEK_SET); - - if (size > sizeof(text)-1) - { - printf("Message file \"%s\" is too long (%d bytes max).\n", textfile, sizeof(text)); - return 0; - } - - memset(text, 0, sizeof(text)); - i = read(fh, text, size); - if (i < size) - { - printf("Cannot fully read message file \"%s\".\n", textfile); - return 0; - } - - close(fh); - } - - /*---- open attachment file ----*/ - - for (i = 0 ; i 500*1024) - { - printf("Attachment file \"%s\" is too long (500k max).\n", attachment[i]); - return 0; - } - - n = read(fh, buffer[i], att_size[i]); - if (n < att_size[i]) - { - printf("Cannot fully read attachment file \"%s\".\n", attachment[i]); - return 0; - } - buffer[i][n] = 0; - - close(fh); - } - - /* now submit message */ - submit_elog(host_name, port, logbook, password, - uname, upwd, - attr_name, attrib, n_attr, text, - attachment, buffer, att_size); - - for (i=0 ; i = %03d" - - Revision 1.96 2001/12/14 14:24:45 midas - Couple of changes, see CHANGELOG - - Revision 1.95 2001/12/14 12:48:44 midas - Fixed concatenation of lines in password file, thanks to Michael Buselli - - Revision 1.94 2001/12/14 11:47:01 midas - Display active URLs also in find page - - Revision 1.93 2001/12/13 13:05:18 midas - Added missing "reply" etc. translations - - Revision 1.92 2001/12/12 16:22:25 midas - Added "HTML default" option, fixed "reply" link display - - Revision 1.91 2001/12/12 16:01:18 midas - Fixed wrong help file name and preceeding " | " for MOptions - - Revision 1.90 2001/12/11 13:41:31 midas - Added "MOptions" multiple options - - Revision 1.89 2001/12/11 10:20:58 midas - Changed the way "language" is interpreted, no need to restart elogd after - language change any more. - - Revision 1.88 2001/12/11 09:39:28 midas - Format "entry date" according to "date format" - - Revision 1.87 2001/12/11 09:14:51 midas - Added elog language files - - Revision 1.86 2001/12/10 09:18:09 midas - Call tzset() only once - - Revision 1.85 2001/12/10 09:06:57 midas - Fixed memeory leak with ss_file_find - - Revision 1.84 2001/12/07 13:02:45 midas - Fixed crash with language file in Unix format - - Revision 1.83 2001/12/07 11:41:19 midas - Made "move to" and "copy to" work with other languages - - Revision 1.82 2001/12/07 10:05:30 midas - Fixed major bug with memcpy(rem_addr...), many thanks to Frank Schnell! - - Revision 1.81 2001/12/07 09:15:37 midas - Added Per-Session cookies (when expriation == 0) - - Revision 1.80 2001/12/06 15:47:24 midas - First version of localization - - Revision 1.79 2001/12/06 09:22:36 midas - Fixed bug with "full_name" - - Revision 1.78 2001/12/05 16:01:05 midas - Removed DWORD, changed (int)p1-(int)p2 to (int)(p1-p2) for True64 - - Revision 1.77 2001/12/05 10:37:09 midas - Removed most -Wall compiler warnings - - Revision 1.76 2001/12/04 14:43:53 midas - Changed global "Welcome page" into "Selection page" - - Revision 1.75 2001/12/04 12:13:21 midas - Fixed "Date format" problem in short listings - - Revision 1.74 2001/12/04 08:53:03 midas - Fixed bugs with resubmit, display locked attributes as text only, added - -h flag for multi-homes hosts thanks to Scott Erickson - - Revision 1.73 2001/11/21 16:26:29 midas - Removed "Revision date:" from edit form (should better be done via an - attribute, preset to $date) - - Revision 1.72 2001/11/21 15:23:48 midas - Fixed bug with "Welcome page" - - Revision 1.71 2001/11/21 15:03:35 midas - Added "resubmit as new entry" checkbox - - Revision 1.70 2001/11/21 13:31:47 midas - Made "date format" also work in find result page - - Revision 1.69 2001/11/21 08:21:42 midas - Specify %20 in menu commands explicitly - - Revision 1.68 2001/11/20 16:14:37 midas - Corrected "data:" format in sendmail - - Revision 1.67 2001/11/20 12:24:36 midas - Add more spaces between attachments in find result page - - Revision 1.66 2001/11/20 09:16:33 midas - Added "Last x" in "find menu commands" - - Revision 1.65 2001/11/19 17:14:25 midas - Made "bottom text" work with find page and added "find menu commands" - - Revision 1.64 2001/11/19 11:14:45 midas - Added "default" options, "use email from" and fixed a few small bugs - - Revision 1.63 2001/11/16 15:29:36 midas - First fine-tuning for GNU software directory - - Revision 1.62 2001/11/15 16:08:07 midas - Logout takes you back to the logbook selection page - - Revision 1.61 2001/11/15 11:54:25 midas - Version 1.2.3 - - Revision 1.60 2001/11/14 10:51:02 midas - Fixed bug with resubmission of attachments - - Revision 1.59 2001/11/14 08:58:56 midas - Version 1.2.2 - - Revision 1.58 2001/11/13 14:17:09 midas - More new features - - Revision 1.57 2001/11/12 15:22:27 midas - Fixed bug with admin password and checking of allowed commands - - Revision 1.56 2001/11/12 15:08:58 midas - Changes made in hospital - - Revision 1.55 2001/11/06 15:52:02 midas - Fixed small bug - - Revision 1.54 2001/11/05 16:31:27 midas - Added "page title" and changed "use email subject" - - Revision 1.53 2001/11/05 14:44:17 midas - Fixed problem with long configuration files - - Revision 1.52 2001/11/05 12:37:36 midas - Version 1.2.1 - - Revision 1.51 2001/11/05 12:36:15 midas - Added for Unix include files - - Revision 1.50 2001/11/05 12:33:30 midas - Fixed bugs concerning edit/reply/delete and admin password - - Revision 1.49 2001/10/31 11:12:02 midas - Changes made at home... - - Revision 1.48 2001/10/19 14:36:59 midas - Added "Display email recipients", "suppress default = 2", moved SMTP host to - [global] - - Revision 1.47 2001/10/19 11:34:07 midas - Added "Welcome title" for logbook selection page - - Revision 1.46 2001/10/19 10:33:02 midas - Added "boolean" attributes, "filtered browsing" and "display search" - - Revision 1.45 2001/10/18 13:06:32 midas - Added attributes, IP checking, reverse search, copy/move, highlight in search - - Revision 1.44 2001/10/12 10:48:27 midas - Version 1.1.3 - - Revision 1.43 2001/10/12 10:46:05 midas - Fixed bug which caused problems with the "find" function - - Revision 1.42 2001/10/12 07:18:47 midas - - Fixed CRLF problem with sendmail, thanks to Michael Jones - - Fixed problem that first logbook page can be viewed even with read PW - - Fixed problem that passwords only worked with -k flag - - Revision 1.41 2001/10/09 10:39:55 midas - Version 1.1.2 - - Revision 1.40 2001/10/05 13:35:50 midas - Implemented keep-alive - - Revision 1.39 2001/08/30 10:58:02 midas - Fixed bugs with Opera browser - - Revision 1.38 2001/08/29 07:53:49 midas - Use smaller font for printable search result display - - Revision 1.37 2001/08/28 11:41:49 midas - Optimized attachment display - - Revision 1.36 2001/08/28 11:36:18 midas - Treat configuration directory correctly - - Revision 1.35 2001/08/28 10:42:58 midas - Extract path for theme file from configuration file - - Revision 1.34 2001/08/28 10:20:59 midas - Changed default colors - - Revision 1.33 2001/08/28 08:32:00 midas - Major changes for revision 1.1.0 - - Revision 1.32 2001/08/14 09:37:22 midas - Mail notification did not contain host name. Fixed. - - Revision 1.31 2001/08/09 13:51:42 midas - Added "suppress default" flag - - Revision 1.30 2001/08/09 07:44:31 midas - Changed from absolute pathnames to relative pathnames - - Revision 1.29 2001/08/08 14:26:44 midas - Fixed bug which crashes server on long (>80 chars) attachments - - Revision 1.28 2001/08/08 11:02:11 midas - Added separate password for message deletion - Authors are displayed in a drop-down box on the query page - A button "suppress Email notification" has been added - - Revision 1.27 2001/08/07 13:26:27 midas - Increase size of author, type and cat. list to 100 - - Revision 1.26 2001/08/07 11:01:44 midas - Fixed bugs with strtok - - Revision 1.25 2001/08/07 08:03:40 midas - Fixed bug in el_retrieve in decoding attachments - - Revision 1.24 2001/08/07 07:10:03 midas - Fixed problem with emails - - Revision 1.23 2001/08/06 12:44:15 midas - Fixed small bug preventing the selection list for multiple logbooks - - Revision 1.22 2001/08/03 12:06:12 midas - Fixed bug where categories were wrong when multiple logbooks are used - - Revision 1.21 2001/08/03 06:44:48 midas - Changed mail notification author from "name@host" to "name from host" - - Revision 1.20 2001/08/02 12:30:00 midas - Fixed unix bug - - Revision 1.19 2001/08/02 12:26:43 midas - Fine-tunes mail facility, fixed a few bugs - - Revision 1.18 2001/08/02 11:45:47 midas - Added mail facility and author list - - Revision 1.17 2001/07/26 10:37:32 midas - Removed "status" button on query result - - Revision 1.16 2001/07/26 10:25:54 midas - Fixed bug which omitted logbook name if only one is defined in elogd.cfg - - Revision 1.15 2001/07/26 09:31:07 midas - Added URL = entry in elogd.cfg to support secure connections over stunnel - - Revision 1.14 2001/07/24 10:46:09 midas - Use subject as title, make http://xxx text aktive links - - Revision 1.13 2001/07/06 12:34:13 midas - Incresed cookie expiration from 1h to 1d - - Revision 1.12 2001/06/20 08:33:14 midas - Added "summary on last" - - Revision 1.11 2001/06/19 10:55:40 midas - Variable number of attachments, revised attachment editing - - Revision 1.10 2001/06/15 09:13:30 midas - Display "<" and ">" correctly - - Revision 1.9 2001/06/15 08:49:19 midas - Fixed bug when query gave no results if no message from yesterday - - Revision 1.8 2001/05/23 13:15:34 midas - Fixed bug with category - - Revision 1.7 2001/05/23 13:06:03 midas - Added "allow edit" functionality - - Revision 1.6 2001/05/23 10:48:48 midas - Added version - - Revision 1.5 2001/05/23 08:16:41 midas - Fixed bug when POST request comes in two blocks - - Revision 1.4 2001/05/22 11:32:59 midas - Added Help button - - Revision 1.3 2001/05/22 09:13:47 midas - Rearranged configuration file - - Revision 1.2 2001/05/21 15:28:45 midas - Implemented multiple logbooks - - Revision 1.1 2001/05/18 13:31:33 midas - Initial revision - -\********************************************************************/ - -/* Version of ELOG */ -#define VERSION "1.3.2" - -#include -#include -#include -#include -#include -#include - -#ifdef _MSC_VER -#define OS_WINNT - -#define DIR_SEPARATOR '\\' -#define DIR_SEPARATOR_STR "\\" - -#define snprintf _snprintf - -#include -#include -#include -#else - -#define OS_UNIX - -#define TRUE 1 -#define FALSE 0 - -#define DIR_SEPARATOR '/' -#define DIR_SEPARATOR_STR "/" - -#define __USE_XOPEN /* needed for crypt() */ - -typedef int BOOL; - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include - -#define closesocket(s) close(s) -#ifndef O_BINARY -#define O_BINARY 0 -#endif -#endif - -typedef int INT; - -#define TELL(fh) lseek(fh, 0, SEEK_CUR) - -#define NAME_LENGTH 256 -#define SUCCESS 1 - -#define EL_SUCCESS 1 -#define EL_FIRST_MSG 2 -#define EL_LAST_MSG 3 -#define EL_FILE_ERROR 4 - -#define WEB_BUFFER_SIZE 2000000 - -char return_buffer[WEB_BUFFER_SIZE]; -int strlen_retbuf; -int keep_alive; -char header_buffer[1000]; -int return_length; -char host_name[256]; -char elogd_url[256]; -char elogd_full_url[256]; -char logbook[256]; -char logbook_enc[256]; -char data_dir[256]; -char cfg_file[256]; -char cfg_dir[256]; -char tcp_hostname[256]; - -#define MAX_GROUPS 32 -#define MAX_PARAM 100 -#define MAX_ATTACHMENTS 10 -#define MAX_N_LIST 100 -#define MAX_N_ATTR 50 -#define VALUE_SIZE 256 -#define PARAM_LENGTH 256 -#define TEXT_SIZE 50000 -#define MAX_PATH_LENGTH 256 - -char _param[MAX_PARAM][PARAM_LENGTH]; -char _value[MAX_PARAM][VALUE_SIZE]; -char _text[TEXT_SIZE]; -char *_attachment_buffer[MAX_ATTACHMENTS]; -INT _attachment_size[MAX_ATTACHMENTS]; -struct in_addr rem_addr; -INT _sock; -BOOL verbose, use_keepalive; - -char *mname[] = { - "January", - "February", - "March", - "April", - "May", - "June", - "July", - "August", - "September", - "October", - "November", - "December" -}; - -char type_list[MAX_N_LIST][NAME_LENGTH] = { - "Routine", - "Other" -}; - -char category_list[MAX_N_LIST][NAME_LENGTH] = { - "General", - "Other", -}; - -char author_list[MAX_N_LIST][NAME_LENGTH] = { - "" -}; - -/* attribute flags */ -#define AF_REQUIRED (1<<0) -#define AF_LOCKED (1<<1) -#define AF_MULTI (1<<2) -#define AF_FIXED (1<<3) - -char attr_list[MAX_N_ATTR][NAME_LENGTH]; -char attr_options[MAX_N_ATTR][MAX_N_LIST][NAME_LENGTH]; -int attr_flags[MAX_N_ATTR]; - -char attr_list_default[][NAME_LENGTH] = { - "Author", - "Type", - "Category", - "Subject", - "" -}; - -char attr_options_default[][MAX_N_LIST][NAME_LENGTH] = { - { "" }, - { "Routine", "Other" }, - { "General", "Other" }, - { "" } -}; - -int attr_flags_default[] = { - AF_REQUIRED, - 0, - 0, - 0 -}; - - -struct { - char ext[32]; - char type[32]; - } filetype[] = { - - { ".JPG", "image/jpeg" }, - { ".GIF", "image/gif" }, - { ".PNG", "image/png" }, - { ".PS", "application/postscript" }, - { ".EPS", "application/postscript" }, - { ".HTML", "text/html" }, - { ".HTM", "text/html" }, - { ".XLS", "application/x-msexcel" }, - { ".DOC", "application/msword" }, - { ".PDF", "application/pdf" }, - { ".TXT", "text/plain" }, - { ".ASC", "text/plain" }, - { ".ZIP", "application/x-zip-compressed" }, - { "" }, -}; - -int scan_attributes(char *logbook); - -/*---- Funcions from the MIDAS library -----------------------------*/ - -BOOL equal_ustring(char *str1, char *str2) -{ - if (str1 == NULL && str2 != NULL) - return FALSE; - if (str1 != NULL && str2 == NULL) - return FALSE; - if (str1 == NULL && str2 == NULL) - return TRUE; - - while (*str1) - if (toupper(*str1++) != toupper(*str2++)) - return FALSE; - - if (*str2) - return FALSE; - - return TRUE; -} - -/*-------------------------------------------------------------------*/ - -void strsubst(char *string, char name[][NAME_LENGTH], char value[][NAME_LENGTH], int n) -/* subsitute "$name" with value corresponding to name */ -{ -int i, j; -char tmp[1000], str[256], uattr[256], *ps, *pt, *p; - - pt = tmp; - ps = string; - for (p = strchr(ps, '$') ; p != NULL ; p = strchr(ps, '$')) - { - /* copy leading characters */ - j = (int)(p-ps); - memcpy(pt, ps, j); - pt += j; - p++; - - /* extract name */ - strcpy(str, p); - for (j=0 ; j<(int)strlen(str) ; j++) - str[j] = toupper(str[j]); - - /* search name */ - for (i=0 ; i 0) - { - FD_ZERO(&readfds); - FD_SET(sock, &readfds); - - timeout.tv_sec = millisec / 1000; - timeout.tv_usec = (millisec % 1000) * 1000; - - select(FD_SETSIZE, (void *) &readfds, NULL, NULL, (void *) &timeout); - - if (!FD_ISSET(sock, &readfds)) - break; - } - - i = recv(sock, buffer+n, 1, 0); - - if (i<=0) - break; - - n++; - - if (n >= buffer_size) - break; - - } while (buffer[n-1] && buffer[n-1] != 10); - - return n-1; -} - - -INT sendmail(char *smtp_host, char *from, char *to, char *subject, char *text) -{ -struct sockaddr_in bind_addr; -struct hostent *phe; -int s; -char buf[80]; -char str[10000]; -time_t now; -struct tm *ts; - - if (verbose) - printf("\n\nEmail from %s to %s, SMTP host %s:\n", from, to, smtp_host); - - /* create a new socket for connecting to remote server */ - s = socket(AF_INET, SOCK_STREAM, 0); - if (s == -1) - return -1; - - /* connect to remote node port 25 */ - memset(&bind_addr, 0, sizeof(bind_addr)); - bind_addr.sin_family = AF_INET; - bind_addr.sin_port = htons((short) 25); - - phe = gethostbyname(smtp_host); - if (phe == NULL) - return -1; - memcpy((char *)&(bind_addr.sin_addr), phe->h_addr, phe->h_length); - - if (connect(s, (void *) &bind_addr, sizeof(bind_addr)) < 0) - { - closesocket(s); - return -1; - } - - recv_string(s, str, sizeof(str), 10000); - if (verbose) puts(str); - - snprintf(str, sizeof(str) - 1, "HELO %s\r\n", host_name); - send(s, str, strlen(str), 0); - if (verbose) puts(str); - recv_string(s, str, sizeof(str), 3000); - if (verbose) puts(str); - - snprintf(str, sizeof(str) - 1, "MAIL FROM: <%s>\r\n", from); - send(s, str, strlen(str), 0); - if (verbose) puts(str); - recv_string(s, str, sizeof(str), 3000); - if (verbose) puts(str); - - snprintf(str, sizeof(str) - 1, "RCPT TO: <%s>\r\n", to); - send(s, str, strlen(str), 0); - if (verbose) puts(str); - recv_string(s, str, sizeof(str), 3000); - if (verbose) puts(str); - - snprintf(str, sizeof(str) - 1, "DATA\r\n"); - send(s, str, strlen(str), 0); - if (verbose) puts(str); - recv_string(s, str, sizeof(str), 3000); - if (verbose) puts(str); - - snprintf(str, sizeof(str) - 1, "To: %s\r\nFrom: %s\r\nSubject: %s\r\n", to, from, subject); - send(s, str, strlen(str), 0); - if (verbose) puts(str); - - time(&now); - ts = localtime(&now); - strftime(buf, sizeof(buf), "%a, %d %b %Y %H:%M:%S", ts); - snprintf(str, sizeof(str) - 1, "Date: %s %+03d%02d\r\n\r\n", buf, (int) (-timezone/3600), (int) ((abs(timezone)/60) % 60)); - send(s, str, strlen(str), 0); - if (verbose) puts(str); - - snprintf(str, sizeof(str) - 1, "%s\r\n.\r\n", text); - send(s, str, strlen(str), 0); - if (verbose) puts(str); - recv_string(s, str, sizeof(str), 3000); - if (verbose) puts(str); - - snprintf(str, sizeof(str) - 1, "QUIT\r\n"); - send(s, str, strlen(str), 0); - if (verbose) puts(str); - recv_string(s, str, sizeof(str), 3000); - if (verbose) puts(str); - - closesocket(s); - - return 1; -} - -/*-------------------------------------------------------------------*/ - -INT ss_daemon_init() -{ -#ifdef OS_UNIX - - /* only implemented for UNIX */ - int i, fd, pid; - - if ( (pid = fork()) < 0) - return 0; - else if (pid != 0) - exit(0); /* parent finished */ - - /* child continues here */ - - /* try and use up stdin, stdout and stderr, so other - routines writing to stdout etc won't cause havoc. Copied from smbd */ - for (i=0 ; i<3 ; i++) - { - close(i); - fd = open("/dev/null", O_RDWR, 0); - if (fd < 0) - fd = open("/dev/null", O_WRONLY, 0); - if (fd < 0) - { - printf("Can't open /dev/null"); - return 0; - } - if (fd != i) - { - printf("Did not get file descriptor"); - return 0; - } - } - - setsid(); /* become session leader */ - chdir("/"); /* change working direcotry (not on NFS!) */ - umask(0); /* clear our file mode createion mask */ - -#endif - - return SUCCESS; -} - -/*------------------------------------------------------------------*/ - -/* Parameter extraction from configuration file similar to win.ini */ - -char *cfgbuffer; - -int getcfg(char *group, char *param, char *value) -{ -char str[10000], *p, *pstr; -int length; -int fh; - - value[0] = 0; - - /* read configuration file on init */ - if (!cfgbuffer) - { - fh = open(cfg_file, O_RDONLY | O_BINARY); - if (fh < 0) - return 0; - length = lseek(fh, 0, SEEK_END); - lseek(fh, 0, SEEK_SET); - cfgbuffer = malloc(length+1); - if (cfgbuffer == NULL) - { - close(fh); - return 0; - } - read(fh, cfgbuffer, length); - cfgbuffer[length] = 0; - close(fh); - } - - /* search group */ - p = cfgbuffer; - do - { - if (*p == '[') - { - p++; - pstr = str; - while (*p && *p != ']' && *p != '\n') - *pstr++ = *p++; - *pstr = 0; - if (equal_ustring(str, group)) - { - /* search parameter */ - p = strchr(p, '\n'); - if (p) - p++; - while (p && *p && *p != '[') - { - pstr = str; - while (*p && *p != '=' && *p != '\n') - *pstr++ = *p++; - *pstr-- = 0; - while (pstr > str && (*pstr == ' ' || *pstr == '=')) - *pstr-- = 0; - - if (equal_ustring(str, param)) - { - if (*p == '=') - { - p++; - while (*p == ' ') - p++; - pstr = str; - while (*p && *p != '\n' && *p != '\r') - *pstr++ = *p++; - *pstr-- = 0; - while (*pstr == ' ') - *pstr-- = 0; - - strcpy(value, str); - return 1; - } - } - - if (p) - p = strchr(p, '\n'); - if (p) - p++; - } - } - } - if (p) - p = strchr(p, '\n'); - if (p) - p++; - } while (p); - - /* if parameter not found in logbook, look in [global] section */ - if (!equal_ustring(group, "global")) - return getcfg("global", param, value); - - return 0; -} - -/*------------------------------------------------------------------*/ - -int enumcfg(char *group, char *param, char *value, int index) -{ -char str[10000], *p, *pstr; -int i; - - /* open configuration file */ - if (!cfgbuffer) - getcfg("dummy", "dummy", str); - if (!cfgbuffer) - return 0; - - /* search group */ - p = cfgbuffer; - do - { - if (*p == '[') - { - p++; - pstr = str; - while (*p && *p != ']' && *p != '\n' && *p != '\r') - *pstr++ = *p++; - *pstr = 0; - if (equal_ustring(str, group)) - { - /* enumerate parameters */ - i = 0; - p = strchr(p, '\n'); - if (p) - p++; - while (p && *p && *p != '[') - { - pstr = str; - while (*p && *p != '=' && *p != '\n' && *p != '\r') - *pstr++ = *p++; - *pstr-- = 0; - while (pstr > str && (*pstr == ' ' || *pstr == '=')) - *pstr-- = 0; - - if (i == index) - { - strcpy(param, str); - if (*p == '=') - { - p++; - while (*p == ' ') - p++; - pstr = str; - while (*p && *p != '\n' && *p != '\r') - *pstr++ = *p++; - *pstr-- = 0; - while (*pstr == ' ') - *pstr-- = 0; - - if (value) - strcpy(value, str); - } - return 1; - } - - if (p) - p = strchr(p, '\n'); - if (p) - p++; - i++; - } - } - } - if (p) - p = strchr(p, '\n'); - if (p) - p++; - } while (p); - - return 0; -} - -/*------------------------------------------------------------------*/ - -int enumgrp(int index, char *group) -{ -char str[10000], *p, *pstr; -int i; - - /* open configuration file */ - if (!cfgbuffer) - getcfg("dummy", "dummy", str); - if (!cfgbuffer) - return 0; - - /* search group */ - p = cfgbuffer; - i = 0; - do - { - if (*p == '[') - { - p++; - pstr = str; - while (*p && *p != ']' && *p != '\n' && *p != '\r') - *pstr++ = *p++; - *pstr = 0; - - if (i == index) - { - strcpy(group, str); - return 1; - } - - i++; - } - - while (*p && *p != '\r' && *p != '\n') - p++; - while (*p && (*p == '\r' || *p == '\n')) - p++; - } while (*p); - - return 0; -} - -/*-------------------------------------------------------------------*/ - -char *locbuffer = NULL; -char **porig, **ptrans; - -/* localization support */ -char *loc(char *orig) -{ -char language[256], file_name[256], *p; -int fh, length, n; -static char old_language[256]; - - getcfg("global", "Language", language); - - if (!equal_ustring(language, old_language)) - { - if (equal_ustring(language, "english") || - language[0] == 0) - { - if (locbuffer) - { - free(locbuffer); - locbuffer = NULL; - } - } - else - { - strcpy(file_name, cfg_dir); - strcat(file_name, "eloglang."); - strcat(file_name, language); - - fh = open(file_name, O_RDONLY | O_BINARY); - if (fh < 0) - return orig; - - length = lseek(fh, 0, SEEK_END); - lseek(fh, 0, SEEK_SET); - locbuffer = malloc(length+1); - if (locbuffer == NULL) - { - close(fh); - return orig; - } - read(fh, locbuffer, length); - locbuffer[length] = 0; - close(fh); - - /* scan lines, setup orig-translated pointers */ - p = locbuffer; - n = 0; - do - { - while (*p && (*p == '\r' || *p == '\n')) - p++; - - if (*p && (*p == ';' || *p == '#' || *p == ' ' || *p == '\t')) - { - while (*p && *p != '\n' && *p != '\r') - p++; - continue; - } - - if (n == 0) - { - porig = malloc(sizeof(char *) * 2); - ptrans = malloc(sizeof(char *) * 2); - } - else - { - porig = realloc(porig, sizeof(char *) * (n + 2)); - ptrans = realloc(ptrans, sizeof(char *) * (n + 2)); - } - - porig[n] = p; - while (*p && (*p != '=' && *p != '\r' && *p != '\n')) - p++; - - if (*p && *p != '=') - continue; - - ptrans[n] = p + 1; - while (*ptrans[n] == ' ') - ptrans[n] ++; - - /* remove '=' and surrounding blanks */ - while (*p == '=' || *p == ' ') - *p-- = 0; - - p = ptrans[n]; - while (*p && *p != '\n' && *p != '\r') - p++; - - if (p) - *p++ = 0; - - n++; - } while (p && *p); - - porig[n] = NULL; - } - - strcpy(old_language, language); - } - - if (!locbuffer) - return orig; - - /* search string and return translation */ - for (n = 0; porig[n] ; n++) - if (strcmp(orig, porig[n]) == 0) - { - if (*ptrans[n]) - return ptrans[n]; - return orig; - } - - return orig; -} - -/*------------------------------------------------------------------*/ - -/* Parameter extraction from themes file */ - -typedef struct { - char name[32]; - char value[256]; - } THEME; - -THEME default_theme [] = { - - { "Table width", "100%" }, - { "Frame color", "#486090" }, - { "Cell BGColor", "#E6E6E6" }, - { "Border width", "0" }, - - { "Title BGColor", "#486090" }, - { "Title Fontcolor", "#FFFFFF" }, - { "Title Cellpadding", "0" }, - { "Title Image", "" }, - - { "Merge menus", "1" }, - { "Use buttons", "0" }, - - { "Menu1 BGColor", "#E0E0E0" }, - { "Menu1 Align", "left" }, - { "Menu1 Cellpadding", "0" }, - - { "Menu2 BGColor", "#FFFFB0" }, - { "Menu2 Align", "center" }, - { "Menu2 Cellpadding", "0" }, - { "Menu2 use images", "0" }, - - { "Categories cellpadding", "3" }, - { "Categories border", "0" }, - { "Categories BGColor1", "#CCCCFF" }, - { "Categories BGColor2", "#DDEEBB" }, - - { "Text BGColor", "#FFFFFF" }, - - { "List bgcolor1", "#DDEEBB" }, - { "List bgcolor2", "#FFFFB0" }, - - { "" } - -}; - -THEME *theme = NULL; -char theme_name[80]; - -/*------------------------------------------------------------------*/ - -void loadtheme(char *tn) -{ -FILE *f; -char *p, line[256], item[256], value[256], file_name[256]; -int i; - - if (theme == NULL) - theme = malloc(sizeof(default_theme)); - - /* copy default theme */ - memcpy(theme, default_theme, sizeof(default_theme)); - - /* use default if no name is given */ - if (tn == NULL) - return; - - memset(file_name, 0, sizeof(file_name)); - - strcpy(file_name, cfg_dir); - strcat(file_name, tn); - file_name[strlen(file_name)] = DIR_SEPARATOR; - strcat(file_name, "theme.cfg"); - - f = fopen(file_name, "r"); - if (f == NULL) - return; - - strcpy(theme_name, tn); - - do - { - line[0] = 0; - fgets(line, sizeof(line), f); - - /* ignore comments */ - if (line[0] == ';' || line[0] == '#') - continue; - - if (strchr(line, '=')) - { - /* split line into item and value, strop blanks */ - strcpy(item, line); - p = strchr(item, '='); - while ((*p == '=' || *p == ' ') && p > item) - *p-- = 0; - p = strchr(line, '='); - while (*p && (*p == '=' || *p == ' ')) - p++; - strcpy(value, p); - if (strlen(value) > 0) - { - p = value+strlen(value)-1; - while (p >= value && (*p == ' ' || *p == '\r' || *p == '\n')) - *(p--) = 0; - } - - /* find field in _theme and set it */ - for (i=0 ; theme[i].name[0] ; i++) - if (equal_ustring(item, theme[i].name)) - { - strcpy(theme[i].value, value); - break; - } - } - - } while (!feof(f)); - - fclose(f); - - return; -} - -/*------------------------------------------------------------------*/ - -/* get a certain theme attribute from currently loaded file */ - -char *gt(char *name) -{ -int i; - - if (theme == NULL) - loadtheme(NULL); - - for (i=0 ; theme[i].name[0] ; i++) - if (equal_ustring(theme[i].name, name)) - return theme[i].value; - - return ""; -} - -/*------------------------------------------------------------------*/ - -void el_decode(char *message, char *key, char *result) -{ -char *pc; - - if (result == NULL) - return; - - *result = 0; - - if (strstr(message, key)) - { - for (pc=strstr(message, key)+strlen(key) ; *pc != '\n' && *pc != '\r' ; ) - *result++ = *pc++; - *result = 0; - } -} - -/*------------------------------------------------------------------*/ - -/* Simplified copy of fnmatch() for Cygwin where fnmatch is not defined */ - -#define EOS '\0' - -int fnmatch1(const char *pattern, const char *string) -{ -const char *stringstart; -char c, test; - - for (stringstart = string;;) - switch (c = *pattern++) { - case EOS: - return (*string == EOS ? 0 : 1); - case '?': - if (*string == EOS) - return (1); - ++string; - break; - case '*': - c = *pattern; - /* Collapse multiple stars. */ - while (c == '*') - c = *++pattern; - - /* Optimize for pattern with * at end or before /. */ - if (c == EOS) - return (0); - - /* General case, use recursion. */ - while ((test = *string) != EOS) - { - if (!fnmatch1(pattern, string)) - return (0); - ++string; - } - return (1); - /* FALLTHROUGH */ - default: - if (c != *string) - return (1); - string++; - break; - } -} - -/*------------------------------------------------------------------*/ - -INT ss_file_find(char * path, char * pattern, char **plist) -/********************************************************************\ - - Routine: ss_file_find - - Purpose: Return list of files matching 'pattern' from the 'path' location - - Input: - char *path Name of a file in file system to check - char *pattern pattern string (wildcard allowed) - - Output: - char **plist pointer to the lfile list - - Function value: - int Number of files matching request - -\********************************************************************/ -{ - int i; - -#ifdef OS_UNIX - DIR *dir_pointer; - struct dirent *dp; - - if ((dir_pointer = opendir(path)) == NULL) - return 0; - *plist = (char *) malloc(MAX_PATH_LENGTH); - i = 0; - for (dp = readdir(dir_pointer); dp != NULL; dp = readdir(dir_pointer)) - { - if (fnmatch1(pattern, dp->d_name) == 0) - { - *plist = (char *)realloc(*plist, (i+1)*MAX_PATH_LENGTH); - strncpy(*plist+(i*MAX_PATH_LENGTH), dp->d_name, strlen(dp->d_name)); - *(*plist+(i*MAX_PATH_LENGTH)+strlen(dp->d_name)) = '\0'; - i++; - seekdir(dir_pointer, telldir(dir_pointer)); - } - } - closedir(dir_pointer); -#endif - -#ifdef OS_WINNT - HANDLE pffile; - LPWIN32_FIND_DATA lpfdata; - char str[255]; - int first; - - strcpy(str,path); - strcat(str,"\\"); - strcat(str,pattern); - first = 1; - i = 0; - lpfdata = malloc(sizeof(WIN32_FIND_DATA)); - *plist = (char *) malloc(MAX_PATH_LENGTH); - pffile = FindFirstFile(str, lpfdata); - if (pffile == INVALID_HANDLE_VALUE) - return 0; - first = 0; - *plist = (char *)realloc(*plist, (i+1)*MAX_PATH_LENGTH); - strncpy(*plist+(i*MAX_PATH_LENGTH), lpfdata->cFileName, strlen(lpfdata->cFileName)); - *(*plist+(i*MAX_PATH_LENGTH)+strlen(lpfdata->cFileName)) = '\0'; - i++; - while (FindNextFile(pffile, lpfdata)) - { - *plist = (char *)realloc(*plist, (i+1)*MAX_PATH_LENGTH); - strncpy(*plist+(i*MAX_PATH_LENGTH), lpfdata->cFileName, strlen(lpfdata->cFileName)); - *(*plist+(i*MAX_PATH_LENGTH)+strlen(lpfdata->cFileName)) = '\0'; - i++; - } - free(lpfdata); -#endif - return i; -} - -/*------------------------------------------------------------------*/ - -INT el_search_message(char *tag, int *fh, BOOL walk, BOOL first) -{ -int lfh, i, n, d, min, max, size, offset, direction, last, status, did_walk; -struct tm *tms, ltms; -time_t lt, ltime, lact; -char str[256], file_name[256], dir[256]; -char *file_list; - - did_walk = 0; - ltime = lfh = 0; - - /* get data directory */ - strcpy(dir, data_dir); - - /* check tag for direction */ - direction = 0; - if (strpbrk(tag, "+-")) - { - direction = atoi(strpbrk(tag, "+-")); - *strpbrk(tag, "+-") = 0; - } - - /* if tag is given, open file directly */ - if (tag[0]) - { - /* extract time structure from tag */ - tms = <ms; - memset(tms, 0, sizeof(struct tm)); - tms->tm_year = (tag[0]-'0')*10 + (tag[1]-'0'); - tms->tm_mon = (tag[2]-'0')*10 + (tag[3]-'0') -1; - tms->tm_mday = (tag[4]-'0')*10 + (tag[5]-'0'); - tms->tm_hour = 12; - - if (tms->tm_year < 90) - tms->tm_year += 100; - ltime = lt = mktime(tms); - - if (ltime < 0) - return -1; - - strcpy(str, tag); - if (strchr(str, '.')) - { - offset = atoi(strchr(str, '.')+1); - *strchr(str, '.') = 0; - } - else - return -1; - - do - { - tms = localtime(<ime); - - sprintf(file_name, "%s%02d%02d%02d.log", dir, - tms->tm_year % 100, tms->tm_mon+1, tms->tm_mday); - lfh = open(file_name, O_RDWR | O_BINARY, 0644); - - if (lfh < 0) - { - if (!walk) - return EL_FILE_ERROR; - - did_walk = 1; - - if (direction == -1) - ltime -= 3600*24; /* one day back */ - else - ltime += 3600*24; /* go forward one day */ - - /* set new tag */ - tms = localtime(<ime); - sprintf(tag, "%02d%02d%02d.0", tms->tm_year % 100, tms->tm_mon+1, tms->tm_mday); - } - - /* in forward direction, stop today */ - if (direction != -1 && ltime > (time_t)(time(NULL)+3600*24)) - break; - - /* in backward direction, go back 10 years */ - if (direction == -1 && abs((int)(lt-ltime)) > 3600*24*365*10) - break; - - } while (lfh < 0); - - if (lfh < 0) - return EL_FILE_ERROR; - - if (direction == -1 && did_walk) - lseek(lfh, 0, SEEK_END); - else - lseek(lfh, offset, SEEK_SET); - } - - /* open most recent file if no tag given */ - if (tag[0] == 0) - { - if (first) - { - /* go through whole directory, find first file */ - - file_list = NULL; - n = ss_file_find(dir, "??????.log", &file_list); - if (n == 0) - { - if (file_list) - free(file_list); - return EL_FILE_ERROR; - } - - for (i=0,min=9999999 ; i max) - max = d; - } - free(file_list); - sprintf(file_name, "%s%06d.log", dir, max % 1000000); - lfh = open(file_name, O_RDWR | O_BINARY, 0644); - if (lfh < 0) - return EL_FILE_ERROR; - - lseek(lfh, 0, SEEK_END); - - /* remember tag */ - sprintf(tag, "%06d.%d", (int) (max % 1000000), (int) (TELL(lfh))); - } - } - - if (direction == -1) - { - /* seek previous message */ - - if (TELL(lfh) == 0) - { - /* go back one day */ - close(lfh); - - lt = ltime; - do - { - lt -= 3600*24; - tms = localtime(<); - sprintf(str, "%02d%02d%02d.0", - tms->tm_year % 100, tms->tm_mon+1, tms->tm_mday); - - status = el_search_message(str, &lfh, FALSE, FALSE); - - } while (status != SUCCESS && - (INT)ltime-(INT)lt < 3600*24*365); - - if (status != EL_SUCCESS) - { - if (fh) - *fh = lfh; - else - close(lfh); - return EL_FIRST_MSG; - } - - /* adjust tag */ - strcpy(tag, str); - - /* go to end of current file */ - lseek(lfh, 0, SEEK_END); - } - - /* read previous message size */ - lseek(lfh, -17, SEEK_CUR); - i = read(lfh, str, 17); - if (i <= 0) - { - close(lfh); - return EL_FILE_ERROR; - } - - if (strncmp(str, "$End$: ", 7) == 0) - { - size = atoi(str+7); - lseek(lfh, -size, SEEK_CUR); - } - else - { - close(lfh); - return EL_FILE_ERROR; - } - - /* adjust tag */ - sprintf(strchr(tag, '.')+1, "%d", (int) (TELL(lfh))); - } - - if (direction == 1) - { - /* seek next message */ - - /* read current message size */ - last = TELL(lfh); - - i = read(lfh, str, 15); - if (i <= 0) - { - close(lfh); - return EL_FILE_ERROR; - } - lseek(lfh, -15, SEEK_CUR); - - if (strncmp(str, "$Start$: ", 9) == 0) - { - size = atoi(str+9); - lseek(lfh, size, SEEK_CUR); - } - else - { - close(lfh); - return EL_FILE_ERROR; - } - - /* if EOF, goto next day */ - i = read(lfh, str, 15); - if (i < 15) - { - close(lfh); - time(&lact); - - lt = ltime; - do - { - lt += 3600*24; - tms = localtime(<); - sprintf(str, "%02d%02d%02d.0", - tms->tm_year % 100, tms->tm_mon+1, tms->tm_mday); - - status = el_search_message(str, &lfh, FALSE, FALSE); - - } while (status != EL_SUCCESS && - (INT)lt-(INT)lact < 3600*24); - - if (status != EL_SUCCESS) - { - if (fh) - *fh = lfh; - else - close(lfh); - return EL_LAST_MSG; - } - - /* adjust tag */ - strcpy(tag, str); - - /* go to beginning of current file */ - lseek(lfh, 0, SEEK_SET); - } - else - lseek(lfh, -15, SEEK_CUR); - - /* adjust tag */ - sprintf(strchr(tag, '.')+1, "%d", (int) (TELL(lfh))); - } - - if (fh) - *fh = lfh; - else - close(lfh); - - return EL_SUCCESS; -} - -/*------------------------------------------------------------------*/ - -INT el_submit(char attr_name[MAX_N_ATTR][NAME_LENGTH], - char attr_value[MAX_N_ATTR][NAME_LENGTH], - int n_attr, char *text, char *reply_to, char *encoding, - char afilename[MAX_ATTACHMENTS][256], - char *buffer[MAX_ATTACHMENTS], - INT buffer_size[MAX_ATTACHMENTS], - char *tag, INT tag_size) -/********************************************************************\ - - Routine: el_submit - - Purpose: Submit an ELog entry - - Input: - char attr_name[][] Name of attributes - char attr_value[][] Value of attributes - int n_attr Number of attributes - - char *text Message text - char *reply_to In reply to this message - char *encoding Text encoding, either HTML or plain - - char *afilename[] File name of attachments - char *buffer[] Attachment contents - INT *buffer_size[] Size of attachment in bytes - char *tag If given, edit existing message - INT *tag_size Maximum size of tag - - Output: - char *tag Message tag in the form YYMMDD.offset - INT *tag_size Size of returned tag - - Function value: - EL_SUCCESS Successful completion - -\********************************************************************/ -{ -INT n, i, size, fh, status, index, offset, tail_size; -struct tm *tms; -char file_name[256], afile_name[MAX_ATTACHMENTS][256], dir[256], str[256], - start_str[80], end_str[80], last[80], date[80], thread[80], attachment_all[64*MAX_ATTACHMENTS]; -time_t now; -char message[TEXT_SIZE+100], *p; -BOOL bedit; - - bedit = (tag[0] != 0); - - for (index = 0 ; index < MAX_ATTACHMENTS ; index++) - { - /* generate filename for attachment */ - afile_name[index][0] = file_name[0] = 0; - - if (equal_ustring(afilename[index], loc(""))) - { - strcpy(afile_name[index], loc("")); - } - else if (afilename[index][0] && buffer_size[index] == 0) - { - /* resubmission of existing attachment */ - strcpy(afile_name[index], afilename[index]); - } - else - { - if (afilename[index][0]) - { - /* strip directory, add date and time to filename */ - - strcpy(file_name, afilename[index]); - p = file_name; - while (strchr(p, ':')) - p = strchr(p, ':')+1; - while (strchr(p, '\\')) - p = strchr(p, '\\')+1; /* NT */ - while (strchr(p, '/')) - p = strchr(p, '/')+1; /* Unix */ - - /* assemble ELog filename */ - if (p[0]) - { - strcpy(dir, data_dir); - - time(&now); - tms = localtime(&now); - - strcpy(str, p); - sprintf(afile_name[index], "%02d%02d%02d_%02d%02d%02d_%s", - tms->tm_year % 100, tms->tm_mon+1, tms->tm_mday, - tms->tm_hour, tms->tm_min, tms->tm_sec, str); - sprintf(file_name, "%s%02d%02d%02d_%02d%02d%02d_%s", dir, - tms->tm_year % 100, tms->tm_mon+1, tms->tm_mday, - tms->tm_hour, tms->tm_min, tms->tm_sec, str); - - /* save attachment */ - fh = open(file_name, O_CREAT | O_RDWR | O_BINARY, 0644); - if (fh < 0) - { - printf("Cannot write attachment file \"%s\"", file_name); - } - else - { - write(fh, buffer[index], buffer_size[index]); - close(fh); - } - } - } - } - } - - /* generate new file name YYMMDD.log in data directory */ - strcpy(dir, data_dir); - - if (bedit) - { - /* edit existing message */ - strcpy(str, tag); - if (strchr(str, '.')) - { - offset = atoi(strchr(str, '.')+1); - *strchr(str, '.') = 0; - } - sprintf(file_name, "%s%s.log", dir, str); - fh = open(file_name, O_CREAT | O_RDWR | O_BINARY, 0644); - if (fh < 0) - return -1; - - lseek(fh, offset, SEEK_SET); - read(fh, str, 16); - size = atoi(str+9); - read(fh, message, size); - - el_decode(message, "Date: ", date); - el_decode(message, "Thread: ", thread); - el_decode(message, "Attachment: ", attachment_all); - - /* buffer tail of logfile */ - lseek(fh, 0, SEEK_END); - tail_size = TELL(fh) - (offset+size); - - if (tail_size > 0) - { - buffer = malloc(tail_size); - if (buffer == NULL) - { - close(fh); - return -1; - } - - lseek(fh, offset+size, SEEK_SET); - n = read(fh, buffer, tail_size); - } - lseek(fh, offset, SEEK_SET); - } - else - { - /* create new message */ - time(&now); - tms = localtime(&now); - - sprintf(file_name, "%s%02d%02d%02d.log", dir, - tms->tm_year % 100, tms->tm_mon+1, tms->tm_mday); - - fh = open(file_name, O_CREAT | O_RDWR | O_BINARY, 0644); - if (fh < 0) - return -1; - - strcpy(date, ctime(&now)); - date[24] = 0; - - if (reply_to[0]) - sprintf(thread, "%16s %16s", reply_to, "0"); - else - sprintf(thread, "%16s %16s", "0", "0"); - - lseek(fh, 0, SEEK_END); - } - - /* compose message */ - - sprintf(message, "Date: %s\n", date); - sprintf(message+strlen(message), "Thread: %s\n", thread); - - for (i=0 ; i")))) - { - /* delete old attachment */ - strcpy(str, data_dir); - strcat(str, p); - remove(str); - } - - if (afile_name[i][0] && !equal_ustring(afile_name[i], loc(""))) - { - if (n == 0) - { - sprintf(message+strlen(message), "Attachment: %s", afile_name[i]); - n++; - } - else - sprintf(message+strlen(message), ",%s", afile_name[i]); - } - - else if (p && !equal_ustring(afile_name[i], loc(""))) - { - if (n == 0) - { - sprintf(message+strlen(message), "Attachment: %s", p); - n++; - } - else - sprintf(message+strlen(message), ",%s", p); - } - - } - } - else - { - sprintf(message+strlen(message), "Attachment: %s", afile_name[0]); - for (i=1 ; itm_year % 100, tms->tm_mon+1, tms->tm_mday, (int) (TELL(fh))); - - sprintf(start_str, "$Start$: %6d\n", size); - sprintf(end_str, "$End$: %6d\n\f", size); - - write(fh, start_str, strlen(start_str)); - write(fh, message, strlen(message)); - write(fh, end_str, strlen(end_str)); - - if (bedit) - { - if (tail_size > 0) - { - n = write(fh, buffer, tail_size); - free(buffer); - } - - /* truncate file here */ -#ifdef _MSC_VER - chsize(fh, TELL(fh)); -#else - ftruncate(fh, TELL(fh)); -#endif - } - - close(fh); - - /* if reply, mark original message */ - if (reply_to[0] && !bedit) - { - strcpy(last, reply_to); - do - { - status = el_search_message(last, &fh, FALSE, FALSE); - if (status == EL_SUCCESS) - { - /* position to next thread location */ - lseek(fh, 72, SEEK_CUR); - memset(str, 0, sizeof(str)); - read(fh, str, 16); - lseek(fh, -16, SEEK_CUR); - - /* if no reply yet, set it */ - if (atoi(str) == 0) - { - sprintf(str, "%16s", tag); - write(fh, str, 16); - close(fh); - break; - } - else - { - /* if reply set, find last one in chain */ - strcpy(last, strtok(str, " ")); - close(fh); - } - } - else - /* stop on error */ - break; - - } while (TRUE); - } - - return EL_SUCCESS; -} - -/*------------------------------------------------------------------*/ - -INT el_retrieve(char *tag, char *date, char attr_list[MAX_N_ATTR][NAME_LENGTH], - char attrib[MAX_N_ATTR][NAME_LENGTH], int n_attr, - char *text, int *textsize, - char *orig_tag, char *reply_tag, - char attachment[MAX_ATTACHMENTS][256], - char *encoding) -/********************************************************************\ - - Routine: el_retrieve - - Purpose: Retrieve an ELog entry by its message tab - - Input: - char *tag tag in the form YYMMDD.offset - int *size Size of text buffer - - Output: - char *tag tag of retrieved message - char *date Date/time of message recording - char attr_list Names of attributes - char attrib Values of attributes - int n_attr Number of attributes - char *text Message text - char *orig_tag Original message if this one is a reply - char *reply_tag Reply for current message - char *attachment[] File attachments - char *encoding Encoding of message - int *size Actual message text size - - Function value: - EL_SUCCESS Successful completion - EL_LAST_MSG Last message in log - -\********************************************************************/ -{ -int i, size, fh, offset, search_status; -char str[256], *p; -char message[TEXT_SIZE+100], thread[256], attachment_all[64*MAX_ATTACHMENTS]; - - if (tag[0]) - { - search_status = el_search_message(tag, &fh, TRUE, FALSE); - if (search_status != EL_SUCCESS) - return search_status; - } - else - { - /* open most recent message */ - strcpy(tag, "-1"); - search_status = el_search_message(tag, &fh, TRUE, FALSE); - if (search_status != EL_SUCCESS) - return search_status; - } - - /* extract message size */ - offset = TELL(fh); - i = read(fh, str, 16); - if (i <= 0) - { - close(fh); - return EL_FILE_ERROR; - } - - if (strncmp(str, "$Start$: ", 9) == 0) - size = atoi(str+9); - else - { - close(fh); - return EL_FILE_ERROR; - } - - /* read message */ - memset(message, 0, sizeof(message)); - read(fh, message, size); - close(fh); - - /* decode message */ - el_decode(message, "Date: ", date); - el_decode(message, "Thread: ", thread); - - for (i=0 ; i \r conversion (e.g. zipping/unzipping) */ - if (p == NULL) - p = strstr(message, "========================================\r"); - - if (text != NULL) - { - if (p != NULL) - { - p += 41; - if ((int) strlen(p) >= *textsize) - { - strncpy(text, p, *textsize-1); - text[*textsize-1] = 0; - return -1; - } - else - { - strcpy(text, p); - - /* strip end tag */ - if (strstr(text, "$End$")) - *strstr(text, "$End$") = 0; - - *textsize = strlen(text); - } - } - else - { - text[0] = 0; - *textsize = 0; - } - } - - if (search_status == EL_LAST_MSG) - return EL_LAST_MSG; - - return EL_SUCCESS; -} - -/*------------------------------------------------------------------*/ - -INT el_delete_message(char *tag) -/********************************************************************\ - - Routine: el_delete_message - - Purpose: Delete an ELog entry including attachments - - Input: - char *tag Message tage - - Output: - - - Function value: - EL_SUCCESS Successful completion - -\********************************************************************/ -{ -INT i, n, size, fh, offset, tail_size, status, n_attr; -char dir[256], str[256], file_name[256]; -char *buffer, attrib[MAX_N_ATTR][NAME_LENGTH]; -char date[80], text[TEXT_SIZE], orig_tag[80], reply_tag[80], - attachment[MAX_ATTACHMENTS][256], encoding[80]; - - n_attr = scan_attributes(logbook); - - /* get attachments */ - size = sizeof(text); - status = el_retrieve(tag, date, attr_list, attrib, n_attr, - text, &size, orig_tag, reply_tag, - attachment, - encoding); - if (status != SUCCESS) - return EL_FILE_ERROR; - - for (i=0 ; i 0) - { - buffer = malloc(tail_size); - if (buffer == NULL) - { - close(fh); - return EL_FILE_ERROR; - } - - lseek(fh, offset+size, SEEK_SET); - n = read(fh, buffer, tail_size); - } - lseek(fh, offset, SEEK_SET); - - if (tail_size > 0) - { - n = write(fh, buffer, tail_size); - free(buffer); - } - - /* truncate file here */ -#ifdef OS_WINNT - chsize(fh, TELL(fh)); -#else - ftruncate(fh, TELL(fh)); -#endif - - /* if file length gets zero, delete file */ - tail_size = lseek(fh, 0, SEEK_END); - close(fh); - - if (tail_size == 0) - remove(file_name); - - return EL_SUCCESS; -} - -/*------------------------------------------------------------------*/ - -INT el_delete_message_only(char *tag, char afilename[MAX_ATTACHMENTS][256]) -/********************************************************************\ - - Routine: el_delete_message_only - - Purpose: Delete an ELog entry, but keeping (and returning) attachments - - Input: - char *tag Message tage - - Output: - - - Function value: - EL_SUCCESS Successful completion - -\********************************************************************/ -{ -INT i, n, size, fh, offset, tail_size, status, n_attr; -char dir[256], str[256], file_name[256]; -char *buffer, attrib[MAX_N_ATTR][NAME_LENGTH]; -char date[80], text[TEXT_SIZE], orig_tag[80], reply_tag[80], - attachment[MAX_ATTACHMENTS][256], encoding[80]; - - n_attr = scan_attributes(logbook); - - /* get attachments */ - size = sizeof(text); - status = el_retrieve(tag, date, attr_list, attrib, n_attr, - text, &size, orig_tag, reply_tag, - attachment, - encoding); - if (status != SUCCESS) - return EL_FILE_ERROR; - - for (i=0 ; i 0) - { - buffer = malloc(tail_size); - if (buffer == NULL) - { - close(fh); - return EL_FILE_ERROR; - } - - lseek(fh, offset+size, SEEK_SET); - n = read(fh, buffer, tail_size); - } - lseek(fh, offset, SEEK_SET); - - if (tail_size > 0) - { - n = write(fh, buffer, tail_size); - free(buffer); - } - - /* truncate file here */ -#ifdef OS_WINNT - chsize(fh, TELL(fh)); -#else - ftruncate(fh, TELL(fh)); -#endif - - /* if file length gets zero, delete file */ - tail_size = lseek(fh, 0, SEEK_END); - close(fh); - - if (tail_size == 0) - remove(file_name); - - return EL_SUCCESS; -} - -/*------------------------------------------------------------------*/ - -void rsputs(const char *str) -{ - if (strlen_retbuf + strlen(str) > sizeof(return_buffer)) - strcpy(return_buffer, "

Error: return buffer too small

"); - else - strcpy(return_buffer+strlen_retbuf, str); - - strlen_retbuf += strlen(str); -} - -/*------------------------------------------------------------------*/ - -void rsputs2(const char *str) -{ -int i, j, k; -char *p, link[256]; - - if (strlen_retbuf + strlen(str) > sizeof(return_buffer)) - strcpy(return_buffer, "

Error: return buffer too small

"); - else - { - j = strlen_retbuf; - for (i=0 ; i<(int)strlen(str) ; i++) - { - if (strncmp(str+i, "http://", 7) == 0) - { - p = (char *) (str+i+7); - i += 7; - for (k=0 ; *p && *p != ' ' && *p != ',' && *p != '\t' && *p != '\n' && *p != '\r'; k++,i++) - link[k] = *p++; - link[k] = 0; - i--; - - sprintf(return_buffer+j, "http://%s", link, link); - j += strlen(return_buffer+j); - } - else if (strncmp(str+i, "https://", 8) == 0) - { - p = (char *) (str+i+8); - i += 8; - for (k=0 ; *p && *p != ' ' && *p != ',' && *p != '\t' && *p != '\n' && *p != '\r'; k++,i++) - link[k] = *p++; - link[k] = 0; - i--; - - sprintf(return_buffer+j, "https://%s", link, link); - j += strlen(return_buffer+j); - } - else if (strncmp(str+i, "ftp://", 6) == 0) - { - p = (char *) (str+i+6); - i += 6; - for (k=0 ; *p && *p != ' ' && *p != ',' && *p != '\t' && *p != '\n' && *p != '\r'; k++,i++) - link[k] = *p++; - link[k] = 0; - i--; - - sprintf(return_buffer+j, "ftp://%s", link, link); - j += strlen(return_buffer+j); - } - else if (strncmp(str+i, "mailto:", 7) == 0) - { - p = (char *) (str+i+7); - i += 7; - for (k=0 ; *p && *p != '>' && *p != ' ' && *p != ',' && *p != '\t' && *p != '\n' && *p != '\r'; k++,i++) - link[k] = *p++; - link[k] = 0; - i--; - - sprintf(return_buffer+j, "%s", link, link); - j += strlen(return_buffer+j); - } - else - switch (str[i]) - { - case 1 : strcat(return_buffer, "<"); j++; break; - case 2 : strcat(return_buffer, ">"); j++; break; - case '<': strcat(return_buffer, "<"); j+=4; break; - case '>': strcat(return_buffer, ">"); j+=4; break; - default: return_buffer[j++] = str[i]; - } - } - - return_buffer[j] = 0; - strlen_retbuf = j; - } -} - -/*------------------------------------------------------------------*/ - -void rsprintf(const char *format, ...) -{ -va_list argptr; -char str[10000]; - - va_start(argptr, format); - vsprintf(str, (char *) format, argptr); - va_end(argptr); - - if (strlen_retbuf + strlen(str) > sizeof(return_buffer)) - strcpy(return_buffer, "

Error: return buffer too small

"); - else - strcpy(return_buffer+strlen_retbuf, str); - - strlen_retbuf += strlen(str); -} - -/*------------------------------------------------------------------*/ - -/* Parameter handling functions similar to setenv/getenv */ - -void initparam() -{ - memset(_param, 0, sizeof(_param)); - memset(_value, 0, sizeof(_value)); - _text[0] = 0; -} - -void setparam(char *param, char *value) -{ -int i; - - if (equal_ustring(param, "text")) - { - if (strlen(value) >= TEXT_SIZE) - printf("Error: parameter value too big\n"); - - strncpy(_text, value, TEXT_SIZE); - _text[TEXT_SIZE-1] = 0; - return; - } - - for (i=0 ; i= VALUE_SIZE) - printf("Error: parameter value too big\n"); - - strncpy(_value[i], value, VALUE_SIZE); - _value[i][VALUE_SIZE-1] = 0; - } - else - { - printf("Error: parameter array too small\n"); - } -} - -char *getparam(char *param) -{ -int i; - - if (equal_ustring(param, "text")) - return _text; - - for (i=0 ; iredir\r\n", logbook_enc, path); -} - -void redirect2(char *path) -{ - redirect(path); - send(_sock, return_buffer, strlen(return_buffer)+1, 0); - closesocket(_sock); - return_length = -1; -} - -void redirect3(char *path) -{ - /* redirect */ - rsprintf("HTTP/1.1 302 Found\r\n"); - rsprintf("Server: ELOG HTTP %s\r\n", VERSION); - if (use_keepalive) - { - rsprintf("Connection: Keep-Alive\r\n"); - rsprintf("Keep-Alive: timeout=60, max=10\r\n"); - } - - rsprintf("Location: %s\r\n\r\nredir\r\n", path); -} - -/*------------------------------------------------------------------*/ - -int strbreak(char *str, char list[][NAME_LENGTH], int size) -/* break comma-separated list into char array, stripping leading - and trailing blanks */ -{ -int i; -char *p; - - memset(list, 0, size*NAME_LENGTH); - p = strtok(str, ","); - if (!p) - return 0; - while (*p == ' ') - p++; - - for (i=0 ; p && i\n"); - rsprintf("ELOG Electronic Logbook Upgrade Information\n"); - rsprintf("\n\n"); - - rsprintf("\n"); - - rsprintf("", - gt("Border width"), gt("Frame color")); - rsprintf("
\n", gt("Frame color")); - - rsprintf("\n", - gt("Title bgcolor"), gt("Title fontcolor")); - - rsprintf("\n"); - rsprintf("
ELog Electronic Logbook Upgrade Information

\n"); - - rsprintf("You probably use an elogd.cfg configuration file for a ELOG version\n"); - rsprintf("1.1.x, since it contains a \"Types = ...\" entry. From version\n"); - rsprintf("1.2.0 on, the fixed attributes Type and Category have been\n"); - rsprintf("replaced by arbitrary attributes. Please replace these two lines with the\n"); - rsprintf("following entries:

\n"); - rsprintf("

\n");
-  rsprintf("Attributes = Author, Type, Category, Subject\n");
-  rsprintf("Required Attributes = Author\n");
-  getcfg(logbook, "Types", str);
-  rsprintf("Options Type = %s\n", str);
-  getcfg(logbook, "Categories", str);
-  rsprintf("Options Category = %s\n", str);
-  rsprintf("Page title = $subject\n");
-  rsprintf("
\n"); - rsprintf("

\n"); - - rsprintf("It is of course possible to change the attributes or add new ones. The new\n"); - rsprintf("options in the configuration file are described under http://midas.psi.ch/elog/config.html\n"); - rsprintf(".\n"); - - rsprintf("

\n\n"); - - rsprintf("
\n"); - rsprintf("
\n"); - rsprintf("S. Ritt, 18 October 2001"); - rsprintf("
"); - - rsprintf("\r\n"); -} - -/*------------------------------------------------------------------*/ - -void show_standard_header(char *title, char *path) -{ - rsprintf("HTTP/1.1 200 Document follows\r\n"); - rsprintf("Server: ELOG HTTP %s\r\n", VERSION); - rsprintf("Content-Type: text/html\r\n"); - - rsprintf("Pragma: no-cache\r\n"); - if (use_keepalive) - { - rsprintf("Connection: Keep-Alive\r\n"); - rsprintf("Keep-Alive: timeout=60, max=10\r\n"); - } - rsprintf("Expires: Fri, 01 Jan 1983 00:00:00 GMT\r\n\r\n"); - - rsprintf("%s\n", title); - if (path) - rsprintf("
\n\n", logbook_enc, path); - else - rsprintf("\n\n", logbook_enc); -} - -/*------------------------------------------------------------------*/ - -void show_standard_title(char *logbook, char *text, int printable) -{ -char str[256], ref[256]; -int i; - - /* overall table, containing title, menu and message body */ - if (printable) - rsprintf("\n\n", - gt("Border width"), gt("Frame color")); - else - rsprintf("
\n\n", - gt("Table width"), gt("Border width"), gt("Frame color")); - - /*---- logbook selection row ----*/ - - if (!printable && getcfg("global", "logbook tabs", str) && atoi(str) == 1) - { - if (!getcfg("global", "tab cellpadding", str)) - strcpy(str, "5"); - rsprintf("\n\n"); - } - - /*---- title row ----*/ - - rsprintf("\n\n"); -} - -/*------------------------------------------------------------------*/ - -void show_error(char *error) -{ - /* header */ - show_standard_header("ELOG error", ""); - - rsprintf("

\n", str); - - if (getcfg("global", "main tab", str)) - { - rsprintf("\n", str); - rsprintf("\n"); - } - - for (i=0 ; ; i++) - { - if (!enumgrp(i, str)) - break; - - if (equal_ustring(str, "global")) - continue; - - strcpy(ref, str); - url_encode(ref); - - if (equal_ustring(str, logbook)) - rsprintf("\n", gt("Title BGColor"), gt("Title fontcolor"), str); - else - rsprintf("\n", ref, str); - rsprintf("\n"); - } - rsprintf("\n"); - rsprintf("
%s %s%s  
\n", - gt("Title cellpadding")); - - /* left cell */ - rsprintf("\n"); - - /* middle cell */ - if (*getparam("full_name")) - { - rsprintf("\n", - gt("Title fontcolor"), loc("Logged in as"), getparam("full_name")); - } - - /* right cell */ - rsprintf("\n"); - - rsprintf("
", gt("Title BGColor")); - - /* use comment as title if available, else logbook name */ - if (!getcfg(logbook, "Comment", str)) - strcpy(str, logbook); - - rsprintf("  %s%s\n", - gt("Title fontcolor"), str, text); - rsprintf(" ", gt("Title BGColor")); - rsprintf("  %s \"%s\"", gt("Title BGColor")); - if (*gt("Title image")) - rsprintf("", logbook_enc, gt("Title image")); - else - rsprintf("ELOG V%s  ", - gt("Title fontcolor"), VERSION); - rsprintf("
", - gt("Border width"), gt("Frame color")); - rsprintf("
\n", gt("Frame color")); - rsprintf("\n", error); - - rsprintf("\n
"); - - rsprintf("%s
", gt("Cell BGColor")); - - rsprintf("\n", loc("Back")); - /* - rsprintf("", loc("Back")); - */ - - rsprintf("
\n"); - rsprintf("\n"); -} - -/*------------------------------------------------------------------*/ - -void send_file(char *file_name) -{ -int fh, i, length; -char str[256]; -time_t now; -struct tm *gmt; - - fh = open(file_name, O_RDONLY | O_BINARY); - if (fh > 0) - { - lseek(fh, 0, SEEK_END); - length = TELL(fh); - lseek(fh, 0, SEEK_SET); - - rsprintf("HTTP/1.1 200 Document follows\r\n"); - rsprintf("Server: ELOG HTTP %s\r\n", VERSION); - rsprintf("Accept-Ranges: bytes\r\n"); - - time(&now); - now += (int) (3600*3); - gmt = gmtime(&now); - strftime(str, sizeof(str), "%A, %d-%b-%y %H:%M:%S GMT", gmt); - rsprintf("Expires: %s\r\n", str); - - if (use_keepalive) - { - rsprintf("Connection: Keep-Alive\r\n"); - rsprintf("Keep-Alive: timeout=60, max=10\r\n"); - } - - /* return proper header for file type */ - for (i=0 ; i<(int)strlen(file_name) ; i++) - str[i] = toupper(file_name[i]); - str[i] = 0; - - for (i=0 ; filetype[i].ext[0] ; i++) - if (strstr(str, filetype[i].ext)) - break; - - if (filetype[i].ext[0]) - rsprintf("Content-Type: %s\r\n", filetype[i].type); - else if (strchr(str, '.') == NULL) - rsprintf("Content-Type: text/plain\r\n"); - else - rsprintf("Content-Type: application/octet-stream\r\n"); - - rsprintf("Content-Length: %d\r\n\r\n", length); - - /* return if file too big */ - if (length > (int) (sizeof(return_buffer) - strlen(return_buffer))) - { - printf("return buffer too small\n"); - close(fh); - return; - } - - return_length = strlen(return_buffer)+length; - read(fh, return_buffer+strlen(return_buffer), length); - - close(fh); - } - else - { - rsprintf("HTTP/1.1 404 Not Found\r\n"); - rsprintf("Server: ELOG HTTP %s\r\n", VERSION); - rsprintf("Connection: close\r\n"); - rsprintf("Content-Type: text/html\r\n\r\n"); - rsprintf("404 Not Found\r\n"); - rsprintf("

Not Found

\r\n"); - rsprintf("The requested file %s was not found on this server

\r\n", file_name); - rsprintf("

ELOG version %s
\r\n\r\n", VERSION); - return_length = strlen_retbuf; - keep_alive = 0; - } -} - -/*------------------------------------------------------------------*/ - -void strencode(char *text) -{ -int i; - - for (i=0 ; i<(int) strlen(text) ; i++) - { - switch (text[i]) - { - case '\n': rsprintf("
\n"); break; - case '<': rsprintf("<"); break; - case '>': rsprintf(">"); break; - case '&': rsprintf("&"); break; - case '\"': rsprintf("""); break; - case ' ': rsprintf(" "); break; - default: rsprintf("%c", text[i]); - } - } -} - -/*------------------------------------------------------------------*/ - -void strencode2(char *b, char *text) -{ -int i; - - for (i=0 ; i<(int) strlen(text) ; b++,i++) - { - switch (text[i]) - { - case '\n': sprintf(b, "
\n"); break; - case '<': sprintf(b, "<"); break; - case '>': sprintf(b, ">"); break; - case '&': sprintf(b, "&"); break; - case '\"': sprintf(b, """); break; - default: sprintf(b, "%c", text[i]); - } - } - *b = 0; -} - -/*------------------------------------------------------------------*/ - -int build_subst_list(char list[][NAME_LENGTH], char value[][NAME_LENGTH], - char attrib[][NAME_LENGTH]) -{ -int i; -char str[256], format[256]; -time_t now; -struct tm *ts; -struct hostent *phe; - - /* copy attribute list */ - for (i=0 ; ih_name); - else - strcpy(str, (char *)inet_ntoa(rem_addr)); - - strcpy(value[i++], str); - - /* add local host */ - strcpy(list[i], "host"); - strcpy(value[i++], host_name); - - /* add user names */ - strcpy(list[i], "short_name"); - strcpy(value[i++], getparam("unm")); - strcpy(list[i], "long_name"); - strcpy(value[i++], getparam("full_name")); - - /* add logbook */ - strcpy(list[i], "logbook"); - strcpy(value[i++], logbook); - - /* add date */ - strcpy(list[i], "date"); - time(&now); - ts = localtime(&now); - if (getcfg(logbook, "Date format", format)) - strftime(str, sizeof(str), format, ts); - else - strcpy(str, ctime(&now)); - strcpy(value[i++], str); - - return i; -} - -/*------------------------------------------------------------------*/ - -void show_change_pwd_page() -{ -char str[256], file_name[256], line[256], *p, *pl, old_pwd[32], new_pwd[32]; -char *buf; -FILE *f; -int i, wrong_pwd, size; -double exp; -time_t now; -struct tm *gmt; - - - do_crypt(getparam("oldpwd"), old_pwd); - do_crypt(getparam("newpwd"), new_pwd); - - getcfg(logbook, "Password file", str); - - if (str[0] == DIR_SEPARATOR || str[1] == ':') - strcpy(file_name, str); - else - { - strcpy(file_name, cfg_dir); - strcat(file_name, str); - } - - wrong_pwd = FALSE; - - if (old_pwd[0] || new_pwd[0]) - { - f = fopen(file_name, "r+b"); - if (f != NULL) - { - fseek(f, 0, SEEK_END); - size = TELL(fileno(f)); - fseek(f, 0, SEEK_SET); - - buf = malloc(size+1); - fread(buf, 1, size, f); - buf[size] = 0; - pl = buf; - - while (pl < buf+size) - { - for (i=0 ; pl[i] && pl[i] != '\r' && pl[i] != '\n' ; i++) - line[i] = pl[i]; - line[i] = 0; - - if (line[0] == ';' || line[0] == '#' || line[0] == 0) - { - pl += strlen(line); - while (*pl && (*pl == '\r' || *pl == '\n')) - pl++; - continue; - } - - strcpy(str, line); - if (strchr(str, ':')) - *strchr(str, ':') = 0; - if (strcmp(str, getparam("unm")) == 0) - break; - - pl += strlen(line); - while (*pl && (*pl == '\r' || *pl == '\n')) - pl++; - } - - /* if user found, check old password */ - if (*getparam("unm") && (strcmp(str, getparam("unm")) == 0)) - { - p = line+strlen(str); - if (*p) - p++; - - strcpy(str, p); - if (strchr(str, ':')) - *strchr(str, ':') = 0; - - if (strcmp(old_pwd, str) != 0) - wrong_pwd = TRUE; - } - - /* replace password */ - if (!wrong_pwd) - { - fseek(f, 0, SEEK_SET); - fwrite(buf, 1, pl-buf, f); - - fprintf(f, "%s:%s:%s\n", getparam("unm"), new_pwd, getparam("full_name")); - - pl += strlen(line); - while (*pl && (*pl == '\r' || *pl == '\n')) - pl++; - - fwrite(pl, 1, strlen(pl), f); - -#ifdef _MSC_VER - chsize(fileno(f), TELL(fileno(f))); -#else - ftruncate(fileno(f), TELL(fileno(f))); -#endif - } - - free(buf); - fclose(f); - - if (!wrong_pwd) - { - rsprintf("HTTP/1.1 302 Found\r\n"); - rsprintf("Server: ELOG HTTP %s\r\n", VERSION); - if (use_keepalive) - { - rsprintf("Connection: Keep-Alive\r\n"); - rsprintf("Keep-Alive: timeout=60, max=10\r\n"); - } - - /* get optional expriation from configuration file */ - exp = 24; - if (getcfg(logbook, "Login expiration", str)) - exp = atof(str); - - if (exp == 0) - { - rsprintf("Set-Cookie: upwd=%s; path=/%s\r\n", new_pwd, logbook_enc); - } - else - { - time(&now); - now += (int) (3600*exp); - gmt = gmtime(&now); - strftime(str, sizeof(str), "%A, %d-%b-%Y %H:%M:%S GMT", gmt); - - rsprintf("Set-Cookie: upwd=%s; path=/%s; expires=%s\r\n", new_pwd, logbook_enc, str); - } - - sprintf(str, "/%s/", logbook_enc); - rsprintf("Location: %s\r\n\r\nredir\r\n", str); - return; - } - } - } - - show_standard_header(loc("ELOG change password"), NULL); - - rsprintf("

", - gt("Border width"), gt("Frame color")); - rsprintf("
\n", gt("Frame color")); - - if (wrong_pwd) - rsprintf("\n", loc("Wrong password")); - - rsprintf("\n", - gt("Title fontcolor"), loc("Change password for user"), getparam("full_name")); - - rsprintf("\n", - gt("Cell BGColor"), loc("Old Password")); - rsprintf("\n", - gt("Cell BGColor"), loc("New Password")); - - rsprintf("", - gt("Cell BGColor"), loc("Submit")); - - rsprintf("
%s!
\n", gt("Title bgcolor")); - - rsprintf("%s \"%s\"
%s:     
%s:     
\n"); - - rsprintf("\r\n"); -} - -/*------------------------------------------------------------------*/ - -BOOL allow_user(char *command) -{ -char str[1000], users[2000]; -char list[MAX_N_LIST][NAME_LENGTH]; -int i, n; - - /* check for user level access */ - if (!getcfg(logbook, "Password file", str)) - return TRUE; - - /* allow by default */ - sprintf(str, "Allow %s", command); - if (!getcfg(logbook, str, users)) - return TRUE; - - /* check if current user in list */ - n = strbreak(users, list, MAX_N_LIST); - for (i=0 ; i%s\" is not allowed for user \"%s\""), - command, getparam("full_name")); - show_error(str); - - return FALSE; -} - -/*------------------------------------------------------------------*/ - -int get_last_index(int index) -{ -int i, n_attr; -char str[80], date[80], attrib[MAX_N_ATTR][NAME_LENGTH], - orig_tag[80], reply_tag[80], att[MAX_ATTACHMENTS][256], encoding[80]; - - str[0] = 0; - n_attr = scan_attributes(logbook); - el_retrieve(str, date, attr_list, attrib, n_attr, - NULL, 0, orig_tag, reply_tag, att, encoding); - - strcpy(str, attrib[index]); - - /* look for first digit, return value */ - for (i=0 ; i<(int)strlen(str) ; i++) - if (isdigit(str[i])) - break; - - return atoi(str+i); -} - -/*------------------------------------------------------------------*/ - -void show_elog_new(char *path, BOOL bedit) -{ -int i, n, n_attr, index, size, wrap, fh, length; -char str[1000], preset[1000], *p, star[80], comment[10000]; -char list[MAX_N_ATTR][NAME_LENGTH], file_name[256], *buffer, format[256]; -char date[80], attrib[MAX_N_ATTR][NAME_LENGTH], text[TEXT_SIZE], - orig_tag[80], reply_tag[80], att[MAX_ATTACHMENTS][256], encoding[80], - slist[MAX_N_ATTR+10][NAME_LENGTH], svalue[MAX_N_ATTR+10][NAME_LENGTH]; -time_t now; - - n_attr = scan_attributes(logbook); - - for (i=0 ; iELOG\n"); - rsprintf("\n", - logbook_enc); - - /*---- title row ----*/ - - show_standard_title(logbook, "", 0); - - /*---- menu buttons ----*/ - - rsprintf("\n", - gt("Menu1 cellpadding"), gt("Frame color")); - - rsprintf("
\n", gt("Menu1 Align"), gt("Menu1 BGColor")); - - rsprintf("\n", loc("Submit")); - rsprintf("\n", loc("Back")); - rsprintf("
\n\n"); - - /*---- entry form ----*/ - - /* overall table for message giving blue frame */ - rsprintf("\n", - gt("Categories border"), gt("Categories cellpadding"), gt("Frame color")); - - /* print required message if one of the attributes has it set */ - for (i= 0 ; i < n_attr ; i++) - { - if (attr_flags[i] & AF_REQUIRED) - { - rsprintf("\n", - gt("Categories bgcolor1"), loc("Fields marked with"), loc("are required")); - break; - } - } - - time(&now); - if (bedit) - { - if (getcfg(logbook, "Date format", format)) - { - struct tm ts; - - memset(&ts, 0, sizeof(ts)); - - for (i=0 ; i<12 ; i++) - if (strncmp(date+4, mname[i], 3) == 0) - break; - ts.tm_mon = i; - - ts.tm_mday = atoi(date+8); - ts.tm_hour = atoi(date+11); - ts.tm_min = atoi(date+14); - ts.tm_sec = atoi(date+17); - ts.tm_year = atoi(date+20)-1900; - - mktime(&ts); - strftime(str, sizeof(str), format, &ts); - } - else - strcpy(str, date); - - rsprintf("\n\n", - gt("Categories bgcolor1"), loc("Entry date"), gt("Categories bgcolor2"), str); - } - else - { - if (getcfg(logbook, "Date format", format)) - strftime(str, sizeof(str), format, localtime(&now)); - else - strcpy(str, ctime(&now)); - - rsprintf("\n\n", - gt("Categories bgcolor1"), loc("Entry date"), gt("Categories bgcolor2"), str); - } - - /* display attributes */ - for (index = 0 ; index < n_attr ; index++) - { - strcpy(star, (attr_flags[index] & AF_REQUIRED) ? "*" : ""); - - /* check for preset string */ - sprintf(str, "Preset %s", attr_list[index]); - if (getcfg(logbook, str, preset)) - { - if (!bedit || (attr_flags[index] & AF_FIXED) == 0) - { - i = build_subst_list(slist, svalue, NULL); - strsubst(preset, slist, svalue, i); - - /* check for index substitution */ - if (!bedit && strchr(preset, '%')) - { - /* get index */ - i = get_last_index(index); - - strcpy(str, preset); - sprintf(preset, str, i+1); - } - - if (!strchr(preset, '%')) - strcpy(attrib[index], preset); - } - } - - if (attr_options[index][0][0] == 0) - { - /* display text box */ - rsprintf("", gt("Categories bgcolor1"), attr_list[index], star); - - if (attr_flags[index] & AF_LOCKED) - { - rsprintf("\n", - attr_list[index], attrib[index]); - } - else - rsprintf("\n", - gt("Categories bgcolor2"), NAME_LENGTH, attr_list[index], attrib[index]); - } - else - { - if (equal_ustring(attr_options[index][0], "boolean")) - { - /* display checkbox */ - rsprintf("\n"); - } - else - { - /* display drop-down box */ - rsprintf("\n"); - } - } - } - } - - if (path) - { - /* hidden text for original message */ - rsprintf("\n", path); - - if (bedit) - rsprintf("\n"); - } - - rsprintf("\n"); - - /* increased wrapping for replies (leave space for '> ' */ - wrap = (path && !bedit) ? 78 : 76; - - rsprintf("\n"); - - if (getcfg(logbook, "Number attachments", str)) - n = atoi(str); - else - n = 5; - - if (n > MAX_ATTACHMENTS) - n = MAX_ATTACHMENTS; - - if (n > 0) - { - if (bedit) - { - rsprintf("\n", loc("To delete an old attachment, enter <delete> in the new attachment field")); - - for (i=0 ; i", - gt("Categories bgcolor1"), loc("Original attachment"), i+1, loc("New attachment"), i+1); - - rsprintf("\n", - i+1); - } - else - rsprintf("\n", - gt("Categories bgcolor1"), loc("Attachment"), i+1, gt("Categories bgcolor2"), i+1); - } - - } - else - { - /* attachment */ - for (i=0 ; i\n", - gt("Categories bgcolor1"), loc("Attachment"), i+1, gt("Categories bgcolor2"), i+1); - } - } - - rsprintf("
%s * %s
%s:%s
%s:%s
%s%s:%s\n", gt("Categories bgcolor2"), attrib[index]); - rsprintf("
%s%s:\n", - gt("Categories bgcolor1"), attr_list[index], star, gt("Categories bgcolor2"), attr_list[index]); - } - else - { - if (attr_flags[index] & AF_MULTI) - { - /* display multiple check boxes */ - rsprintf("
%s%s:\n", - gt("Categories bgcolor1"), attr_list[index], star, gt("Categories bgcolor2")); - - for (i=0 ; i%s \n", str, attr_options[index][i], attr_options[index][i]); - else - rsprintf("%s \n", str, attr_options[index][i], attr_options[index][i]); - } - - rsprintf("
%s%s:
\n"); - - if (getcfg(logbook, "Message comment", comment) && !bedit && !path) - { - rsputs(comment); - rsputs("
\n"); - } - - if (!getcfg(logbook, "Show text", str) || atoi(str) == 1) - { - rsprintf("
\n"); - - /* HTML check box */ - if (bedit) - { - if (encoding[0] == 'H') - rsprintf("%s\n", loc("Submit as HTML text")); - else - rsprintf("%s\n", loc("Submit as HTML text")); - } - else - { - if (getcfg(logbook, "HTML default", str)) - { - if (atoi(str) == 0) - { - rsprintf("%s\n", loc("Submit as HTML text")); - } - else if (atoi(str) == 1) - { - rsprintf("%s\n", loc("Submit as HTML text")); - } - } - else - rsprintf("%s\n", loc("Submit as HTML text")); - } - } - - /* Suppress check box */ - if (getcfg(logbook, "Suppress default", str)) - { - if (atoi(str) == 0) - { - rsprintf("        \n"); - rsprintf("%s>\n", loc("Suppress Email notification")); - } - else if (atoi(str) == 1) - { - rsprintf("        \n"); - rsprintf("%s\n", loc("Suppress Email notification")); - } - } - else - { - rsprintf("        \n"); - rsprintf("%s\n", loc("Suppress Email notification")); - } - - if (bedit) - { - /* Resubmit check box */ - if (getcfg(logbook, "Resubmit default", str)) - { - if (atoi(str) == 0) - { - rsprintf("        \n"); - rsprintf("%s\n", loc("Resubmit as new entry")); - } - else if (atoi(str) == 1) - { - rsprintf("        \n"); - rsprintf("%s\n", loc("Resubmit as new entry")); - } - } - else - { - rsprintf("        \n"); - rsprintf("%s\n", loc("Resubmit as new entry")); - } - } - - rsprintf("
%s.
\n", - gt("Categories bgcolor1"), loc("If no attachments are resubmitted, the original ones are kept")); - rsprintf("%s.
%s %d:
%s %d:		%s
", gt("Categories bgcolor2"), att[i]+14); - rsprintf("
%s %d:
%s %d:
\n"); - - /*---- menu buttons again ----*/ - - rsprintf("\n", - gt("Menu1 cellpadding"), gt("Frame color")); - - rsprintf("
\n", gt("Menu1 Align"), gt("Menu1 BGColor")); - - rsprintf("\n", loc("Submit")); - rsprintf("\n", loc("Back")); - rsprintf("
\n\n"); - - rsprintf("\n"); - rsprintf("\r\n"); -} - -/*------------------------------------------------------------------*/ - -void show_elog_find() -{ -int i, j, n_attr; -char str[256]; - - n_attr = scan_attributes(logbook); - - /*---- header ----*/ - - show_standard_header(loc("ELOG find"), NULL); - - /*---- title ----*/ - - show_standard_title(logbook, "", 0); - - /*---- menu buttons ----*/ - - rsprintf("\n", - gt("Menu1 cellpadding"), gt("Frame color")); - - rsprintf("
\n", gt("Menu1 Align"), gt("Menu1 BGColor")); - - rsprintf("\n", loc("Search")); - rsprintf("\n", loc("Reset Form")); - rsprintf("\n", loc("Back")); - rsprintf("
\n\n"); - - /*---- entry form ----*/ - - /* overall table for message giving blue frame */ - rsprintf("\n", - gt("Categories border"), gt("Categories cellpadding"), gt("Frame color")); - - if (!getcfg(logbook, "Show text", str) || atoi(str) == 1) - { - rsprintf("\n"); - } - rsprintf("\n", loc("Show attachments")); - - rsprintf("\n", loc("Printable output")); - - rsprintf("\n", loc("Sort in reverse order")); - - /* count logbooks */ - for (i=0 ; ; i++) - { - if (!enumgrp(i, str)) - break; - - if (equal_ustring(str, "global")) - continue; - } - - if (i > 2) - { - rsprintf("\n", loc("Search all logbooks")); - } - - rsprintf("", gt("Categories bgcolor1"), loc("Start date")); - rsprintf("\n"); - - rsprintf("", gt("Categories bgcolor1"), loc("End date")); - rsprintf("\n"); - - rsprintf("\n"); - - for (i=0 ; i", gt("Categories bgcolor1"), attr_list[i]); - rsprintf("\n"); - } - - if (!getcfg(logbook, "Show text", str) || atoi(str) == 1) - { - rsprintf("", gt("Categories bgcolor1"), loc("Text")); - rsprintf("\n", loc("(case insensitive substring)")); - } - - rsprintf("
", gt("Categories bgcolor2")); - - if (getcfg(logbook, "Summary on default", str) && atoi(str) == 1) - rsprintf("%s\n", loc("Summary only")); - else - rsprintf("%s\n", loc("Summary only")); - rsprintf("
", gt("Categories bgcolor2")); - rsprintf("%s
", gt("Categories bgcolor2")); - rsprintf("%s
", gt("Categories bgcolor2")); - rsprintf("%s
", gt("Categories bgcolor2")); - rsprintf("%s
%s:\n"); - - rsprintf("\n"); - - rsprintf(" %s: ", loc("Year")); - rsprintf("
%s:\n"); - - rsprintf("\n"); - - rsprintf(" %s: ", loc("Year")); - rsprintf("
%s:", gt("Categories bgcolor2")); - if (attr_options[i][0][0] == 0) - { - rsprintf("\n", attr_list[i]); - rsprintf("%s\n", loc("(case insensitive substring)")); - } - else - { - if (equal_ustring(attr_options[i][0], "boolean")) - rsprintf("\n", attr_list[i]); - else - { - rsprintf("\n"); - } - } - rsprintf("
%s:\n", - gt("Categories bgcolor2")); - rsprintf("%s
\n"); - rsprintf("\r\n"); -} - -/*------------------------------------------------------------------*/ - -void show_config_page() -{ -int fh, length; -char *buffer; - - /*---- header ----*/ - - rsprintf("HTTP/1.1 200 Document follows\r\n"); - rsprintf("Server: ELOG HTTP %s\r\n", VERSION); - if (use_keepalive) - { - rsprintf("Connection: Keep-Alive\r\n"); - rsprintf("Keep-Alive: timeout=60, max=10\r\n"); - } - rsprintf("Content-Type: text/html\r\n\r\n"); - - rsprintf("ELOG config\n"); - rsprintf("\n", - logbook_enc); - - /*---- title ----*/ - - show_standard_title(logbook, "", 0); - - /*---- menu buttons ----*/ - - rsprintf("\n", - gt("Menu1 cellpadding"), gt("Frame color")); - - rsprintf("
\n", gt("Menu1 Align"), gt("Menu1 BGColor")); - - rsprintf("\n", loc("Save")); - rsprintf("\n", loc("Cancel")); - rsprintf("
\n\n"); - - /*---- entry form ----*/ - - /* overall table for message giving blue frame */ - rsprintf("\n", - gt("Categories border"), gt("Categories cellpadding"), gt("Frame color")); - - rsprintf("
", gt("Categories bgcolor2")); - - fh = open(cfg_file, O_RDONLY | O_BINARY); - if (fh < 0) - { - rsprintf("Cannot read configuration file \"%s\"", cfg_file); - rsprintf("
\n"); - rsprintf("\r\n"); - return; - } - length = lseek(fh, 0, SEEK_END); - lseek(fh, 0, SEEK_SET); - buffer = malloc(length+1); - if (buffer == NULL) - { - close(fh); - rsprintf("Error: out of memory

"); - rsprintf("\n"); - rsprintf("\r\n"); - return; - } - read(fh, buffer, length); - buffer[length] = 0; - close(fh); - - rsprintf("
\n"); - - rsprintf("\n"); - - /*---- menu buttons ----*/ - - rsprintf("\n", - gt("Menu1 cellpadding"), gt("Frame color")); - - rsprintf("
\n", gt("Menu1 Align"), gt("Menu1 BGColor")); - - rsprintf("\n", loc("Save")); - rsprintf("\n", loc("Cancel")); - rsprintf("
\n\n"); - - rsprintf("\n\n"); - rsprintf("\r\n"); -} - -/*------------------------------------------------------------------*/ - -int save_config() -{ -int fh, i; -char str[80]; - - fh = open(cfg_file, O_RDWR | O_BINARY | O_TRUNC, 644); - if (fh < 0) - { - sprintf(str, "%s: %s", loc("Cannot open file %s"), cfg_file, strerror(errno)); - show_error(str); - return 0; - } - i = write(fh, _text, strlen(_text)); - if (i < (int)strlen(_text)) - { - sprintf(str, "%s: %s", loc("Cannot write to %s"), cfg_file, strerror(errno)); - show_error(str); - close(fh); - return 0; - } - - close(fh); - return 1; -} - -/*------------------------------------------------------------------*/ - -void show_elog_delete(char *path) -{ -int status; -char str[256]; - - /* redirect if confirm = NO */ - if (getparam("confirm") && *getparam("confirm") && - strcmp(getparam("confirm"), loc("No")) == 0) - { - sprintf(str, "%s", path); - redirect(str); - return; - } - - /* header */ - sprintf(str, "%s", path); - show_standard_header("Delete ELog entry", str); - - rsprintf("

", - gt("Border width"), gt("Frame color")); - rsprintf("
\n", gt("Frame color")); - - if (getparam("confirm") && *getparam("confirm")) - { - if (strcmp(getparam("confirm"), loc("Yes")) == 0) - { - /* delete message */ - status = el_delete_message(path); - rsprintf("\n", loc("Message successfully deleted")); - else - rsprintf("%s = %d\n", loc("Error deleting message: status"), status); - - rsprintf("\n", loc("Last")); - rsprintf("\n", - gt("Cell BGColor"), loc("Goto last message")); - } - } - else - { - /* define hidden field for command */ - rsprintf("\n", loc("Delete")); - - rsprintf("\n", gt("Title fontcolor"), - loc("Are you sure to delete this message?")); - - rsprintf("\n", gt("Cell BGColor"), path); - - rsprintf("\n\n"); - } - - rsprintf("
"); - if (status == EL_SUCCESS) - rsprintf("%s
", gt("Title bgcolor")); - rsprintf("%s
%s
\n", - gt("Cell BGColor"), loc("Yes")); - rsprintf("\n", loc("No")); - rsprintf("
\n"); - rsprintf("\r\n"); -} - -/*------------------------------------------------------------------*/ - -void show_elog_submit_find(INT past_n, INT last_n) -{ -int i, j, n, size, status, d1, m1, y1, d2, m2, y2, index, colspan, i_line, n_line, i_col; -int current_year, current_month, current_day, printable, n_logbook, lindex, n_attr, - reverse, n_attr_disp, n_found; -char date[80], attrib[MAX_N_ATTR][NAME_LENGTH], disp_attr[MAX_N_ATTR][NAME_LENGTH], - list[10000], text[TEXT_SIZE], text1[TEXT_SIZE], text2[TEXT_SIZE], - orig_tag[80], reply_tag[80], attachment[MAX_ATTACHMENTS][256], encoding[80]; -char str[256], tag[256], ref[256], file_name[256], col[80], old_data_dir[256]; -char logbook_list[100][256], lb_enc[256], *nowrap, format[80]; -char menu_str[1000], menu_item[MAX_N_LIST][NAME_LENGTH]; -char *p , *pt, *pt1, *pt2; -BOOL full, show_attachments; -time_t ltime, ltime_start, ltime_end, ltime_current, now; -struct tm tms, *ptms; -FILE *f; - - n_attr = scan_attributes(logbook); - - printable = atoi(getparam("Printable")); - - if (*getparam("Reverse")) - reverse = atoi(getparam("Reverse")); - else - { - reverse = 0; - if (getcfg(logbook, "Reverse sort", str)) - reverse = atoi(str); - } - - /*---- header ----*/ - - show_standard_header(loc("ELOG search result"), NULL); - - /*---- title ----*/ - - strcpy(str, ", "); - if (past_n == 1) - strcat(str, loc("Last day")); - else if (past_n > 1) - sprintf(str+strlen(str), loc("Last %d days"), past_n); - else if (last_n) - sprintf(str+strlen(str), loc("Last %d entries"), last_n); - - if (printable) - show_standard_title(logbook, str, 1); - else - show_standard_title(logbook, str, 0); - - /* get mode */ - if (past_n || last_n) - { - if (getcfg(logbook, "Summary on default", str)) - full = !atoi(str); - else - full = TRUE; - - show_attachments = FALSE; - } - else - { - full = !(*getparam("mode")); - show_attachments = (*getparam("attach") > 0); - } - - time(&now); - ptms = localtime(&now); - current_year = ptms->tm_year+1900; - current_month = ptms->tm_mon+1; - current_day = ptms->tm_mday; - - /*---- menu buttons ----*/ - - if (!printable) - { - rsprintf("\n", - gt("Menu1 cellpadding"), gt("Frame color")); - - rsprintf("
\n", gt("Menu1 Align"), gt("Menu1 BGColor")); - - if (getcfg(logbook, "Find menu commands", menu_str)) - { - n = strbreak(menu_str, menu_item, MAX_N_LIST); - - if (atoi(gt("Use buttons")) == 1) - { - for (i=0 ; i\n", str); - } - - if (last_n) - { - sprintf(str, loc("Last %d entries"), last_n*2); - rsprintf("\n", str); - } - } - else - rsprintf("\n", menu_item[i]); - } - } - else - { - rsprintf("\n"); - - for (i=0 ; i%s |\n", logbook_enc, past_n*2, str); - } - - if (last_n) - { - sprintf(str, loc("Last %d entries"), last_n*2); - rsprintf(" %s |\n", logbook_enc, last_n*2, str); - } - } - else - { - strcpy(str, menu_item[i]); - url_encode(str); - - if (i < n-1) - rsprintf(" %s |\n", logbook_enc, str, menu_item[i]); - else - rsprintf(" %s \n", logbook_enc, str, menu_item[i]); - } - } - - rsprintf("\n"); - } - } - else - { - if (atoi(gt("Use buttons")) == 1) - { - if (past_n) - { - sprintf(str, loc("Last %d days"), past_n*2); - rsprintf("\n", str); - } - - if (last_n) - { - sprintf(str, loc("Last %d entries"), last_n*2); - rsprintf("\n", str); - } - - rsprintf("\n", loc("Find")); - rsprintf("\n", loc("Back")); - } - else - { - rsprintf("\n"); - - if (past_n) - { - sprintf(str, loc("Last %d days"), past_n*2); - rsprintf(" %s |\n", logbook_enc, past_n*2, str); - } - - if (last_n) - { - sprintf(str, loc("Last %d entries"), last_n*2); - rsprintf(" %s |\n", logbook_enc, last_n*2, str); - } - - rsprintf(" %s |\n", logbook_enc, loc("Find"), loc("Find")); - rsprintf(" %s \n", logbook_enc, loc("Back"), loc("Back")); - - rsprintf("\n"); - } - - } - - rsprintf("
\n\n"); - } - - /*---- convert end date to ltime ----*/ - - ltime_end = ltime_start = 0; - - if (!past_n && !last_n) - { - if (*getparam("m1") || *getparam("y1") || *getparam("d1")) - { - /* if year not given, use current year */ - if (!*getparam("y1")) - y1 = current_year; - else - y1 = atoi(getparam("y1")); - if (y1 < 1990 || y1 > current_year) - { - rsprintf("\r\n"); - rsprintf("

Error: year %s out of range

", getparam("y1")); - rsprintf("\r\n"); - return; - } - - /* if month not given, use current month */ - if (*getparam("m1")) - { - strcpy(str, getparam("m1")); - for (m1=0 ; m1<12 ; m1++) - if (equal_ustring(str, mname[m1])) - break; - if (m1 == 12) - m1 = 0; - m1++; - } - else - m1 = current_month; - - /* if day not given, use 1 */ - if (*getparam("d1")) - d1 = atoi(getparam("d1")); - else - d1 = 1; - - memset(&tms, 0, sizeof(struct tm)); - tms.tm_year = y1 % 100; - tms.tm_mon = m1-1; - tms.tm_mday = d1; - tms.tm_hour = 0; - - if (tms.tm_year < 90) - tms.tm_year += 100; - ltime_start = mktime(&tms); - } - - if (*getparam("m2") || *getparam("y2") || *getparam("d2")) - { - /* if year not give, use current year */ - if (*getparam("y2")) - y2 = atoi(getparam("y2")); - else - y2 = current_year; - - if (y2 < 1990 || y2 > current_year) - { - rsprintf("\r\n"); - rsprintf("

Error: year %d out of range

", y2); - rsprintf("\r\n"); - return; - } - - /* if month not given, use current month */ - if (*getparam("m2")) - { - strcpy(str, getparam("m2")); - for (m2=0 ; m2<12 ; m2++) - if (equal_ustring(str, mname[m2])) - break; - if (m2 == 12) - m2 = 0; - m2++; - } - else - m2 = current_month; - - /* if day not given, use last day of month */ - if (*getparam("d2")) - d2 = atoi(getparam("d2")); - else - { - memset(&tms, 0, sizeof(struct tm)); - tms.tm_year = y2 % 100; - tms.tm_mon = m2-1+1; - tms.tm_mday = 1; - tms.tm_hour = 12; - - if (tms.tm_year < 90) - tms.tm_year += 100; - ltime = mktime(&tms); - ltime -= 3600*24; - memcpy(&tms, localtime(<ime), sizeof(struct tm)); - d2 = tms.tm_mday; - } - - memset(&tms, 0, sizeof(struct tm)); - tms.tm_year = y2 % 100; - tms.tm_mon = m2-1; - tms.tm_mday = d2; - tms.tm_hour = 0; - tms.tm_min = 0; - tms.tm_sec = 0; - - if (tms.tm_year < 90) - tms.tm_year += 100; - ltime_end = mktime(&tms); - - /* end time is first second of next day */ - ltime_end += 3600*24; - - memcpy(&tms, localtime(<ime_end), sizeof(struct tm)); - y2 = tms.tm_year + 1900; - m2 = tms.tm_mon +1; - d2 = tms.tm_mday; - } - } - - if (ltime_start && ltime_end && ltime_start > ltime_end) - { - rsprintf("\r\n"); - rsprintf("

Error: start time after end time

", y2); - rsprintf("\r\n"); - return; - } - - /*---- display filters ----*/ - - rsprintf("\n", - printable ? "1" : gt("Border width"), gt("Categories cellpadding")); - - if (*getparam("m1") || *getparam("y1") || *getparam("d1")) - rsprintf("", - gt("Categories bgcolor1"), loc("Start date"), gt("Categories bgcolor2"), mname[m1-1], d1, y1); - - if (*getparam("m2") || *getparam("y2") || *getparam("d2")) - { - /* calculate previous day */ - memset(&tms, 0, sizeof(struct tm)); - tms.tm_year = y2 % 100; - tms.tm_mon = m2-1; - tms.tm_mday = d2; - tms.tm_hour = 12; - - if (tms.tm_year < 90) - tms.tm_year += 100; - ltime = mktime(&tms); - ltime -= 3600*24; - memcpy(&tms, localtime(<ime), sizeof(struct tm)); - - rsprintf("", - gt("Categories bgcolor1"), loc("End date"), gt("Categories bgcolor2"), - mname[tms.tm_mon], tms.tm_mday, tms.tm_year + 1900); - } - - for (i=0 ; i", - gt("Categories bgcolor1"), attr_list[i], gt("Categories bgcolor2"), getparam(attr_list[i])); - } - - if (*getparam("subtext")) - { - rsprintf("", gt("Categories bgcolor1"), loc("Text")); - rsprintf("", - gt("Categories bgcolor2"), getparam("subtext")); - } - - rsprintf("
%s:%s %d, %d
%s:%s %d, %d
%s:%s
%s:%s
\n\n"); - - /* get number of summary lines */ - n_line = 3; - if (getcfg(logbook, "Summary lines", str)) - n_line = atoi(str); - - /*---- table titles ----*/ - - rsprintf("\n", - printable ? "1" : gt("Border width"), gt("Categories cellpadding"), gt("Frame color")); - - strcpy(col, gt("Categories bgcolor1")); - rsprintf("\n"); - - size = printable ? 2 : 3; - - rsprintf("", col, size); - - if (atoi(getparam("all")) == 1) - rsprintf("", col, size); - - rsprintf("", col, size); - - if (getcfg(logbook, "Display search", list)) - n_attr_disp = strbreak(list, disp_attr, MAX_N_ATTR); - else - { - n_attr_disp = n_attr; - memcpy(disp_attr, attr_list, sizeof(attr_list)); - } - - for (i=0 ; i%s", - col, size, attr_list[i]); - } - - if (!full && n_line > 0) - rsprintf("", - col, size); - - rsprintf("\n\n"); - - /*---- do find ----*/ - - i_col = 0; - n_found = 0; - - old_data_dir[0] = 0; - if (atoi(getparam("all")) == 1) - { - /* count logbooks */ - for (i=n_logbook=0 ; ; i++) - { - if (!enumgrp(i, str)) - break; - - if (equal_ustring(str, "global")) - continue; - - strcpy(logbook_list[n_logbook++], str); - } - - strcpy(old_data_dir, data_dir); - } - else - { - strcpy(logbook_list[0], logbook); - n_logbook = 1; - } - - /* loop through all logbooks */ - for (lindex=0 ; lindex 1) - { - /* set data_dir from logbook */ - getcfg(logbook_list[lindex], "Data dir", str); - if (str[0] == DIR_SEPARATOR || str[1] == ':') - strcpy(data_dir, str); - else - { - strcpy(data_dir, cfg_dir); - strcat(data_dir, str); - } - - if (data_dir[strlen(data_dir)-1] != DIR_SEPARATOR) - strcat(data_dir, DIR_SEPARATOR_STR); - } - - if (past_n) - { - if (reverse) - { - strcpy(tag, "-1"); - el_search_message(tag, NULL, TRUE, FALSE); - - time(&now); - ltime_start = now-3600*24*past_n; - } - else - { - time(&now); - ltime_start = now-3600*24*past_n; - ptms = localtime(<ime_start); - - sprintf(tag, "%02d%02d%02d.0", ptms->tm_year % 100, ptms->tm_mon+1, ptms->tm_mday); - } - } - else if (last_n) - { - strcpy(tag, "-1"); - el_search_message(tag, NULL, TRUE, FALSE); - - if (!reverse) - for (i=1 ; i 0) - if (ltime_current < ltime_start) - break; - - /* check for end date */ - if (ltime_end > 0) - { - if (ltime_current > ltime_end) - continue; - } - } - else - { - /* check for start date */ - if (ltime_start > 0) - if (ltime_current < ltime_start) - continue; - - /* check for end date */ - if (ltime_end > 0) - { - if (ltime_current > ltime_end) - break; - } - } - - if (status == EL_SUCCESS) - { - /* do filtering */ - for (i=0 ; i"); - - pt2 += strlen(pt2); - - /* copy origial search text */ - memcpy(pt2, pt, strlen(str)); - pt2 += strlen(str); - pt += strlen(str); - - /* add coloring 2nd part */ - if (equal_ustring(encoding, "plain")) - strcpy(pt2, "\001/B\002"); - else - strcpy(pt2, ""); - pt2 += strlen(pt2); - } - } while (p != NULL); - - strcpy(pt2, pt); - strcpy(text, text2); - } - - /* filter passed: display line */ - - n_found++; - - strcpy(str, tag); - if (strchr(str, '+')) - *strchr(str, '+') = 0; - if (strchr(str, '-')) - *strchr(str, '-') = 0; - - strcpy(lb_enc, logbook_list[lindex]); - url_encode(lb_enc); - sprintf(ref, "/%s/%s", lb_enc, str); - - if (full) - { - strcpy(col, gt("List bgcolor1")); - rsprintf(""); - - size = printable ? 2 : 3; - nowrap = printable ? "" : "nowrap"; - - rsprintf("", col, size, ref, n_found); - - if (atoi(getparam("all")) == 1) - rsprintf("", nowrap, col, size, logbook_list[lindex]); - - if (getcfg(logbook, "Date format", format)) - { - struct tm ts; - - memset(&ts, 0, sizeof(ts)); - - for (i=0 ; i<12 ; i++) - if (strncmp(date+4, mname[i], 3) == 0) - break; - ts.tm_mon = i; - - ts.tm_mday = atoi(date+8); - ts.tm_hour = atoi(date+11); - ts.tm_min = atoi(date+14); - ts.tm_sec = atoi(date+17); - ts.tm_year = atoi(date+20)-1900; - - mktime(&ts); - strftime(str, sizeof(str), format, &ts); - } - else - strcpy(str, date); - - rsprintf("", nowrap, col, size, str); - - for (i=0 ; i\n", col); - else - rsprintf("\n", col); - } - else - { - rsprintf(""); - } - } - - rsprintf("\n"); - - if (atoi(getparam("all")) == 1) - colspan = 3+n_attr_disp; - else - colspan = 2+n_attr_disp; - - if (!getcfg(logbook, "Show text", str) || atoi(str) == 1) - { - rsprintf("\n"); - } - - if (!show_attachments && attachment[0][0]) - { - rsprintf("", colspan, ref); - } - else - { - rsprintf("\n"); - } - } - } - } - - if (!show_attachments && attachment[0][0]) - rsprintf("\n"); - - } - else - { - if (i_col % 2 == 0) - strcpy(col, gt("List bgcolor1")); - else - strcpy(col, gt("List bgcolor2")); - i_col++; - - rsprintf(""); - - size = printable ? 2 : 3; - nowrap = printable ? "" : "nowrap"; - - rsprintf("", col, size, ref, n_found); - - if (atoi(getparam("all")) == 1) - rsprintf("", nowrap, col, logbook_list[lindex]); - - if (getcfg(logbook, "Date format", format)) - { - struct tm ts; - - memset(&ts, 0, sizeof(ts)); - - for (i=0 ; i<12 ; i++) - if (strncmp(date+4, mname[i], 3) == 0) - break; - ts.tm_mon = i; - - ts.tm_mday = atoi(date+8); - ts.tm_hour = atoi(date+11); - ts.tm_min = atoi(date+14); - ts.tm_sec = atoi(date+17); - ts.tm_year = atoi(date+20)-1900; - - mktime(&ts); - strftime(str, sizeof(str), format, &ts); - } - else - strcpy(str, date); - - rsprintf("", nowrap, col, size, str); - - for (i=0 ; i\n", col); - else - rsprintf("\n", col); - } - else - rsprintf("", col, size, attrib[i]); - } - - if (n_line > 0) - { - rsprintf("\n"); - } - - rsprintf("\n"); - } - } - - /* stop after all found (needed for reverse search) */ - if (last_n && n_found >= last_n) - break; - - } while (status == EL_SUCCESS); - } /* for () */ - - rsprintf("
#LogbookDateText
  %d  %s%s", col, size); - rsputs2(attrib[i]); - rsprintf(" 
", colspan, size); - - if (equal_ustring(encoding, "plain")) - { - rsputs("
");
-              rsputs2(text);
-              rsputs("
"); - } - else - rsputs(text); - - rsprintf("
", colspan, size); - - if (attachment[1][0]) - rsprintf("%s: ", loc("Attachments")); - else - rsprintf("%s: ", loc("Attachment")); - } - - for (index = 0 ; index < MAX_ATTACHMENTS ; index++) - { - if (attachment[index][0]) - { - strcpy(str, attachment[index]); - str[13] = 0; - sprintf(ref, "/%s/%s/%s", logbook_enc, str, attachment[index]+14); - - for (i=0 ; i<(int)strlen(attachment[index]) ; i++) - str[i] = toupper(attachment[index][i]); - str[i] = 0; - - if (!show_attachments) - { - rsprintf("%s     ", - ref, attachment[index]+14); - } - else - { - if (strstr(str, ".GIF") || - strstr(str, ".JPG") || - strstr(str, ".PNG")) - { - rsprintf("
%s %d: %s\n", - colspan, gt("List bgcolor2"), loc("Attachment"), index+1, ref, attachment[index]+14); - if (show_attachments) - rsprintf("
%s %d: %s\n", - colspan, gt("List bgcolor2"), loc("Attachment"), index+1, ref, attachment[index]+14); - - if ((strstr(str, ".TXT") || - strstr(str, ".ASC") || - strchr(str, '.') == NULL) && show_attachments) - { - /* display attachment */ - rsprintf("
", size);
-
-                    strcpy(file_name, data_dir);
-
-                    strcat(file_name, attachment[index]);
-
-                    f = fopen(file_name, "rt");
-                    if (f != NULL)
-                      {
-                      while (!feof(f))
-                        {
-                        str[0] = 0;
-                        fgets(str, sizeof(str), f);
-                        rsputs2(str);
-                        }
-                      fclose(f);
-                      }
-
-                    rsprintf("
\n"); - } - rsprintf("
  %d  %s%s%s ", col, size); - for (i=i_line=0 ; i
\n"); - - if (n_found == 0) - { - rsprintf("\n", - printable ? "1" : gt("Border width"), gt("Categories cellpadding"), gt("Frame color")); - - rsprintf("", loc("No entries found")); - - rsprintf("
%s
\n"); - } - - rsprintf("\n"); - - if (getcfg(logbook, "bottom text", str)) - { - FILE *f; - char file_name[256], *buf; - - strcpy(file_name, cfg_dir); - strcat(file_name, str); - - f = fopen(file_name, "r"); - if (f != NULL) - { - fseek(f, 0, SEEK_END); - size = TELL(fileno(f)); - fseek(f, 0, SEEK_SET); - - buf = malloc(size+1); - fread(buf, 1, size, f); - buf[size] = 0; - fclose(f); - - rsputs(buf); - } - } - else - /* add little logo */ - rsprintf("
ELOG V%s
", VERSION); - - rsprintf("\r\n"); - - /* restor old data_dir */ - if (old_data_dir[0]) - strcpy(data_dir, old_data_dir); -} - -/*------------------------------------------------------------------*/ - -void submit_elog() -{ -char str[256], mail_to[256], mail_from[256], file_name[256], error[1000], - mail_text[10000], mail_list[MAX_N_LIST][NAME_LENGTH], list[10000], smtp_host[256], - tag[80], subject[256], attrib[MAX_N_ATTR][NAME_LENGTH], subst_str[256]; -char *buffer[MAX_ATTACHMENTS], mail_param[1000]; -char att_file[MAX_ATTACHMENTS][256]; -char slist[MAX_N_ATTR+10][NAME_LENGTH], svalue[MAX_N_ATTR+10][NAME_LENGTH]; -int i, j, n, missing, first, index, n_attr, n_mail, suppress, status; - - n_attr = scan_attributes(logbook); - - /* check for required attributs */ - missing = 0; - for (i=0 ; i

", - gt("Border width"), gt("Frame color")); - rsprintf("
\n", gt("Frame color")); - rsprintf("\n"); - - rsprintf("\n", loc("Back")); - - - rsprintf("
"); - - rsprintf(""); - rsprintf(loc("Error: Attribute %s not supplied"), attr_list[i]); - rsprintf(".

\n"); - rsprintf(loc("Please go back and enter the %s field"), attr_list[i]); - rsprintf(".

", gt("Cell BGColor")); - rsprintf("
\n"); - rsprintf("\n"); - return; - } - - /* check for valid attachment files */ - for (i=0 ; i"))) - { - sprintf(error, loc("Error: Attachment file %s invalid, please bo back and enter a proper file name"), getparam(str)); - show_error(error); - return; - } - } - - /* compile substitution list */ - n = build_subst_list(slist, svalue, NULL); - - /* retrieve attributes */ - for (i=0 ; i"); - strcat(str, loc("Please check that it exists and elogd has write access")); - show_error(str); - return; - } - - suppress = atoi(getparam("suppress")); - - /* check for mail submissions */ - mail_param[0] = 0; - n_mail = 0; - - if (suppress) - { - strcpy(mail_param, "?suppress=1"); - } - else - { - for (index=0 ; index <= n_attr ; index++) - { - if (index < n_attr) - { - strcpy(str, "Email "); - if (strchr(attr_list[index], ' ')) - sprintf(str+strlen(str), "\"%s\"", attr_list[index]); - else - strcat(str, attr_list[index]); - strcat(str, " "); - - if (strchr(getparam(attr_list[index]), ' ')) - sprintf(str+strlen(str), "\"%s\"", getparam(attr_list[index])); - else - strcat(str, getparam(attr_list[index])); - } - else - sprintf(str, "Email ALL"); - - if (getcfg(logbook, str, list)) - { - n = strbreak(list, mail_list, MAX_N_LIST); - - if (verbose) - printf("\n%s to %s\n\n", str, list); - - if (!getcfg("global", "SMTP host", smtp_host)) - if (!getcfg("global", "SMTP host", smtp_host)) - { - show_error(loc("No SMTP host defined in [global] section of configuration file")); - return; - } - - for (i=0 ; iredir\r\n", - logbook_enc, tag, mail_param); -} - -/*------------------------------------------------------------------*/ - -void copy_to(char *src_path, char *dst_logbook, int move) -{ -int size, i, status, fh, n_attr; -char str[256], file_name[256], attrib[MAX_N_ATTR][NAME_LENGTH]; -char date[80], text[TEXT_SIZE], old_data_dir[256], tag[32], - orig_tag[80], reply_tag[80], attachment[MAX_ATTACHMENTS][256], encoding[80]; - - n_attr = scan_attributes(logbook); - - /* get message */ - size = sizeof(text); - status = el_retrieve(src_path, date, attr_list, attrib, n_attr, - text, &size, orig_tag, reply_tag, - attachment, encoding); - - if (status != EL_SUCCESS) - { - sprintf(str, loc("Message %s cannot be read from logbook \"%s\""), src_path, logbook); - show_error(str); - return; - } - - /* read attachments */ - for (i=0 ; i 0) - { - lseek(fh, 0, SEEK_END); - _attachment_size[i] = TELL(fh); - lseek(fh, 0, SEEK_SET); - - _attachment_buffer[i] = malloc(_attachment_size[i]); - - if (_attachment_buffer[i]) - read(fh, _attachment_buffer[i], _attachment_size[i]); - - close(fh); - } - - /* stip date/time from file name */ - strcpy(str, attachment[i]); - strcpy(attachment[i], str+14); - } - - /* switch to destination logbook data directory */ - - strcpy(old_data_dir, data_dir); - getcfg(dst_logbook, "Data dir", str); - if (str[0] == DIR_SEPARATOR || str[1] == ':') - strcpy(data_dir, str); - else - { - strcpy(data_dir, cfg_dir); - strcat(data_dir, str); - } - - if (data_dir[strlen(data_dir)-1] != DIR_SEPARATOR) - strcat(data_dir, DIR_SEPARATOR_STR); - - tag[0] = 0; - status = el_submit(attr_list, attrib, n_attr, text, - orig_tag, encoding, - attachment, - _attachment_buffer, - _attachment_size, - tag, sizeof(tag)); - - for (i=0 ; i"); - strcat(str, loc("Please check that it exists and elogd has write access")); - show_error(str); - return; - } - - /* delete original message for move */ - if (move) - { - el_delete_message(src_path); - - /* check if this was the last message */ - size = sizeof(text); - status = el_retrieve(src_path, date, attr_list, attrib, n_attr, - text, &size, orig_tag, reply_tag, - attachment, encoding); - - /* if yes, force display of new last message */ - if (status != EL_SUCCESS) - src_path[0] = 0; - } - - /* display status message */ - show_standard_header(loc("Copy ELog entry"), src_path); - - rsprintf("

", - gt("Border width"), gt("Frame color")); - rsprintf("
\n", gt("Frame color")); - - rsprintf("\n"); - rsprintf("\n", - gt("Cell BGColor"), loc("Go to"), logbook, src_path, logbook); - rsprintf("\n", - gt("Cell BGColor"), loc("Go to"), dst_logbook, dst_logbook); - - rsprintf("
"); - if (move) - rsprintf(loc("Message moved successfully from \"%s\" to \"%s\""), logbook, dst_logbook); - else - rsprintf(loc("Message copied successfully from \"%s\" to \"%s\""), logbook, dst_logbook); - - rsprintf("
%s %s
%s %s
\n"); - rsprintf("\r\n"); - - return; -} - -/*------------------------------------------------------------------*/ - -void show_elog_page(char *logbook, char *path) -{ -int size, i, j, len, n, msg_status, status, fh, length, first_message, last_message, index, n_attr; -char str[256], orig_path[256], command[80], ref[256], file_name[256], attrib[MAX_N_ATTR][NAME_LENGTH]; -char date[80], text[TEXT_SIZE], menu_str[1000], other_str[1000], cmd[256], - orig_tag[80], reply_tag[80], attachment[MAX_ATTACHMENTS][256], encoding[80], att[256], lattr[256]; -char menu_item[MAX_N_LIST][NAME_LENGTH], format[80], - slist[MAX_N_ATTR+10][NAME_LENGTH], svalue[MAX_N_ATTR+10][NAME_LENGTH]; -FILE *f; - - n_attr = scan_attributes(logbook); - - if (getcfg(logbook, "Types", str)) - { - show_upgrade_page(); - return; - } - - /*---- interprete commands ---------------------------------------*/ - - strcpy(command, getparam("cmd")); - - /* correct for image buttons */ - if (*getparam("cmd_first.x")) - strcpy(command, loc("First")); - if (*getparam("cmd_previous.x")) - strcpy(command, loc("Previous")); - if (*getparam("cmd_next.x")) - strcpy(command, loc("Next")); - if (*getparam("cmd_last.x")) - strcpy(command, loc("Last")); - - /* check if command allowed for current user */ - if (!allow_user(command)) - return; - - /* get menu command */ - getcfg(logbook, "Menu commands", menu_str); - if (menu_str[0] == 0) - { - strcpy(menu_str, loc("New")); - strcat(menu_str, ", "); - strcat(menu_str, loc("Edit")); - strcat(menu_str, ", "); - strcat(menu_str, loc("Delete")); - strcat(menu_str, ", "); - strcat(menu_str, loc("Reply")); - strcat(menu_str, ", "); - strcat(menu_str, loc("Find")); - strcat(menu_str, ", "); - strcat(menu_str, loc("Last day")); - strcat(menu_str, ", "); - strcat(menu_str, loc("Last 10")); - strcat(menu_str, ", "); - strcat(menu_str, loc("Config")); - strcat(menu_str, ", "); - - if (getcfg(logbook, "Password file", str)) - { - strcat(menu_str, loc("Change Password")); - strcat(menu_str, ", "); - strcat(menu_str, loc("Logout")); - strcat(menu_str, ", "); - } - - strcat(menu_str, loc("Help")); - } - - strcpy(other_str, loc("Submit")); - strcat(other_str, " "); - strcat(other_str, loc("Back")); - strcat(other_str, " "); - strcat(other_str, loc("Search")); - strcat(other_str, " "); - strcat(other_str, loc("Save")); - strcat(other_str, " "); - strcat(other_str, loc("Cancel")); - strcat(other_str, " "); - strcat(other_str, loc("First")); - strcat(other_str, " "); - strcat(other_str, loc("Last")); - strcat(other_str, " "); - strcat(other_str, loc("Previous")); - strcat(other_str, " "); - strcat(other_str, loc("Next")); - - /* check if command is present in the menu list */ - if (command[0] && strstr(menu_str, command) == NULL && - strstr(other_str, command) == NULL) - { - sprintf(str, loc("Error: Command \"%s\" not allowed"), command); - show_error(str); - return; - } - - if (equal_ustring(command, loc("Help"))) - { - if (getcfg(logbook, "Help URL", str)) - { - /* if file is given, add '/' to make absolute path */ - if (strchr(str, '/') == NULL) - sprintf(ref, "/%s", str); - else - strcpy(ref, str); - - redirect3(ref); - return; - } - - /* send local help file */ - strcpy(file_name, cfg_dir); - strcat(file_name, "eloghelp_"); - - if (getcfg("global", "Language", str)) - { - str[2] = 0; - strcat(file_name, str); - } - else - strcat(file_name, "en"); - strcat(file_name, ".html"); - - f = fopen(file_name, "r"); - if (f == NULL) - redirect3("http://midas.psi.ch/elog/eloghelp_en.html"); - else - { - fclose(f); - send_file(file_name); - } - return; - } - - if (equal_ustring(command, loc("New"))) - { - show_elog_new(NULL, FALSE); - return; - } - - if (equal_ustring(command, loc("Edit"))) - { - if (path[0]) - { - show_elog_new(path, TRUE); - return; - } - } - - if (equal_ustring(command, loc("Reply"))) - { - show_elog_new(path, FALSE); - return; - } - - if (equal_ustring(command, loc("Submit"))) - { - submit_elog(); - return; - } - - if (equal_ustring(command, loc("Find"))) - { - show_elog_find(); - return; - } - - if (equal_ustring(command, loc("Search"))) - { - show_elog_submit_find(0, 0); - return; - } - - if (equal_ustring(command, loc("Last day"))) - { - redirect("past1"); - return; - } - - if (equal_ustring(command, loc("Last 10"))) - { - redirect("last10"); - return; - } - - if (equal_ustring(command, loc("Copy to"))) - { - copy_to(path, getparam("destc"), 0); - return; - } - - if (equal_ustring(command, loc("Move to"))) - { - copy_to(path, getparam("destm"), 1); - return; - } - - if (equal_ustring(command, loc("Config"))) - { - show_config_page(); - return; - } - - if (equal_ustring(command, loc("Change Password")) || - isparam("newpwd")) - { - show_change_pwd_page(); - return; - } - - if (equal_ustring(command, loc("Save"))) - { - if (!save_config()) - return; - redirect(""); - return; - } - - if (equal_ustring(command, loc("Logout"))) - { - rsprintf("HTTP/1.1 302 Found\r\n"); - rsprintf("Server: ELOG HTTP %s\r\n", VERSION); - if (use_keepalive) - { - rsprintf("Connection: Keep-Alive\r\n"); - rsprintf("Keep-Alive: timeout=60, max=10\r\n"); - } - - /* delete user cookies */ - rsprintf("Set-Cookie: upwd=; path=/%s; expires=Fri, 01 Jan 1983 00:00:00 GMT\r\n", logbook_enc, str); - rsprintf("Set-Cookie: unm=; path=/%s; expires=Fri, 01 Jan 1983 00:00:00 GMT\r\n", logbook_enc, str); - - rsprintf("Location: /\r\n\r\nredir\r\n"); - return; - } - - strcpy(str, getparam("last")); - if (strchr(str, ' ')) - { - i = atoi(strchr(str, ' ')); - sprintf(str, "last%d", i); - redirect(str); - return; - } - - strcpy(str, getparam("past")); - if (strchr(str, ' ')) - { - i = atoi(strchr(str, ' ')); - sprintf(str, "past%d", i); - redirect(str); - return; - } - - if (equal_ustring(command, loc("Delete"))) - { - show_elog_delete(path); - return; - } - - if (strncmp(path, "past", 4) == 0) - { - show_elog_submit_find(atoi(path+4), 0); - return; - } - - if (strncmp(path, "last", 4) == 0 && strstr(path, ".gif") == NULL) - { - show_elog_submit_find(0, atoi(path+4)); - return; - } - - if (equal_ustring(command, loc("Back")) && - getcfg(logbook, "Back to main", str) && - atoi(str) == 1) - { - redirect3("/"); - return; - } - - /*---- check if file requested -----------------------------------*/ - - if ((strlen(path) > 13 && path[6] == '_' && path[13] == '_') || - (strlen(path) > 13 && path[6] == '_' && path[13] == '/') || - strstr(path, ".gif") || strstr(path, ".jpg") || strstr(path, ".png")) - { - if ((strlen(path) > 13 && path[6] == '_' && path[13] == '_') || - (strlen(path) > 13 && path[6] == '_' && path[13] == '/')) - { - if (path[13] == '/') - path[13] = '_'; - - /* file from data directory requested */ - strcpy(file_name, data_dir); - strcat(file_name, path); - } - else - { - /* file from theme directory requested */ - strcpy(file_name, cfg_dir); - strcat(file_name, theme_name); - strcat(file_name, DIR_SEPARATOR_STR); - strcat(file_name, path); - } - - send_file(file_name); - return; - } - - /*---- check next/previous message -------------------------------*/ - - last_message = first_message = FALSE; - if (equal_ustring(command, loc("Next")) || equal_ustring(command, loc("Previous")) || - equal_ustring(command, loc("Last")) || equal_ustring(command, loc("First"))) - { - strcpy(orig_path, path); - - if (equal_ustring(command, loc("Last")) || equal_ustring(command, loc("First"))) - path[0] = 0; - - do - { - if (equal_ustring(command, loc("Next")) || equal_ustring(command, loc("First"))) - strcat(path, "+1"); - if (equal_ustring(command, loc("Previous")) || equal_ustring(command, loc("Last"))) - strcat(path, "-1"); - - status = el_search_message(path, NULL, TRUE, equal_ustring(command, loc("First"))); - if (status != EL_SUCCESS) - { - if (equal_ustring(command, loc("Next"))) - last_message = TRUE; - else - first_message = TRUE; - strcpy(path, orig_path); - break; - } - - size = sizeof(text); - el_retrieve(path, date, attr_list, attrib, n_attr, - text, &size, orig_tag, reply_tag, - attachment, encoding); - - /* check for locked attributes */ - for (i=0 ; i\n", - gt("Menu1 cellpadding"), gt("Frame color")); - - rsprintf("\n"); - - if (atoi(gt("Merge menus")) != 1) - { - rsprintf("\n"); - rsprintf("
\n", gt("Menu1 Align"), gt("Menu1 BGColor")); - - n = strbreak(menu_str, menu_item, MAX_N_LIST); - - if (atoi(gt("Use buttons")) == 1) - { - for (i=0 ; i\n", cmd); - - if (equal_ustring(cmd, loc("Copy to")) || - equal_ustring(cmd, loc("Move to"))) - { - /* put one link for each logbook except current one */ - if (equal_ustring(cmd, loc("Copy to"))) - rsprintf("\n"); - - for (j=0 ; ; j++) - { - if (!enumgrp(j, str)) - break; - - if (equal_ustring(str, "global")) - continue; - - if (equal_ustring(str, logbook)) - continue; - - rsprintf("
\n\n"); - } - - /*---- next/previous buttons ----*/ - - if (!getcfg(logbook, "Enable browsing", str) || - atoi(str) == 1) - { - if (atoi(gt("Merge menus")) != 1) - { - rsprintf("\n", - gt("Menu2 cellpadding"), gt("Frame color")); - rsprintf("\n"); - } - - rsprintf("
\n", gt("Menu2 Align"), gt("Menu2 BGColor")); - } - else - rsprintf("\n", gt("Menu2 Align"), gt("Menu2 BGColor")); - - if (atoi(gt("Menu2 use images")) == 1) - { - rsprintf("\n", - loc("First entry"), logbook_enc); - rsprintf("\n", - loc("Previous entry"), logbook_enc); - rsprintf("\n", - loc("Next entry"), logbook_enc); - rsprintf("\n", - loc("Last entry"), logbook_enc); - } - else - { - rsprintf("\n", loc("First")); - rsprintf("\n", loc("Previous")); - rsprintf("\n", loc("Next")); - rsprintf("\n", loc("Last")); - } - - rsprintf("
\n\n"); - - /*---- message ----*/ - - /* overall table for message giving blue frame */ - rsprintf("\n", - gt("Categories border"), gt("Categories cellpadding"), gt("Frame color")); - - if (msg_status == EL_FILE_ERROR || - (msg_status != EL_SUCCESS && !last_message && !first_message)) - rsprintf("\n", loc("No message available")); - else - { - /* check for locked attributes */ - for (i=0 ; i\"%s = %s\"", loc("with"), attr_list[i], getparam(attr_list[i])); - else - str[0] = 0; - - if (last_message) - rsprintf("\n", - loc("This is the last entry"), str); - - if (first_message) - rsprintf("\n", - loc("This is the first entry"), str); - - /* check for mail submissions */ - if (*getparam("suppress")) - { - if (getcfg(logbook, "Suppress default", str) && atoi(str) == 1) - rsprintf("\n", loc("Email notification suppressed")); - else - rsprintf("\n", loc("Email notification suppressed")); - i = 1; - } - else - { - for (i=0 ; ; i++) - { - sprintf(str, "mail%d", i); - if (*getparam(str)) - { - if (i==0) - rsprintf("\n"); - - /*---- display date ----*/ - - if (getcfg(logbook, "Date format", format)) - { - struct tm ts; - - memset(&ts, 0, sizeof(ts)); - - for (i=0 ; i<12 ; i++) - if (strncmp(date+4, mname[i], 3) == 0) - break; - ts.tm_mon = i; - - ts.tm_mday = atoi(date+8); - ts.tm_hour = atoi(date+11); - ts.tm_min = atoi(date+14); - ts.tm_sec = atoi(date+17); - ts.tm_year = atoi(date+20)-1900; - - mktime(&ts); - strftime(str, sizeof(str), format, &ts); - - rsprintf("\n\n"); - - /*---- link to original message or reply ----*/ - - if (msg_status != EL_FILE_ERROR && (reply_tag[0] || orig_tag[0])) - { - - if (orig_tag[0]) - { - rsprintf("\n", ref, orig_tag); - } - if (reply_tag[0]) - { - rsprintf("\n", ref, reply_tag); - } - } - - /*---- display attributes ----*/ - - for (i=0 ; i\n", - attr_list[i], gt("Categories bgcolor2")); - else - rsprintf("%s:\n", - attr_list[i], gt("Categories bgcolor2")); - } - else - { - rsprintf("%s:\n"); - } - } - - rsprintf("\n"); - rsputs("

%s

%s %s
%s %s
%s
%s
"); - rsprintf("%s %s
\n", loc("Mail sent to"), getparam(str)); - } - else - break; - } - } - - if (i>0) - rsprintf("
%s:%s\n\n", - gt("Categories bgcolor1"), loc("Entry date"), gt("Categories bgcolor2"), str); - } - else - rsprintf("
%s:%s\n\n", - gt("Categories bgcolor1"), loc("Entry date"), gt("Categories bgcolor2"), date); - - for (i=0 ; i\n", attr_list[i], attrib[i]); - - /* browsing flag to distinguish "/../=" from browsing */ - rsprintf("\n"); - - rsprintf("
", gt("Categories bgcolor1")); - sprintf(ref, "/%s/%s", logbook_enc, orig_tag); - rsprintf("%s:", loc("In reply to"), gt("Menu2 bgcolor")); - rsprintf("%s
", gt("Categories bgcolor1")); - sprintf(ref, "/%s/%s", logbook_enc, reply_tag); - rsprintf("%s:", loc("Reply to this"), gt("Menu2 bgcolor")); - rsprintf("%s
", gt("Categories bgcolor1")); - - if (!getcfg(logbook, "Filtered browsing", str) || - atoi(str) == 1) - { - if (*getparam(lattr) == '1') - rsprintf(" ", lattr); - else - rsprintf(" ", lattr); - } - - /* display checkbox for boolean attributes */ - if (equal_ustring(attr_options[i][0], "boolean")) - { - if (atoi(attrib[i]) == 1) - rsprintf("%s:
\n", - attr_list[i], gt("Categories bgcolor2")); - rsputs2(attrib[i]); - rsprintf(" 
\n"); - - /*---- message text ----*/ - - if (!getcfg(logbook, "Show text", str) || atoi(str) == 1) - { - rsprintf("\n", gt("Frame color")); - rsprintf("\n"); - rsputs("

\n", gt("Text BGColor")); - - if (equal_ustring(encoding, "plain")) - { - rsputs("
");
-        rsputs2(text);
-        rsputs("
"); - } - else - rsputs(text); - - rsputs("
\n"); - } - - for (index = 0 ; index < MAX_ATTACHMENTS ; index++) - { - if (attachment[index][0]) - { - for (i=0 ; i<(int)strlen(attachment[index]) ; i++) - att[i] = toupper(attachment[index][i]); - att[i] = 0; - - /* determine size of attachment */ - strcpy(file_name, data_dir); - strcat(file_name, attachment[index]); - - length = 0; - fh = open(file_name, O_RDONLY | O_BINARY); - if (fh > 0) - { - lseek(fh, 0, SEEK_END); - length = TELL(fh); - close(fh); - } - - strcpy(str, attachment[index]); - str[13] = 0; - sprintf(ref, "/%s/%s/%s", logbook_enc, str, attachment[index]+14); - - rsprintf("\n", gt("Frame color")); - - rsprintf("", - gt("Categories bgcolor1"), loc("Attachment"), index+1); - rsprintf("
 %s %d: %s\n", - gt("Categories bgcolor2"), ref, attachment[index]+14); - - if (length < 1024) - rsprintf(" %d Bytes", length); - else if (length < 1024*1024) - rsprintf(" %d kB", length/1024); - else - rsprintf(" %1.3lf MB", length/1024.0/1024.0); - - rsprintf("
\n"); - - if (!getcfg(logbook, "Show attachments", str) || - atoi(str) == 1) - { - if (strstr(att, ".GIF") || - strstr(att, ".JPG") || - strstr(att, ".PNG")) - { - rsprintf("\n", gt("Frame color")); - rsprintf("", ref); - rsprintf("
", gt("Text bgcolor")); - rsprintf("
\n\n"); - } - else - { - if (strstr(att, ".TXT") || - strstr(att, ".ASC") || - strchr(att, '.') == NULL) - { - /* display attachment */ - rsprintf("\n", gt("Frame color")); - rsprintf("
", gt("Text bgcolor")); - if (!strstr(att, ".HTML")) - rsprintf("
");
-
-              strcpy(file_name, data_dir);
-              strcat(file_name, attachment[index]);
-
-              f = fopen(file_name, "rt");
-              if (f != NULL)
-                {
-                while (!feof(f))
-                  {
-                  str[0] = 0;
-                  fgets(str, sizeof(str), f);
-
-                  if (!strstr(att, ".HTML"))
-                    rsputs2(str);
-                  else
-                    rsputs(str);
-                  }
-                fclose(f);
-                }
-
-              if (!strstr(att, ".HTML"))
-                rsprintf("
"); - rsprintf("\n"); - rsprintf("
\n"); - } - } - } - } - } - } - - /* table for message body */ - rsprintf("\n\n"); - - /* overall table */ - rsprintf("\n"); - - if (getcfg(logbook, "bottom text", str)) - { - FILE *f; - char file_name[256], *buf; - - strcpy(file_name, cfg_dir); - strcat(file_name, str); - - f = fopen(file_name, "r"); - if (f != NULL) - { - fseek(f, 0, SEEK_END); - size = TELL(fileno(f)); - fseek(f, 0, SEEK_SET); - - buf = malloc(size+1); - fread(buf, 1, size, f); - buf[size] = 0; - fclose(f); - - rsputs(buf); - } - } - else - /* add little logo */ - rsprintf("

ELOG V%s
", VERSION); - - rsprintf("\r\n"); -} - -/*------------------------------------------------------------------*/ - -BOOL check_password(char *logbook, char *name, char *password, char *redir) -{ -char str[256]; - - /* get password from configuration file */ - if (getcfg(logbook, name, str)) - { - if (strcmp(password, str) == 0) - return TRUE; - - /* show web password page */ - show_standard_header(loc("ELOG password"), NULL); - - /* define hidden fields for current destination */ - if (redir[0]) - rsprintf("\n", redir); - - rsprintf("

", - gt("Border width"), gt("Frame color")); - rsprintf("
\n", gt("Frame color")); - - if (password[0]) - rsprintf("\n", loc("Wrong password")); - - rsprintf("\n", - gt("Title fontcolor"), loc("Please enter password to obtain write access")); - rsprintf("\n", gt("Cell BGColor")); - } - else - { - rsprintf("%s\n", - gt("Title fontcolor"), loc("Please enter password to obtain administration access")); - rsprintf("\n", gt("Cell BGColor")); - } - - rsprintf("", gt("Cell BGColor"), loc("Submit")); - - rsprintf("
%s!
\n", gt("Title bgcolor")); - - if (strcmp(name, "Write password") == 0) - { - rsprintf("%s
\n"); - - rsprintf("\r\n"); - - return FALSE; - } - else - return TRUE; -} - -/*------------------------------------------------------------------*/ - -BOOL check_user_password(char *logbook, char *user, char *password, char *redir) -{ -char str[256], line[256], file_name[256], *p; -FILE *f; - - getcfg(logbook, "Password file", str); - - if (str[0] == DIR_SEPARATOR || str[1] == ':') - strcpy(file_name, str); - else - { - strcpy(file_name, cfg_dir); - strcat(file_name, str); - } - - f = fopen(file_name, "r"); - if (f != NULL) - { - while (!feof(f)) - { - line[0] = 0; - fgets(line, sizeof(line), f); - - if (line[0] == ';' || line[0] == '#' || line[0] == 0) - continue; - - strcpy(str, line); - if (strchr(str, ':')) - *strchr(str, ':') = 0; - if (strcmp(str, user) == 0) - break; - } - fclose(f); - - /* if user found, check password */ - if (user[0] && (strcmp(str, user) == 0)) - { - p = line+strlen(str); - if (*p) - p++; - - strcpy(str, p); - if (strchr(str, ':')) - *strchr(str, ':') = 0; - - if (strcmp(password, str) == 0) - { - p += strlen(str); - if (*p) - p++; - strcpy(str, p); - if (strchr(str, ':')) - *strchr(str, ':') = 0; - if (strchr(str, '\r')) - *strchr(str, '\r') = 0; - if (strchr(str, '\n')) - *strchr(str, '\n') = 0; - setparam("full_name", str); - return TRUE; - } - } - - /* show login password page */ - show_standard_header("ELOG login", NULL); - - /* define hidden fields for current destination */ - if (redir[0]) - rsprintf("\n", redir); - - rsprintf("

", - gt("Border width"), gt("Frame color")); - rsprintf("
\n", gt("Frame color")); - - if (password[0]) - rsprintf("\n", loc("Wrong password")); - - rsprintf("\n", - gt("Title fontcolor"), loc("Please login")); - rsprintf("\n", - gt("Cell BGColor"), loc("Username")); - rsprintf("\n", - gt("Cell BGColor"), loc("Password")); - - rsprintf("", gt("Cell BGColor"), loc("Submit")); - - rsprintf("
%s!
\n", gt("Title bgcolor")); - - rsprintf("%s
%s:   
%s:   
\n"); - - rsprintf("\r\n"); - - return FALSE; - } - else - { - sprintf(line, "Error: Password file \"%s\" not found", file_name); - show_error(line); - return FALSE; - } -} - -/*------------------------------------------------------------------*/ - -void show_selection_page() -{ -int i; -char str[10000], logbook[256]; - - rsprintf("HTTP/1.1 200 Document follows\r\n"); - rsprintf("Server: ELOG HTTP %s\r\n", VERSION); - if (use_keepalive) - { - rsprintf("Connection: Keep-Alive\r\n"); - rsprintf("Keep-Alive: timeout=60, max=10\r\n"); - } - rsprintf("Content-Type: text/html\r\n\r\n"); - - rsprintf("\n"); - rsprintf("\n"); - - if (getcfg("global", "Page Title", str)) - { - rsprintf(""); - rsputs(str); - rsprintf("\n"); - } - else - rsprintf("ELOG Logbook Selection\n"); - - rsprintf("\n\n"); - - rsprintf("\n\n"); - - rsprintf("

"); - rsprintf("
\n"); - - rsprintf("\n", loc("Please select the one to connect to")); - } - - for (i=0 ; ; i++) - { - if (!enumgrp(i, logbook)) - break; - - if (equal_ustring(logbook, "global")) - continue; - - strcpy(str, logbook); - url_encode(str); - rsprintf("", str, logbook); - - str[0] = 0; - getcfg(logbook, "Comment", str); - rsprintf("\n", str); - } - - rsprintf("
\n"); - - if (getcfg("global", "Welcome title", str)) - { - rsputs(str); - } - else - { - rsprintf("\n"); - rsprintf("%s.
\n", loc("Several logbooks are defined on this host")); - rsprintf("%s:
%s%s 
\n"); - rsprintf("\r\n\r\n"); - -} - -/*------------------------------------------------------------------*/ - -void get_password(char *password) -{ -static char last_password[32]; - - if (strncmp(password, "set=", 4) == 0) - strcpy(last_password, password+4); - else - strcpy(password, last_password); -} - -/*------------------------------------------------------------------*/ - -void interprete(char *path) -/********************************************************************\ - - Routine: interprete - - Purpose: Interprete parametersand generate HTML output. - - Input: - char *path Message path - - - _param/_value array accessible via getparam() - -\********************************************************************/ -{ -int i, n, index; -double exp; -char str[256], enc_pwd[80], file_name[256]; -char enc_path[256], dec_path[256]; -char *experiment, *command, *value, *group; -time_t now; -struct tm *gmt; - - /* encode path for further usage */ - strcpy(dec_path, path); - url_decode(dec_path); - url_decode(dec_path); /* necessary for %2520 -> %20 -> ' ' */ - strcpy(enc_path, dec_path); - url_encode(enc_path); - - experiment = getparam("exp"); - command = getparam("cmd"); - value = getparam("value"); - group = getparam("group"); - index = atoi(getparam("index")); - - /* if experiment given, use it as logbook (for elog!) */ - if (experiment && experiment[0]) - { - strcpy(logbook_enc, experiment); - strcpy(logbook, experiment); - url_decode(logbook); - } - - /* check for global selection page if no logbook given */ - if (!logbook[0] && getcfg("global", "Selection page", str)) - { - strcpy(file_name, cfg_dir); - strcat(file_name, str); - send_file(file_name); - return; - } - - /* if no logbook given, display logbook selection page */ - if (!logbook[0]) - { - for (i=n=0 ; ; i++) - { - if (!enumgrp(i, str)) - break; - if (!equal_ustring(str, "global")) - { - strcpy(logbook, str); - n++; - } - } - - if (n > 1) - { - show_selection_page(); - return; - } - - strcpy(logbook_enc, logbook); - url_encode(logbook_enc); - } - - /* get theme for logbook */ - if (getcfg(logbook, "Theme", str)) - loadtheme(str); - else - loadtheme(NULL); /* get default values */ - - /* get data dir from configuration file */ - getcfg(logbook, "Data dir", str); - if (str[0] == DIR_SEPARATOR || str[1] == ':') - strcpy(data_dir, str); - else - { - strcpy(data_dir, cfg_dir); - strcat(data_dir, str); - } - - if (data_dir[strlen(data_dir)-1] != DIR_SEPARATOR) - strcat(data_dir, DIR_SEPARATOR_STR); - - if (*getparam("wpassword")) - { - /* check if password correct */ - do_crypt(getparam("wpassword"), enc_pwd); - - if (!check_password(logbook, "Write password", enc_pwd, getparam("redir"))) - return; - - rsprintf("HTTP/1.1 302 Found\r\n"); - rsprintf("Server: ELOG HTTP %s\r\n", VERSION); - if (use_keepalive) - { - rsprintf("Connection: Keep-Alive\r\n"); - rsprintf("Keep-Alive: timeout=60, max=10\r\n"); - } - - /* get optional expriation from configuration file */ - exp = 24; - if (getcfg(logbook, "Write password expiration", str)) - exp = atof(str); - - if (exp == 0) - { - rsprintf("Set-Cookie: wpwd=%s; path=/%s\r\n", enc_pwd, logbook_enc); - } - else - { - time(&now); - now += (int) (3600*exp); - gmt = gmtime(&now); - strftime(str, sizeof(str), "%A, %d-%b-%y %H:%M:%S GMT", gmt); - - rsprintf("Set-Cookie: wpwd=%s; path=/%s; expires=%s\r\n", enc_pwd, logbook_enc, str); - } - - sprintf(str, "/%s/%s", logbook_enc, getparam("redir")); - rsprintf("Location: %s\r\n\r\nredir\r\n", str); - return; - } - - if (*getparam("apassword")) - { - /* check if password correct */ - do_crypt(getparam("apassword"), enc_pwd); - - if (!check_password(logbook, "Admin password", enc_pwd, getparam("redir"))) - return; - - rsprintf("HTTP/1.1 302 Found\r\n"); - rsprintf("Server: ELOG HTTP %s\r\n", VERSION); - if (use_keepalive) - { - rsprintf("Connection: Keep-Alive\r\n"); - rsprintf("Keep-Alive: timeout=60, max=10\r\n"); - } - - /* get optional expriation from configuration file */ - exp = 24; - if (getcfg(logbook, "Admin password expiration", str)) - exp = atof(str); - - if (exp == 0) - { - rsprintf("Set-Cookie: apwd=%s; path=/%s\r\n", enc_pwd, logbook_enc); - } - else - { - time(&now); - now += (int) (3600*exp); - gmt = gmtime(&now); - strftime(str, sizeof(str), "%A, %d-%b-%y %H:%M:%S GMT", gmt); - - rsprintf("Set-Cookie: apwd=%s; path=/%s; expires=%s\r\n", enc_pwd, logbook_enc, str); - } - - sprintf(str, "/%s/%s", logbook_enc, getparam("redir")); - rsprintf("Location: %s\r\n\r\nredir\r\n", str); - return; - } - - if (*getparam("uname") && getparam("upassword")) - { - /* check if password correct */ - do_crypt(getparam("upassword"), enc_pwd); - - if (!check_user_password(logbook, getparam("uname"), enc_pwd, getparam("redir"))) - return; - - rsprintf("HTTP/1.1 302 Found\r\n"); - rsprintf("Server: ELOG HTTP %s\r\n", VERSION); - if (use_keepalive) - { - rsprintf("Connection: Keep-Alive\r\n"); - rsprintf("Keep-Alive: timeout=60, max=10\r\n"); - } - - /* get optional expriation from configuration file */ - exp = 24; - if (getcfg(logbook, "Login expiration", str)) - exp = atof(str); - - if (exp == 0) - { - rsprintf("Set-Cookie: upwd=%s; path=/%s\r\n", enc_pwd, logbook_enc); - rsprintf("Set-Cookie: unm=%s; path=/%s\r\n", getparam("uname"), logbook_enc); - } - else - { - time(&now); - now += (int) (3600*exp); - gmt = gmtime(&now); - strftime(str, sizeof(str), "%A, %d-%b-%y %H:%M:%S GMT", gmt); - - rsprintf("Set-Cookie: upwd=%s; path=/%s; expires=%s\r\n", enc_pwd, logbook_enc, str); - rsprintf("Set-Cookie: unm=%s; path=/%s; expires=%s\r\n", getparam("uname"), logbook_enc, str); - } - - sprintf(str, "/%s/%s", logbook_enc, getparam("redir")); - rsprintf("Location: %s\r\n\r\nredir\r\n", str); - return; - } - - /*---- show ELog page --------------------------------------------*/ - - if (getcfg(logbook, "Password file", str)) - { - if (!check_user_password(logbook, getparam("unm"), getparam("upwd"), path)) - return; - } - - if (equal_ustring(command, loc("New")) || - equal_ustring(command, loc("Edit")) || - equal_ustring(command, loc("Reply")) || - equal_ustring(command, loc("Submit")) || - equal_ustring(command, loc("Delete"))) - { - sprintf(str, "%s?cmd=%s", path, command); - if (!check_password(logbook, "Write password", getparam("wpwd"), str)) - return; - } - - if (equal_ustring(command, loc("Delete")) || - equal_ustring(command, loc("Config")) || - equal_ustring(command, loc("Copy to")) || - equal_ustring(command, loc("Move to"))) - { - sprintf(str, "%s?cmd=%s", path, command); - if (!check_password(logbook, "Admin password", getparam("apwd"), str)) - return; - } - - show_elog_page(logbook, dec_path); - return; -} - -/*------------------------------------------------------------------*/ - -void decode_get(char *string) -{ -char path[256]; -char *p, *pitem; - - strncpy(path, string, sizeof(path)); - path[255] = 0; - if (strchr(path, '?')) - *strchr(path, '?') = 0; - setparam("path", path); - - if (strchr(string, '?')) - { - p = strchr(string, '?')+1; - - /* cut trailing "/" from netscape */ - if (p[strlen(p)-1] == '/') - p[strlen(p)-1] = 0; - - p = strtok(p,"&"); - while (p != NULL) - { - pitem = p; - p = strchr(p,'='); - if (p != NULL) - { - *p++ = 0; - url_decode(pitem); - url_decode(p); - - setparam(pitem, p); - - p = strtok(NULL,"&"); - } - } - } - - interprete(path); -} - -/*------------------------------------------------------------------*/ - -void decode_post(char *string, char *boundary, int length) -{ -char *pinit, *p, *pitem, *ptmp, file_name[256], str[256]; -int i, n; - - for (i=0 ; ih_addrtype != AF_INET) - { - printf("Non Internet address for -h %s\n", tcp_hostname); - return; - } - memcpy(&serv_addr.sin_addr.s_addr, phe->h_addr_list[0], phe->h_length); - } - - serv_addr.sin_port = htons((short) tcp_port); - - status = bind(lsock, (struct sockaddr *)&serv_addr, sizeof(serv_addr)); - if (status < 0) - { - /* try reusing address */ - flag = 1; - setsockopt(lsock, SOL_SOCKET, SO_REUSEADDR, - (char *) &flag, sizeof(INT)); - status = bind(lsock, (struct sockaddr *)&serv_addr, sizeof(serv_addr)); - - if (status < 0) - { - printf("Cannot bind to port %d.\nPlease try later or use the \"-p\" flag to specify a different port\n", tcp_port); - return; - } - else - printf("Warning: port %d already in use\n", tcp_port); - } - - /* get host name for mail notification */ - gethostname(host_name, sizeof(host_name)); - - phe = gethostbyname(host_name); - if (phe != NULL) - phe = gethostbyaddr(phe->h_addr, sizeof(int), AF_INET); - - /* if domain name is not in host name, hope to get it from phe */ - if (strchr(host_name, '.') == NULL && phe != NULL) - strcpy(host_name, phe->h_name); - - /* open configuration file */ - getcfg("dummy", "dummy", str); - -#ifdef OS_UNIX - /* give up root privilege */ - setuid(getuid()); - setgid(getgid()); -#endif - - if (daemon) - { - printf("Becoming a daemon...\n"); - ss_daemon_init(); - } - - /* listen for connection */ - status = listen(lsock, SOMAXCONN); - if (status < 0) - { - printf("Cannot listen\n"); - return; - } - - printf("Server listening...\n"); - do - { - FD_ZERO(&readfds); - FD_SET(lsock, &readfds); - - for (i=0 ; i 0) - FD_SET(ka_sock[i], &readfds); - - timeout.tv_sec = 0; - timeout.tv_usec = 100000; - - status = select(FD_SETSIZE, (void *) &readfds, NULL, NULL, (void *) &timeout); - - if (FD_ISSET(lsock, &readfds)) - { - len = sizeof(acc_addr); - _sock = accept(lsock, (struct sockaddr *) &acc_addr, &len); - - /* turn on lingering (borrowed from NCSA httpd code) */ - ling.l_onoff = 1; - ling.l_linger = 600; - setsockopt(_sock, SOL_SOCKET, SO_LINGER, (char *) &ling, sizeof(ling)); - - /* find new entry in socket table */ - for (i=0 ; i 0 && FD_ISSET(ka_sock[i], &readfds)) - break; - - if (i == N_MAX_CONNECTION) - { - _sock = 0; - } - else - { - i_conn = i; - _sock = ka_sock[i_conn]; - ka_time[i_conn] = (int) time(NULL); - memcpy(&rem_addr, &remote_addr[i_conn], sizeof(rem_addr)); - -#ifdef DEBUG_CONN - printf("## received request on connection %d\n", i_conn); -#endif - } - } - - /* turn off keep_alive by default */ - keep_alive = FALSE; - - if (_sock > 0) - { - memset(net_buffer, 0, sizeof(net_buffer)); - len = 0; - header_length = 0; - n_error = 0; - do - { - FD_ZERO(&readfds); - FD_SET(_sock, &readfds); - - timeout.tv_sec = 6; - timeout.tv_usec = 0; - - status = select(FD_SETSIZE, (void *) &readfds, NULL, NULL, (void *) &timeout); - - if (FD_ISSET(_sock, &readfds)) - i = recv(_sock, net_buffer+len, sizeof(net_buffer)-len, 0); - else - goto error; - - /* abort if connection got broken */ - if (i<0) - goto error; - - if (i>0) - len += i; - - /* check if net_buffer too small */ - if (len >= sizeof(net_buffer)) - { - /* drain incoming remaining data */ - do - { - FD_ZERO(&readfds); - FD_SET(_sock, &readfds); - - timeout.tv_sec = 2; - timeout.tv_usec = 0; - - status = select(FD_SETSIZE, (void *) &readfds, NULL, NULL, (void *) &timeout); - - if (FD_ISSET(_sock, &readfds)) - i = recv(_sock, net_buffer, sizeof(net_buffer), 0); - else - break; - } while (i); - - memset(return_buffer, 0, sizeof(return_buffer)); - strlen_retbuf = 0; - return_length = 0; - - show_error("Submitted attachment too large, please increase WEB_BUFFER_SIZE in elogd.c and recompile"); - send(_sock, return_buffer, strlen_retbuf+1, 0); - keep_alive = 0; - if (verbose) - { - printf("==== Return ================================\n"); - puts(return_buffer); - printf("\n\n"); - } - goto error; - } - - if (i == 0) - { - n_error++; - if (n_error == 100) - goto error; - } - - /* finish when empty line received */ - if (strstr(net_buffer, "GET") != NULL && strstr(net_buffer, "POST") == NULL) - { - if (len>4 && strcmp(&net_buffer[len-4], "\r\n\r\n") == 0) - break; - if (len>6 && strcmp(&net_buffer[len-6], "\r\r\n\r\r\n") == 0) - break; - } - else if (strstr(net_buffer, "POST") != NULL) - { - if (header_length == 0) - { - /* extract logbook */ - strncpy(str, net_buffer+6, sizeof(str)); - if (strstr(str, "HTTP")) - *(strstr(str, "HTTP")-1) = 0; - strcpy(logbook, str); - strcpy(logbook_enc, str); - url_decode(logbook); - - /* extract header and content length */ - if (strstr(net_buffer, "Content-Length:")) - content_length = atoi(strstr(net_buffer, "Content-Length:") + 15); - else if (strstr(net_buffer, "Content-length:")) - content_length = atoi(strstr(net_buffer, "Content-length:") + 15); - - boundary[0] = 0; - if (strstr(net_buffer, "boundary=")) - { - strncpy(boundary, strstr(net_buffer, "boundary=")+9, sizeof(boundary)); - if (strchr(boundary, '\r')) - *strchr(boundary, '\r') = 0; - } - - if (strstr(net_buffer, "\r\n\r\n")) - header_length = (INT)strstr(net_buffer, "\r\n\r\n") - (INT)net_buffer + 4; - - if (strstr(net_buffer, "\r\r\n\r\r\n")) - header_length = (INT)strstr(net_buffer, "\r\r\n\r\r\n") - (INT)net_buffer + 6; - - if (header_length) - net_buffer[header_length-1] = 0; - } - - if (header_length > 0 && len >= header_length+content_length) - break; - } - else if (strstr(net_buffer, "OPTIONS") != NULL) - goto error; - else - { - printf(net_buffer); - goto error; - } - - } while (1); - - if (!strchr(net_buffer, '\r')) - goto error; - - /* initialize parametr array */ - initparam(); - - /* extract cookies */ - if ((p = strstr(net_buffer, "Cookie:")) != NULL) - { - p += 6; - do - { - p++; - while (*p && *p == ' ') - p++; - strncpy(str, p, sizeof(str)); - - for (i=0 ; i<(int)strlen(str) ; i++) - if (str[i] == '=' || str[i] == ';') - break; - - if (str[i] == '=') - { - str[i] = 0; - p += i+1; - for (i=0 ; *p && *p != ';' && *p != '\r' && *p != '\n' ; i++) - cookie[i] = *p++; - cookie[i] = 0; - } - else - { - /* empty cookie */ - str[i] = 0; - cookie[0] = 0; - p += i; - } - - /* store cookie as parameter */ - setparam(str, cookie); - } while (*p && *p == ';'); - } - - memset(return_buffer, 0, sizeof(return_buffer)); - strlen_retbuf = 0; - - if (strncmp(net_buffer, "GET", 3) != 0 && - strncmp(net_buffer, "POST", 4) != 0) - goto error; - - return_length = 0; - - /* extract logbook */ - if (strncmp(net_buffer, "GET", 3) == 0) - { - p = net_buffer+5; - logbook[0] = 0; - for (i=0 ; *p && *p != '/' && *p != '?' && *p != ' '; i++) - logbook[i] = *p++; - logbook[i] = 0; - strcpy(logbook_enc, logbook); - url_decode(logbook); - - /* check if logbook exists */ - for (i=0 ; ; i++) - { - if (!enumgrp(i, str)) - break; - if (equal_ustring(logbook, str)) - break; - } - - if (strstr(logbook, ".gif") || strstr(logbook, ".jpg") || strstr(logbook, ".png") || - strstr(logbook, ".htm")) - { - /* server file directly */ - strcpy(str, cfg_dir); - strcat(str, logbook); - send_file(str); - send(_sock, return_buffer, return_length, 0); - - goto error; - } - else - if (!equal_ustring(logbook, str) && logbook[0]) - { - if (verbose) - printf("\n\n\n%s\n", net_buffer); - - sprintf(str, "Error: logbook \"%s\" not defined in elogd.cfg", logbook); - show_error(str); - send(_sock, return_buffer, strlen(return_buffer), 0); - - if (verbose) - { - printf("==== Return ================================\n"); - puts(return_buffer); - printf("\n\n"); - } - goto error; - } - } - - /* if no logbook is given and only one logbook defined, use this one */ - if (!logbook[0]) - { - for (i=n=0 ; ; i++) - { - if (!enumgrp(i, str)) - break; - if (!equal_ustring(str, "global")) - n++; - } - - if (n == 1) - { - if (verbose) - printf("\n\n\n%s\n", net_buffer); - - strcpy(logbook, str); - strcpy(logbook_enc, logbook); - url_encode(logbook_enc); - - /* redirect to logbook, necessary to get optionsl cookies for that logbook */ - redirect(""); - - send(_sock, return_buffer, strlen(return_buffer), 0); - - if (verbose) - { - printf("==== Return ================================\n"); - puts(return_buffer); - printf("\n\n"); - } - goto error; - } - } - - /* force re-read configuration file */ - if (cfgbuffer) - { - free(cfgbuffer); - cfgbuffer = NULL; - } - - /* set my own URL */ - getcfg("global", "URL", str); - if (str[0]) - { - if (str[strlen(str)-1] != '/') - strcat(str, "/"); - strcpy(elogd_url, str); - strcpy(elogd_full_url, str); - } - else - { - /* use relative pathnames */ - sprintf(elogd_url, "/"); - - if (tcp_port == 80) - sprintf(elogd_full_url, "http://%s/", host_name); - else - sprintf(elogd_full_url, "http://%s:%d/", host_name, tcp_port); - } - - /*---- check "hosts deny" ----*/ - - authorized = 1; - if (getcfg(logbook, "Hosts deny", list)) - { - phe = gethostbyaddr((char *) &rem_addr, 4, PF_INET); - if (phe != NULL) - strcpy(rem_host_name, phe->h_name); - else - strcpy(rem_host_name, ""); - - strcpy(rem_host_ip, (char *)inet_ntoa(rem_addr)); - - n = strbreak(list, host_list, MAX_N_LIST); - - /* check if current connection matches anyone on the list */ - for (i=0 ; i strlen(host_list[i]) && - equal_ustring(host_list[i], rem_host_name+strlen(rem_host_name)-strlen(host_list[i]))) - { - if (verbose) - printf("Remote host \"%s\" matches \"%s\" in \"Hosts deny\". Access denied.\n", - rem_host_name, host_list[i]); - authorized = 0; - break; - } - } - if (host_list[i][strlen(host_list[i])-1] == '.') - { - strcpy(str, rem_host_ip); - if (strlen(str) > strlen(host_list[i])) - str[strlen(host_list[i])] = 0; - - if (equal_ustring(host_list[i], str)) - { - if (verbose) - printf("Remote host \"%s\" matches \"%s\" in \"Hosts deny\". Access denied.\n", - rem_host_ip, host_list[i]); - authorized = 0; - break; - } - } - } - } - - /*---- check "hosts allow" ----*/ - - if (getcfg(logbook, "Hosts allow", list)) - { - phe = gethostbyaddr((char *) &rem_addr, 4, PF_INET); - if (phe != NULL) - strcpy(rem_host_name, phe->h_name); - else - strcpy(rem_host_name, ""); - - strcpy(rem_host_ip, (char *)inet_ntoa(acc_addr.sin_addr)); - - n = strbreak(list, host_list, MAX_N_LIST); - - /* check if current connection matches anyone on the list */ - for (i=0 ; i strlen(host_list[i]) && - equal_ustring(host_list[i], rem_host_name+strlen(rem_host_name)-strlen(host_list[i]))) - { - if (verbose) - printf("Remote host \"%s\" matches \"%s\" in \"Hosts allow\". Access granted.\n", - rem_host_name, host_list[i]); - authorized = 1; - break; - } - } - if (host_list[i][strlen(host_list[i])-1] == '.') - { - strcpy(str, rem_host_ip); - if (strlen(str) > strlen(host_list[i])) - str[strlen(host_list[i])] = 0; - - if (equal_ustring(host_list[i], str)) - { - if (verbose) - printf("Remote host \"%s\" matches \"%s\" in \"Hosts allow\". Access granted.\n", - rem_host_ip, host_list[i]); - authorized = 1; - break; - } - } - } - } - - if (!authorized) - { - keep_alive = 0; - goto error; - } - - /* ask for password if configured */ - authorized = 1; - if (getcfg(logbook, "Read Password", pwd)) - { - authorized = 0; - - /* decode authorization */ - if (strstr(net_buffer, "Authorization:")) - { - p = strstr(net_buffer, "Authorization:")+14; - if (strstr(p, "Basic")) - { - p = strstr(p, "Basic")+6; - while (*p == ' ') - p++; - i = 0; - while (*p && *p != ' ' && *p != '\r') - str[i++] = *p++; - str[i] = 0; - } - base64_decode(str, cl_pwd); - if (strchr(cl_pwd, ':')) - { - p = strchr(cl_pwd, ':')+1; - do_crypt(p, str); - strcpy(cl_pwd, str); - - /* check authorization */ - if (strcmp(str, pwd) == 0) - authorized = 1; - } - } - } - - /* check for Keep-alive */ - if (strstr(net_buffer, "Keep-Alive") != NULL && use_keepalive) - keep_alive = TRUE; - - if (!authorized) - { - /* return request for authorization */ - rsprintf("HTTP/1.1 401 Authorization Required\r\n"); - rsprintf("Server: ELOG HTTP %s\r\n", VERSION); - rsprintf("WWW-Authenticate: Basic realm=\"%s\"\r\n", logbook); - rsprintf("Connection: close\r\n"); - rsprintf("Content-Type: text/html\r\n\r\n"); - - rsprintf("\r\n"); - rsprintf("401 Authorization Required\r\n"); - rsprintf("\r\n"); - rsprintf("

Authorization Required

\r\n"); - rsprintf("This server could not verify that you\r\n"); - rsprintf("are authorized to access the document\r\n"); - rsprintf("requested. Either you supplied the wrong\r\n"); - rsprintf("credentials (e.g., bad password), or your\r\n"); - rsprintf("browser doesn't understand how to supply\r\n"); - rsprintf("the credentials required.

\r\n"); - rsprintf("\r\n"); - - keep_alive = FALSE; - } - else - { - if (verbose) - printf("\n\n\n%s\n", net_buffer); - - if (strncmp(net_buffer, "GET", 3) == 0) - { - /* extract path and commands */ - *strchr(net_buffer, '\r') = 0; - - if (!strstr(net_buffer, "HTTP")) - goto error; - *(strstr(net_buffer, "HTTP")-1)=0; - - /* skip logbook from path */ - p = net_buffer+5; - for (i=0 ; *p && *p != '/' && *p != '?'; p++); - while (*p && *p == '/') - p++; - - /* decode command and return answer */ - decode_get(p); - } - else if (strncmp(net_buffer, "POST", 4) == 0) - { - if (verbose) - printf("%s\n", net_buffer+header_length); - decode_post(net_buffer+header_length, boundary, content_length); - } - else - { - net_buffer[50] = 0; - sprintf(str, "Unknown request:

%s", net_buffer); - show_error(str); - } - } - - if (return_length != -1) - { - if (return_length == 0) - return_length = strlen_retbuf+1; - - if (keep_alive && strstr(return_buffer, "Content-Length") == NULL) - { - /*---- add content-length ----*/ - - p = strstr(return_buffer, "\r\n\r\n"); - - if (p != NULL) - { - length = strlen(p+4); - - header_length = (int) (p - return_buffer); - memcpy(header_buffer, return_buffer, header_length); - - sprintf(header_buffer+header_length, "\r\nContent-Length: %d\r\n\r\n", length); - - send(_sock, header_buffer, strlen(header_buffer), 0); - send(_sock, p+4, length, 0); - - if (verbose) - { - printf("==== Return ================================\n"); - puts(header_buffer); - puts(p+2); - printf("\n"); - } - } - else - printf("Internal error, no valid header!\n"); - } - else - { - send(_sock, return_buffer, return_length, 0); - - if (verbose) - { - printf("==== Return ================================\n"); - puts(return_buffer); - printf("\n\n"); - } - } - error: - - if (!keep_alive) - { - closesocket(_sock); - ka_sock[i_conn] = 0; - -#ifdef DEBUG_CONN - printf("## close connection %d\n", i_conn); -#endif - } - } - } - - } while (!_abort); -} - -/*------------------------------------------------------------------*/ - -void create_password(char *logbook, char *name, char *pwd) -{ -int fh, length, i; -char *cfgbuffer, str[256], *p; - - fh = open(cfg_file, O_RDONLY); - if (fh < 0) - { - /* create new file */ - fh = open(cfg_file, O_CREAT | O_WRONLY, 0640); - if (fh < 0) - { - printf("Cannot create \"%s\".\n", cfg_file); - return; - } - sprintf(str, "[%s]\n%s=%s\n", logbook, name, pwd); - write(fh, str, strlen(str)); - close(fh); - printf("File \"%s\" created with password in logbook \"%s\".\n", cfg_file, logbook); - return; - } - - /* read existing file and add password */ - length = lseek(fh, 0, SEEK_END); - lseek(fh, 0, SEEK_SET); - cfgbuffer = malloc(length+1); - if (cfgbuffer == NULL) - { - close(fh); - return; - } - length = read(fh, cfgbuffer, length); - cfgbuffer[length] = 0; - close(fh); - - fh = open(cfg_file, O_TRUNC | O_WRONLY, 0640); - - sprintf(str, "[%s]", logbook); - - /* check if logbook exists already */ - if (strstr(cfgbuffer, str)) - { - p = strstr(cfgbuffer, str); - - /* search password in current logbook */ - do - { - while (*p && *p != '\n') - p++; - if (*p && *p == '\n') - p++; - - if (strncmp(p, name, strlen(name)) == 0) - { - /* replace existing password */ - i = (int) (p - cfgbuffer); - write(fh, cfgbuffer, i); - sprintf(str, "%s=%s\n", name, pwd); - write(fh, str, strlen(str)); - - printf("Password replaced in logbook \"%s\".\n", logbook); - - while (*p && *p != '\n') - p++; - if (*p && *p == '\n') - p++; - - /* write remainder of file */ - write(fh, p, strlen(p)); - - free(cfgbuffer); - close(fh); - return; - } - - } while (*p && *p != '['); - - if (!*p || *p == '[') - { - /* enter password into current logbook */ - p = strstr(cfgbuffer, str); - while (*p && *p != '\n') - p++; - if (*p && *p == '\n') - p++; - - i = (int) (p - cfgbuffer); - write(fh, cfgbuffer, i); - sprintf(str, "%s=%s\n", name, pwd); - write(fh, str, strlen(str)); - - printf("Password added to logbook \"%s\".\n", logbook); - - /* write remainder of file */ - write(fh, p, strlen(p)); - - free(cfgbuffer); - close(fh); - return; - } - } - else /* write new logbook entry */ - { - write(fh, cfgbuffer, strlen(cfgbuffer)); - sprintf(str, "\n[%s]\n%s=%s\n\n", logbook, name, pwd); - write(fh, str, strlen(str)); - - printf("Password added to new logbook \"%s\".\n", logbook); - } - - free(cfgbuffer); - close(fh); -} - -/*------------------------------------------------------------------*/ - -int main(int argc, char *argv[]) -{ -int i; -int tcp_port = 80, daemon = FALSE; -char read_pwd[80], write_pwd[80], admin_pwd[80], str[80]; -time_t now; -struct tm *tms; - - tzset(); - - read_pwd[0] = write_pwd[0] = admin_pwd[0] = logbook[0] = 0; - - strcpy(cfg_file, "elogd.cfg"); - - use_keepalive = TRUE; - - /* parse command line parameters */ - for (i=1 ; itm_year % 100, tms->tm_mon+1, tms->tm_mday, - tms->tm_hour, tms->tm_min, tms->tm_sec); - return 0; - } - else if (argv[i][0] == '-') - { - if (i+1 >= argc || argv[i+1][0] == '-') - goto usage; - if (argv[i][1] == 'p') - tcp_port = atoi(argv[++i]); - else if (argv[i][1] == 'c') - strcpy(cfg_file, argv[++i]); - else if (argv[i][1] == 'r') - strcpy(read_pwd, argv[++i]); - else if (argv[i][1] == 'w') - strcpy(write_pwd, argv[++i]); - else if (argv[i][1] == 'a') - strcpy(admin_pwd, argv[++i]); - else if (argv[i][1] == 'l') - strcpy(logbook, argv[++i]); - else if (argv[i][1] == 'h') - strncpy(tcp_hostname, argv[++i], sizeof(tcp_hostname)); - else - { -usage: - printf("usage: %s [-p port] [-h hostname] [-D] [-c file] [-r pwd] [-w pwd] [-a pwd] [-l loggbook]\n\n", argv[0]); - printf(" -p TCP/IP port\n"); - printf(" -h TCP/IP hostname\n"); - printf(" -D become a daemon\n"); - printf(" -c specify configuration file\n"); - printf(" -v debugging output\n"); - printf(" -r create/overwrite read password in config file\n"); - printf(" -w create/overwrite write password in config file\n"); - printf(" -a create/overwrite admin password in config file\n"); - printf(" -l specify logbook for -r and -w commands\n\n"); - printf(" -k do not use keep-alive\n\n"); - return 0; - } - } - } - - if (read_pwd[0]) - { - if (!logbook[0]) - { - printf("Must specify a lookbook via the -l parameter.\n"); - return 0; - } - do_crypt(read_pwd, str); - create_password(logbook, "Read Password", str); - return 0; - } - - if (write_pwd[0]) - { - if (!logbook[0]) - { - printf("Must specify a lookbook via the -l parameter.\n"); - return 0; - } - do_crypt(write_pwd, str); - create_password(logbook, "Write Password", str); - return 0; - } - - if (admin_pwd[0]) - { - if (!logbook[0]) - { - printf("Must specify a lookbook via the -l parameter.\n"); - return 0; - } - do_crypt(admin_pwd, str); - create_password(logbook, "Admin Password", str); - return 0; - } - - /* extract directory from configuration file */ - if (cfg_file[0] && strchr(cfg_file, DIR_SEPARATOR)) - { - strcpy(cfg_dir, cfg_file); - for (i=strlen(cfg_dir)-1 ; i>0 ; i--) - { - if (cfg_dir[i] == DIR_SEPARATOR) - break; - cfg_dir[i] = 0; - } - } - - server_loop(tcp_port, daemon); - - return 0; -}