webcit/messages.c

   1 #include <stdlib.h>
   2 #include <unistd.h>
   3 #include <stdio.h>
   4 #include <ctype.h>
   5 #include <string.h>
   6 #include <errno.h>
   7 #include <time.h>
   8 #include "webcit.h"
   9 #include "child.h"
  10
  11 char reply_to[512];
  12 long msgarr[1024];
  13
  14 /*
  15  * Look for URL's embedded in a buffer and make them linkable.  We use a
  16  * target window in order to keep the BBS session in its own window.
  17  */
  18 void url(buf)
  19 char buf[]; {
  20
  21         int pos;
  22         int start,end;
  23         char ench;
  24         char urlbuf[256];
  25         char outbuf[256];
  26
  27         start = (-1);
  28         end = strlen(buf);
  29         ench = 0;
  30
  31         for (pos=0; pos<strlen(buf); ++pos) {
  32                 if (!strncasecmp(&buf[pos],"http://",7)) start = pos;
  33                 if (!strncasecmp(&buf[pos],"ftp://",6)) start = pos;
  34                 }
  35
  36         if (start<0) return;
  37
  38         if ((start>0)&&(buf[start-1]=='<')) ench = '>';
  39         if ((start>0)&&(buf[start-1]=='[')) ench = ']';
  40         if ((start>0)&&(buf[start-1]=='(')) ench = ')';
  41         if ((start>0)&&(buf[start-1]=='{')) ench = '}';
  42
  43         for (pos=strlen(buf); pos>start; --pos) {
  44                 if ((buf[pos]==' ')||(buf[pos]==ench)) end = pos;
  45                 }
  46
  47         strncpy(urlbuf,&buf[start],end-start);
  48         urlbuf[end-start] = 0;
  49
  50
  51         strncpy(outbuf,buf,start);
  52         sprintf(&outbuf[start],"%cA HREF=%c%s%c TARGET=%c%s%c%c%s%c/A%c",
  53                 LB,QU,urlbuf,QU,QU,TARGET,QU,RB,urlbuf,LB,RB);
  54         strcat(outbuf,&buf[end]);
  55         strcpy(buf,outbuf);
  56         }
  57
  58
  59 void read_message(msgnum, oper)
  60 long msgnum;
  61 char *oper; {
  62         char buf[256];
  63         char m_subject[256];
  64         char from[256];
  65         long now;
  66         struct tm *tm;
  67         int format_type = 0;
  68         int nhdr = 0;
  69         int bq = 0;
  70
  71         sprintf(buf,"MSG0 %ld",msgnum);
  72         serv_puts(buf);
  73         serv_gets(buf);
  74         if (buf[0]!='1') {
  75                 wprintf("<STRONG>ERROR:</STRONG> %s<BR>\n",&buf[4]);
  76                 return;
  77                 }
  78
  79         wprintf("<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0 BGCOLOR=000077><TR><TD>\n");
  80         wprintf("<FONT SIZE=+1 COLOR=\"FFFF00\"> ");
  81         strcpy(m_subject,"");
  82
  83         strcpy(reply_to,"nobody...xxxxx");
  84         while(serv_gets(buf), strncasecmp(buf,"text",4)) {
  85                 if (!strncasecmp(buf,"nhdr=yes",8)) nhdr=1;
  86                 if (nhdr==1) buf[0]='_';
  87                 if (!strncasecmp(buf,"type=",5))
  88                         format_type=atoi(&buf[5]);
  89                 if (!strncasecmp(buf,"from=",5)) {
  90                         wprintf("from %s ",&buf[5]);
  91                         strcpy(from,&buf[5]);
  92                         }
  93                 if (!strncasecmp(buf,"path=",5))
  94                         strcpy(reply_to,&buf[5]);
  95                 if (!strncasecmp(buf,"subj=",5))
  96                         strcpy(m_subject,&buf[5]);
  97                 if ((!strncasecmp(buf,"hnod=",5))
  98                    && (strcasecmp(&buf[5],serv_info.serv_humannode)))
  99                         wprintf("(%s) ",&buf[5]);
 100                 if ((!strncasecmp(buf,"room=",5))
 101                    && (strcasecmp(&buf[5],wc_roomname)))
 102                         wprintf("in %s> ",&buf[5]);
 103
 104                 if (!strncasecmp(buf,"node=",5)) {
 105                         if ( (room_flags&QR_NETWORK)
 106                            || ((strcasecmp(&buf[5],serv_info.serv_nodename)
 107                            &&(strcasecmp(&buf[5],serv_info.serv_fqdn)))))
 108                                 {
 109                                 wprintf("@%s ",&buf[5]);
 110                                 }
 111                         if ((!strcasecmp(&buf[5],serv_info.serv_nodename))
 112                            ||(!strcasecmp(&buf[5],serv_info.serv_fqdn)))
 113                                 {
 114                                 strcpy(reply_to,from);
 115                                 }
 116                         else if (haschar(&buf[5],'.')==0) {
 117                                 sprintf(reply_to,"%s @ %s",from,&buf[5]);
 118                                 }
 119                         }
 120
 121                 if (!strncasecmp(buf,"rcpt=",5))
 122                         wprintf("to %s ",&buf[5]);
 123                 if (!strncasecmp(buf,"time=",5)) {
 124                         now=atol(&buf[5]);
 125                         tm=(struct tm *)localtime(&now);
 126                         strcpy(buf,(char *)asctime(tm)); buf[strlen(buf)-1]=0;
 127                         strcpy(&buf[16],&buf[19]);
 128                         wprintf("%s ",&buf[4]);
 129                         }
 130                 }
 131
 132         if (nhdr==1) wprintf("****");
 133         wprintf("</FONT></TD>");
 134
 135         if (is_room_aide) {
 136                 wprintf("<TD ALIGN=RIGHT NOWRAP><FONT COLOR=\"FFFF00\"><B>");
 137
 138                 wprintf("<A HREF=\"/confirm_move_msg");
 139                 wprintf("&msgid=%ld", msgnum);
 140                 wprintf("\">Move</A>");
 141
 142                 wprintf("&nbsp;&nbsp;");
 143
 144                 wprintf("<A HREF=\"/confirm_delete_msg");
 145                 wprintf("&msgid=%ld", msgnum);
 146                 wprintf("\">Del</A>");
 147
 148                 wprintf("</B></FONT></TD>");
 149                 }
 150
 151         wprintf("</TR></TABLE>\n");
 152
 153         if (strlen(m_subject)>0) {
 154                 wprintf("Subject: %s<BR>\n",m_subject);
 155                 }
 156
 157         if (format_type == 0) {
 158                 fmout(NULL);
 159                 }
 160         else {
 161                 while(serv_gets(buf), strcmp(buf,"000")) {
 162                         while ((strlen(buf)>0)&&(isspace(buf[strlen(buf)-1])))
 163                                 buf[strlen(buf)-1] = 0;
 164                         if ((bq==0)&&
 165 ((!strncmp(buf,">",1))||(!strncmp(buf," >",2))||(!strncmp(buf," :-)",4)))) {
 166                                 wprintf("<FONT COLOR=\"000044\"><I>");
 167                                 bq = 1;
 168                                 }
 169                         else if ((bq==1)&&
 170 (strncmp(buf,">",1))&&(strncmp(buf," >",2))&&(strncmp(buf," :-)",4))) {
 171                                 wprintf("</FONT></I>");
 172                                 bq = 0;
 173                                 }
 174                         wprintf("<TT>");
 175                         url(buf);
 176                         escputs(buf);
 177                         wprintf("</TT><BR>\n");
 178                         }
 179                 }
 180                 wprintf("<BR>");
 181         }
 182
 183
 184
 185 /*
 186  * load message pointers from the server
 187  */
 188 int load_msg_ptrs(servcmd)
 189 char *servcmd; {
 190         char buf[256];
 191         int nummsgs;
 192
 193         nummsgs = 0;
 194         serv_puts(servcmd);
 195         serv_gets(buf);
 196         if (buf[0]!='1') {
 197                 wprintf("<EM>%s</EM><BR>\n",&buf[4]);
 198                 return(nummsgs);
 199                 }
 200         while (serv_gets(buf), strcmp(buf,"000")) {
 201                 msgarr[nummsgs] = atol(buf);
 202                 ++nummsgs;
 203                 }
 204         return(nummsgs);
 205         }
 206
 207
 208 /*
 209  * command loop for reading messages
 210  */
 211 void readloop(char *oper) {
 212         char cmd[256];
 213         int a;
 214         int nummsgs;
 215
 216         printf("HTTP/1.0 200 OK\n");
 217         output_headers(1, "bottom");
 218
 219         wprintf("<CENTER><B>%s - ",wc_roomname);
 220         if (!strcmp(oper,"readnew")) {
 221                 strcpy(cmd,"MSGS NEW");
 222                 wprintf("new messages");
 223                 }
 224         else if (!strcmp(oper,"readold")) {
 225                 strcpy(cmd,"MSGS OLD");
 226                 wprintf("old messages");
 227                 }
 228         else {
 229                 strcpy(cmd,"MSGS ALL");
 230                 wprintf("all messages");
 231                 }
 232         wprintf("</B></CENTER><BR>\n");
 233
 234         nummsgs = load_msg_ptrs(cmd);
 235         if (nummsgs == 0) {
 236                 if (!strcmp(oper,"readnew")) {
 237                         wprintf("<EM>No new messages in this room.</EM>\n");
 238                         }
 239                 else if (!strcmp(oper,"readold")) {
 240                         wprintf("<EM>No old messages in this room.</EM>\n");
 241                         }
 242                 else {
 243                         wprintf("<EM>This room is empty.</EM>\n");
 244                         }
 245                 goto DONE;
 246                 }
 247
 248         for (a=0; a<nummsgs; ++a) {
 249                 read_message(msgarr[a], oper);
 250                 }
 251
 252 DONE:   wprintf("</BODY></HTML>\n");
 253         wDumpContent();
 254         }
 255
 256
 257
 258
 259 /*
 260  * post message (or don't post message)
 261  */
 262 void post_message(void) {
 263         char buf[256];
 264
 265         printf("HTTP/1.0 200 OK\n");
 266         output_headers(1, "bottom");
 267
 268         strcpy(buf, bstr("sc"));
 269         if (strcasecmp(buf, "Save message")) {
 270                 wprintf("Cancelled.  Message was not posted.<BR>\n");
 271                 }
 272
 273         else {
 274                 sprintf(buf,"ENT0 1|%s|0|0",bstr("recp"));
 275                 serv_puts(buf);
 276                 serv_gets(buf);
 277                 if (buf[0]=='4') {
 278                         text_to_server(bstr("msgtext"));
 279                         serv_puts("000");
 280                         wprintf("Message has been posted.<BR>\n");
 281                         }
 282                 else {
 283                         wprintf("<EM>%s</EM><BR>\n",&buf[4]);
 284                         }
 285                 }
 286
 287         wprintf("</BODY></HTML>\n");
 288         wDumpContent();
 289         }
 290
 291
 292
 293
 294
 295
 296
 297
 298 /*
 299  * prompt for a recipient (to be called from display_enter() only)
 300  */
 301 void prompt_for_recipient() {
 302
 303         wprintf("<TABLE WIDTH=100% BORDER=0 BGCOLOR=007700><TR><TD>");
 304         wprintf("<FONT SIZE=+1 COLOR=\"FFFFFF\"");
 305         wprintf("<B>Send private e-mail</B>\n");
 306         wprintf("</FONT></TD></TR></TABLE>\n");
 307
 308         wprintf("<CENTER>");
 309         wprintf("<FORM METHOD=\"POST\" ACTION=\"/display_enter\">\n");
 310         wprintf("Enter recipient: ");
 311         wprintf("<INPUT TYPE=\"text\" NAME=\"recp\" MAXLENGTH=\"64\"><BR>\n");
 312         wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Enter message\">");
 313         wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Cancel\">");
 314         wprintf("</FORM></CENTER>\n");
 315         }
 316
 317
 318
 319 /*
 320  * display the message entry screen
 321  */
 322 void display_enter(void) {
 323         char buf[256];
 324         long now;
 325         struct tm *tm;
 326
 327         printf("HTTP/1.0 200 OK\n");
 328         output_headers(1, "bottom");
 329
 330         sprintf(buf,"ENT0 0|%s|0|0",bstr("recp"));
 331         serv_puts(buf);
 332         serv_gets(buf);
 333
 334         if (!strncmp(buf,"570",3)) {
 335                 if (strlen(bstr("recp"))>0) {
 336                         wprintf("<EM>%s</EM><BR>\n",&buf[4]);
 337                         }
 338                 prompt_for_recipient();
 339                 goto DONE;
 340                 }
 341
 342         if (buf[0]!='2') {
 343                 wprintf("<EM>%s</EM><BR>\n",&buf[4]);
 344                 goto DONE;
 345                 }
 346
 347         wprintf("<CENTER>Enter message below.  Messages are formatted to\n");
 348         wprintf("the <EM>reader's</EM> screen width.  To defeat the\n");
 349         wprintf("formatting, indent a line at least one space.  \n");
 350         wprintf("<BR>");
 351
 352         time(&now);
 353         tm=(struct tm *)localtime(&now);
 354         strcpy(buf,(char *)asctime(tm)); buf[strlen(buf)-1]=0;
 355         strcpy(&buf[16],&buf[19]);
 356         wprintf("</CENTER><FONT COLOR=\"440000\"><B> %s ",&buf[4]);
 357         wprintf("from %s ",wc_username);
 358         if (strlen(bstr("recp"))>0) wprintf("to %s ",bstr("recp"));
 359         wprintf("in %s&gt; ",wc_roomname);
 360         wprintf("</B></FONT><BR><CENTER>\n");
 361
 362         wprintf("<FORM METHOD=\"POST\" ACTION=\"/post\">\n");
 363         wprintf("<INPUT TYPE=\"hidden\" NAME=\"recp\" VALUE=\"%s\">\n",
 364                 bstr("recp"));
 365         wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Save message\">");
 366         wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Cancel\"><BR>\n");
 367
 368         wprintf("<TEXTAREA NAME=\"msgtext\" wrap=soft ROWS=30 COLS=80 WIDTH=80></TEXTAREA><P>\n");
 369
 370         wprintf("</FORM></CENTER>\n");
 371 DONE:   wprintf("</BODY></HTML>\n");
 372         wDumpContent();
 373         }
 374
 375
 376
 377
 378
 379
 380
 381
 382
 383
 384 /*
 385  * Confirm deletion of a message
 386  */
 387 void confirm_delete_msg(void) {
 388         long msgid;
 389
 390         msgid = atol(bstr("msgid"));
 391
 392         printf("HTTP/1.0 200 OK\n");
 393         output_headers(1, "bottom");
 394
 395         wprintf("<TABLE WIDTH=100% BORDER=0 BGCOLOR=770000><TR><TD>");
 396         wprintf("<FONT SIZE=+1 COLOR=\"FFFFFF\"");
 397         wprintf("<B>Confirm deletion of message</B>\n");
 398         wprintf("</FONT></TD></TR></TABLE>\n");
 399
 400         wprintf("<CENTER>");
 401
 402         wprintf("Are you sure you want to delete this message? <BR>\n");
 403
 404         wprintf("<FORM METHOD=\"POST\" ACTION=\"/delete_msg\">\n");
 405         wprintf("<INPUT TYPE=\"hidden\" NAME=\"msgid\" VALUE=\"%s\">\n",
 406                 bstr("msgid"));
 407         wprintf("<INPUT TYPE=\"submit\" NAME=\"yesno\" VALUE=\"Yes\">");
 408         wprintf("<INPUT TYPE=\"submit\" NAME=\"yesno\" VALUE=\"No\">");
 409         wprintf("</FORM></CENTER>\n");
 410
 411         wprintf("</CENTER>\n");
 412         wprintf("</BODY></HTML>\n");
 413         wDumpContent();
 414         }
 415
 416
 417
 418 void delete_msg(void) {
 419         long msgid;
 420         char buf[256];
 421
 422         msgid = atol(bstr("msgid"));
 423
 424         printf("HTTP/1.0 200 OK\n");
 425         output_headers(1, "bottom");
 426
 427         if (!strcasecmp(bstr("yesno"), "Yes")) {
 428                 sprintf(buf, "DELE %ld", msgid);
 429                 serv_puts(buf);
 430                 serv_gets(buf);
 431                 wprintf("<EM>%s</EM><BR>\n", &buf[4]);
 432                 }
 433         else {
 434                 wprintf("<EM>Message not deleted.</EM><BR>\n");
 435                 }
 436
 437         wprintf("</BODY></HTML>\n");
 438         wDumpContent();
 439         }
 440
 441
 442
 443
 444 /*
 445  * Confirm move of a message
 446  */
 447 void confirm_move_msg(void) {
 448         long msgid;
 449         char buf[256];
 450         char targ[256];
 451
 452         msgid = atol(bstr("msgid"));
 453
 454         printf("HTTP/1.0 200 OK\n");
 455         output_headers(1, "bottom");
 456
 457         wprintf("<TABLE WIDTH=100% BORDER=0 BGCOLOR=770000><TR><TD>");
 458         wprintf("<FONT SIZE=+1 COLOR=\"FFFFFF\"");
 459         wprintf("<B>Confirm move of message</B>\n");
 460         wprintf("</FONT></TD></TR></TABLE>\n");
 461
 462         wprintf("<CENTER>");
 463
 464         wprintf("Please select the room to which you would like this message moved:<BR>\n");
 465
 466         wprintf("<FORM METHOD=\"POST\" ACTION=\"/move_msg\">\n");
 467         wprintf("<INPUT TYPE=\"hidden\" NAME=\"msgid\" VALUE=\"%s\">\n",
 468                 bstr("msgid"));
 469
 470
 471         wprintf("<SELECT NAME=\"target_room\" SIZE=5>\n");
 472         serv_puts("LKRA");
 473         serv_gets(buf);
 474         if (buf[0]=='1') {
 475                 while(serv_gets(buf), strcmp(buf,"000")) {
 476                         extract(targ,buf,0);
 477                         wprintf("<OPTION>");
 478                         escputs(targ);
 479                         wprintf("\n");
 480                         }
 481                 }
 482         wprintf("</SELECT>\n");
 483         wprintf("<BR>\n");
 484
 485         wprintf("<INPUT TYPE=\"submit\" NAME=\"yesno\" VALUE=\"Move\">");
 486         wprintf("<INPUT TYPE=\"submit\" NAME=\"yesno\" VALUE=\"Cancel\">");
 487         wprintf("</FORM></CENTER>\n");
 488
 489         wprintf("</CENTER>\n");
 490         wprintf("</BODY></HTML>\n");
 491         wDumpContent();
 492         }
 493
 494
 495
 496 void move_msg(void) {
 497         long msgid;
 498         char buf[256];
 499
 500         msgid = atol(bstr("msgid"));
 501
 502         printf("HTTP/1.0 200 OK\n");
 503         output_headers(1, "bottom");
 504
 505         if (!strcasecmp(bstr("yesno"), "Move")) {
 506                 sprintf(buf, "MOVE %ld|%s", msgid, bstr("target_room"));
 507                 serv_puts(buf);
 508                 serv_gets(buf);
 509                 wprintf("<EM>%s</EM><BR>\n", &buf[4]);
 510                 }
 511         else {
 512                 wprintf("<EM>Message not deleted.</EM><BR>\n");
 513                 }
 514
 515         wprintf("</BODY></HTML>\n");
 516         wDumpContent();
 517         }
 518