webcit/messages.c

   1
   2 #include <ctype.h>
   3 #include <stdlib.h>
   4 #include <unistd.h>
   5 #include <stdio.h>
   6 #include <fcntl.h>
   7 #include <signal.h>
   8 #include <sys/types.h>
   9 #include <sys/wait.h>
  10 #include <sys/socket.h>
  11 #include <limits.h>
  12 #include <netinet/in.h>
  13 #include <netdb.h>
  14 #include <string.h>
  15 #include <pwd.h>
  16 #include <errno.h>
  17 #include <stdarg.h>
  18 #include <pthread.h>
  19 #include <signal.h>
  20 #include "webcit.h"
  21
  22
  23
  24
  25
  26 /*
  27  * Look for URL's embedded in a buffer and make them linkable.  We use a
  28  * target window in order to keep the BBS session in its own window.
  29  */
  30 void url(buf)
  31 char buf[];
  32 {
  33
  34         int pos;
  35         int start, end;
  36         char ench;
  37         char urlbuf[256];
  38         char outbuf[1024];
  39
  40         start = (-1);
  41         end = strlen(buf);
  42         ench = 0;
  43
  44         for (pos = 0; pos < strlen(buf); ++pos) {
  45                 if (!strncasecmp(&buf[pos], "http://", 7))
  46                         start = pos;
  47                 if (!strncasecmp(&buf[pos], "ftp://", 6))
  48                         start = pos;
  49         }
  50
  51         if (start < 0)
  52                 return;
  53
  54         if ((start > 0) && (buf[start - 1] == '<'))
  55                 ench = '>';
  56         if ((start > 0) && (buf[start - 1] == '['))
  57                 ench = ']';
  58         if ((start > 0) && (buf[start - 1] == '('))
  59                 ench = ')';
  60         if ((start > 0) && (buf[start - 1] == '{'))
  61                 ench = '}';
  62
  63         for (pos = strlen(buf); pos > start; --pos) {
  64                 if ((buf[pos] == ' ') || (buf[pos] == ench))
  65                         end = pos;
  66         }
  67
  68         strncpy(urlbuf, &buf[start], end - start);
  69         urlbuf[end - start] = 0;
  70
  71
  72         strncpy(outbuf, buf, start);
  73         sprintf(&outbuf[start], "%cA HREF=%c%s%c TARGET=%c%s%c%c%s%c/A%c",
  74                 LB, QU, urlbuf, QU, QU, TARGET, QU, RB, urlbuf, LB, RB);
  75         strcat(outbuf, &buf[end]);
  76         if ( strlen(outbuf) < 250 )
  77                 strcpy(buf, outbuf);
  78 }
  79
  80
  81 void read_message(long msgnum, int is_summary) {
  82         char buf[256];
  83         char m_subject[256];
  84         char from[256];
  85         char node[256];
  86         char rfca[256];
  87         char reply_to[512];
  88         char now[256];
  89         int format_type = 0;
  90         int nhdr = 0;
  91         int bq = 0;
  92
  93         strcpy(from, "");
  94         strcpy(node, "");
  95         strcpy(rfca, "");
  96         strcpy(reply_to, "");
  97
  98         sprintf(buf, "MSG0 %ld", msgnum);
  99         serv_puts(buf);
 100         serv_gets(buf);
 101         if (buf[0] != '1') {
 102                 wprintf("<STRONG>ERROR:</STRONG> %s<BR>\n", &buf[4]);
 103                 return;
 104         }
 105         wprintf("<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=1 BGCOLOR=000077><TR><TD>\n");
 106         wprintf("<FONT ");
 107         if (!is_summary) wprintf("SIZE=+1 ");
 108         wprintf("COLOR=\"FFFF00\"> ");
 109         strcpy(m_subject, "");
 110
 111         while (serv_gets(buf), strncasecmp(buf, "text", 4)) {
 112                 if (!strncasecmp(buf, "nhdr=yes", 8))
 113                         nhdr = 1;
 114                 if (nhdr == 1)
 115                         buf[0] = '_';
 116                 if (!strncasecmp(buf, "type=", 5))
 117                         format_type = atoi(&buf[5]);
 118                 if (!strncasecmp(buf, "from=", 5)) {
 119                         strcpy(from, &buf[5]);
 120                         wprintf("from ");
 121                         escputs(from);
 122                         wprintf(" ");
 123                 }
 124                 if (!strncasecmp(buf, "subj=", 5))
 125                         strcpy(m_subject, &buf[5]);
 126                 if ((!strncasecmp(buf, "hnod=", 5))
 127                     && (strcasecmp(&buf[5], serv_info.serv_humannode)))
 128                         wprintf("(%s) ", &buf[5]);
 129                 if ((!strncasecmp(buf, "room=", 5))
 130                     && (strcasecmp(&buf[5], WC->wc_roomname)))
 131                         wprintf("in %s> ", &buf[5]);
 132                 if (!strncasecmp(buf, "rfca=", 5)) {
 133                         strcpy(rfca, &buf[5]);
 134                         wprintf("&lt;");
 135                         escputs(rfca);
 136                         wprintf("&gt; ");
 137                 }
 138
 139                 if (!strncasecmp(buf, "node=", 5)) {
 140                         if ( ((WC->room_flags & QR_NETWORK)
 141                         || ((strcasecmp(&buf[5], serv_info.serv_nodename)
 142                         && (strcasecmp(&buf[5], serv_info.serv_fqdn)))))
 143                         && (strlen(rfca)==0)
 144                         ) {
 145                                 wprintf("@%s ", &buf[5]);
 146                         }
 147                 }
 148                 if (!strncasecmp(buf, "rcpt=", 5))
 149                         wprintf("to %s ", &buf[5]);
 150                 if (!strncasecmp(buf, "time=", 5)) {
 151                         fmt_date(now, atol(&buf[5]));
 152                         wprintf("%s ", now);
 153                 }
 154         }
 155
 156
 157         /* Generate a reply-to address */
 158         if (strlen(rfca) > 0) {
 159                 strcpy(reply_to, rfca);
 160         }
 161         else {
 162                 if (strlen(node) > 0) {
 163                         snprintf(reply_to, sizeof(reply_to), "%s @ %s",
 164                                 from, node);
 165                 }
 166                 else {
 167                         snprintf(reply_to, sizeof(reply_to), "%s", from);
 168                 }
 169         }
 170
 171         if (nhdr == 1)
 172                 wprintf("****");
 173         wprintf("</FONT></TD>");
 174
 175         /* begin right-hand toolbar */
 176         wprintf("<TD ALIGN=RIGHT>\n"
 177                 "<TABLE BORDER=0><TR>\n");
 178
 179         if (is_summary) {
 180                 wprintf("<TD BGCOLOR=\"AAAADD\">"
 181                         "<A HREF=\"/readfwd?startmsg=%ld", msgnum);
 182                 wprintf("&maxmsgs=1&summary=0\">Read</A>"
 183                         "</TD>\n", msgnum);
 184         }
 185
 186         wprintf("<TD BGCOLOR=\"AAAADD\">"
 187                 "<A HREF=\"/display_enter?recp=");
 188         urlescputs(reply_to);
 189         wprintf("\">Reply</A>"
 190                 "</TD>\n", msgnum);
 191
 192         if (WC->is_room_aide) {
 193                 wprintf("<TD BGCOLOR=\"AAAADD\">"
 194                         "<A HREF=\"/confirm_move_msg"
 195                         "&msgid=%ld"
 196                         "\">Move</A>"
 197                         "</TD>\n", msgnum);
 198
 199                 wprintf("<TD BGCOLOR=\"AAAADD\">"
 200                         "<A HREF=\"/confirm_delete_msg"
 201                         "&msgid=%ld"
 202                         "\">Del</A>"
 203                         "</TD>\n", msgnum);
 204
 205         }
 206
 207         wprintf("</TR></TABLE>\n"
 208                 "</TD>\n");
 209
 210         /* end right-hand toolbar */
 211
 212
 213         if (strlen(m_subject) > 0) {
 214                 wprintf("<TR><TD><FONT COLOR=\"FFFFFF\">"
 215                         "Subject: %s</FONT>"
 216                         "</TD><TD>&nbsp;</TD></TR>\n", m_subject);
 217         }
 218
 219         wprintf("</TR></TABLE>\n");
 220
 221         if (is_summary) {
 222                 while (serv_gets(buf), strcmp(buf, "000")) ;
 223                 return;
 224         }
 225
 226         if (format_type == 0) {
 227                 fmout(NULL);
 228         } else {
 229                 while (serv_gets(buf), strcmp(buf, "000")) {
 230                         while ((strlen(buf) > 0) && (isspace(buf[strlen(buf) - 1])))
 231                                 buf[strlen(buf) - 1] = 0;
 232                         if ((bq == 0) &&
 233                             ((!strncmp(buf, ">", 1)) || (!strncmp(buf, " >", 2)) || (!strncmp(buf, " :-)", 4)))) {
 234                                 wprintf("<FONT COLOR=\"000044\"><I>");
 235                                 bq = 1;
 236                         } else if ((bq == 1) &&
 237                                    (strncmp(buf, ">", 1)) && (strncmp(buf, " >", 2)) && (strncmp(buf, " :-)", 4))) {
 238                                 wprintf("</FONT></I>");
 239                                 bq = 0;
 240                         }
 241                         wprintf("<TT>");
 242                         url(buf);
 243                         escputs(buf);
 244                         wprintf("</TT><BR>\n");
 245                 }
 246         }
 247         wprintf("</I><BR>");
 248 }
 249
 250
 251
 252 /*
 253  * load message pointers from the server
 254  */
 255 int load_msg_ptrs(servcmd)
 256 char *servcmd;
 257 {
 258         char buf[256];
 259         int nummsgs;
 260
 261         nummsgs = 0;
 262         serv_puts(servcmd);
 263         serv_gets(buf);
 264         if (buf[0] != '1') {
 265                 wprintf("<EM>%s</EM><BR>\n", &buf[4]);
 266                 return (nummsgs);
 267         }
 268         while (serv_gets(buf), strcmp(buf, "000")) {
 269                 WC->msgarr[nummsgs] = atol(buf);
 270                 ++nummsgs;
 271         }
 272         return (nummsgs);
 273 }
 274
 275
 276 /*
 277  * command loop for reading messages
 278  */
 279 void readloop(char *oper)
 280 {
 281         char cmd[256];
 282         int a;
 283         int nummsgs;
 284         long startmsg;
 285         int maxmsgs;
 286         int num_displayed = 0;
 287         int is_summary = 0;
 288
 289         startmsg = atol(bstr("startmsg"));
 290         maxmsgs = atoi(bstr("maxmsgs"));
 291         is_summary = atoi(bstr("summary"));
 292         if (maxmsgs == 0) maxmsgs = 20;
 293
 294         output_headers(1);
 295
 296         /* wprintf("<CENTER><B>%s - ",
 297                 WC->wc_roomname); */
 298         if (!strcmp(oper, "readnew")) {
 299                 strcpy(cmd, "MSGS NEW");
 300                 /* wprintf("new messages"); */
 301         } else if (!strcmp(oper, "readold")) {
 302                 strcpy(cmd, "MSGS OLD");
 303                 /* wprintf("old messages"); */
 304         } else {
 305                 strcpy(cmd, "MSGS ALL");
 306                 /* wprintf("all messages"); */
 307         }
 308         /* wprintf("</B></CENTER><BR>\n"); */
 309
 310         nummsgs = load_msg_ptrs(cmd);
 311         if (nummsgs == 0) {
 312                 if (!strcmp(oper, "readnew")) {
 313                         wprintf("<EM>No new messages in this room.</EM>\n");
 314                 } else if (!strcmp(oper, "readold")) {
 315                         wprintf("<EM>No old messages in this room.</EM>\n");
 316                 } else {
 317                         wprintf("<EM>This room is empty.</EM>\n");
 318                 }
 319                 goto DONE;
 320         }
 321
 322         for (a = 0; a < nummsgs; ++a) {
 323                 if (WC->msgarr[a] >= startmsg) {
 324
 325                         read_message(WC->msgarr[a], is_summary);
 326                         if (is_summary) wprintf("<BR>");
 327
 328                         ++num_displayed;
 329                         if ( (num_displayed >= maxmsgs) && (a < nummsgs) ) {
 330                                 wprintf("<CENTER><FONT SIZE=+1>"
 331                                         "There are %d more messages here."
 332                                         "&nbsp;&nbsp;&nbsp;</FONT>",
 333                                         nummsgs - num_displayed);
 334                                 wprintf("<A HREF=\"/readfwd?startmsg=%ld"
 335                                         "&maxmsgs=999999&summary=%d\">"
 336                                         "Read them ALL"
 337                                         "</A>&nbsp;&nbsp;&nbsp;",
 338                                         WC->msgarr[a+1], is_summary);
 339                                 wprintf("<A HREF=\"/readfwd?startmsg=%ld"
 340                                         "&maxmsgs=%d&summary=%d\">"
 341                                         "Read next %d"
 342                                         "</A>",
 343                                         WC->msgarr[a+1], maxmsgs,
 344                                         is_summary, maxmsgs);
 345                                 wprintf("</CENTER><HR>\n");
 346                                 goto DONE;
 347                         }
 348                 }
 349         }
 350
 351 DONE:   wDumpContent(1);
 352 }
 353
 354
 355
 356
 357 /*
 358  * Post message (or don't post message)
 359  *
 360  * Note regarding the "dont_post" variable:
 361  * A random value (actually, it's just a timestamp) is inserted as a hidden
 362  * field called "postseq" when the display_enter page is generated.  This
 363  * value is checked when posting, using the static variable dont_post.  If a
 364  * user attempts to post twice using the same dont_post value, the message is
 365  * discarded.  This prevents the accidental double-saving of the same message
 366  * if the user happens to click the browser "back" button.
 367  */
 368 void post_message(void)
 369 {
 370         char buf[256];
 371         static long dont_post = (-1L);
 372
 373         output_headers(1);
 374
 375         wprintf("<FONT FACE=\"Arial,Helvetica,sans-serif\">");
 376         strcpy(buf, bstr("sc"));
 377         if (strcasecmp(buf, "Save message")) {
 378                 wprintf("Cancelled.  Message was not posted.<BR>\n");
 379         } else if (atol(bstr("postseq")) == dont_post) {
 380                 wprintf("Automatically cancelled because you have already "
 381                         "saved this message.<BR>\n");
 382         } else {
 383                 sprintf(buf, "ENT0 1|%s|0|0", bstr("recp"));
 384                 serv_puts(buf);
 385                 serv_gets(buf);
 386                 if (buf[0] == '4') {
 387                         text_to_server(bstr("msgtext"));
 388                         serv_puts("000");
 389                         wprintf("Message has been posted.<BR>\n");
 390                         dont_post = atol(bstr("postseq"));
 391                 } else {
 392                         wprintf("<EM>%s</EM><BR>\n", &buf[4]);
 393                 }
 394         }
 395
 396         wDumpContent(1);
 397 }
 398
 399
 400
 401
 402
 403
 404
 405
 406 /*
 407  * prompt for a recipient (to be called from display_enter() only)
 408  */
 409 void prompt_for_recipient()
 410 {
 411
 412         wprintf("<TABLE WIDTH=100% BORDER=0 BGCOLOR=007700><TR><TD>");
 413         wprintf("<FONT SIZE=+1 COLOR=\"FFFFFF\"");
 414         wprintf("<B>Send private e-mail</B>\n");
 415         wprintf("</FONT></TD></TR></TABLE>\n");
 416
 417         wprintf("<CENTER>");
 418         wprintf("<FORM METHOD=\"POST\" ACTION=\"/display_enter\">\n");
 419         wprintf("Enter recipient: ");
 420         wprintf("<INPUT TYPE=\"text\" NAME=\"recp\" MAXLENGTH=\"64\"><BR>\n");
 421         wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Enter message\">");
 422         wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Cancel\">");
 423         wprintf("</FORM></CENTER>\n");
 424 }
 425
 426
 427
 428 /*
 429  * display the message entry screen
 430  */
 431 void display_enter(void)
 432 {
 433         char buf[256];
 434         long now;
 435         struct tm *tm;
 436
 437         output_headers(1);
 438
 439         wprintf("<FACE=\"Arial,Helvetica,sans-serif\">");
 440
 441         sprintf(buf, "ENT0 0|%s|0|0", bstr("recp"));
 442         serv_puts(buf);
 443         serv_gets(buf);
 444
 445         if (!strncmp(buf, "570", 3)) {
 446                 if (strlen(bstr("recp")) > 0) {
 447                         wprintf("<EM>%s</EM><BR>\n", &buf[4]);
 448                 }
 449                 prompt_for_recipient();
 450                 goto DONE;
 451         }
 452         if (buf[0] != '2') {
 453                 wprintf("<EM>%s</EM><BR>\n", &buf[4]);
 454                 goto DONE;
 455         }
 456
 457         now = time(NULL);
 458         tm = (struct tm *) localtime(&now);
 459         strcpy(buf, (char *) asctime(tm));
 460         buf[strlen(buf) - 1] = 0;
 461         strcpy(&buf[16], &buf[19]);
 462         wprintf("</CENTER><FONT COLOR=\"440000\"><B> %s ", &buf[4]);
 463         wprintf("from %s ", WC->wc_username);
 464         if (strlen(bstr("recp")) > 0)
 465                 wprintf("to %s ", bstr("recp"));
 466         wprintf("in %s&gt; ", WC->wc_roomname);
 467         wprintf("</B></FONT><BR><CENTER>\n");
 468
 469         wprintf("<FORM METHOD=\"POST\" ACTION=\"/post\">\n");
 470         wprintf("<INPUT TYPE=\"hidden\" NAME=\"recp\" VALUE=\"%s\">\n",
 471                 bstr("recp"));
 472         wprintf("<INPUT TYPE=\"hidden\" NAME=\"postseq\" VALUE=\"%ld\">\n",
 473                 now);
 474         wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Save message\">"
 475                 "<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Cancel\"><BR>\n");
 476
 477         wprintf("<TEXTAREA NAME=\"msgtext\" wrap=soft ROWS=30 COLS=80 "
 478                 "WIDTH=80></TEXTAREA><P>\n");
 479
 480         wprintf("</FORM></CENTER>\n");
 481 DONE:   wDumpContent(1);
 482         wprintf("</FONT>");
 483 }
 484
 485
 486
 487
 488
 489
 490
 491 /*
 492  * Confirm deletion of a message
 493  */
 494 void confirm_delete_msg(void)
 495 {
 496         long msgid;
 497
 498         msgid = atol(bstr("msgid"));
 499
 500         output_headers(1);
 501
 502         wprintf("<TABLE WIDTH=100% BORDER=0 BGCOLOR=770000><TR><TD>");
 503         wprintf("<FONT SIZE=+1 COLOR=\"FFFFFF\"");
 504         wprintf("<B>Confirm deletion of message</B>\n");
 505         wprintf("</FONT></TD></TR></TABLE>\n");
 506
 507         wprintf("<CENTER>");
 508
 509         wprintf("Are you sure you want to delete this message? <BR>\n");
 510
 511         wprintf("<FORM METHOD=\"POST\" ACTION=\"/delete_msg\">\n");
 512         wprintf("<INPUT TYPE=\"hidden\" NAME=\"msgid\" VALUE=\"%s\">\n",
 513                 bstr("msgid"));
 514         wprintf("<INPUT TYPE=\"submit\" NAME=\"yesno\" VALUE=\"Yes\">");
 515         wprintf("<INPUT TYPE=\"submit\" NAME=\"yesno\" VALUE=\"No\">");
 516         wprintf("</FORM></CENTER>\n");
 517
 518         wprintf("</CENTER>\n");
 519         wDumpContent(1);
 520 }
 521
 522
 523
 524 void delete_msg(void)
 525 {
 526         long msgid;
 527         char buf[256];
 528
 529         msgid = atol(bstr("msgid"));
 530
 531         output_headers(1);
 532
 533         if (!strcasecmp(bstr("yesno"), "Yes")) {
 534                 sprintf(buf, "DELE %ld", msgid);
 535                 serv_puts(buf);
 536                 serv_gets(buf);
 537                 wprintf("<EM>%s</EM><BR>\n", &buf[4]);
 538         } else {
 539                 wprintf("<EM>Message not deleted.</EM><BR>\n");
 540         }
 541
 542         wDumpContent(1);
 543 }
 544
 545
 546
 547
 548 /*
 549  * Confirm move of a message
 550  */
 551 void confirm_move_msg(void)
 552 {
 553         long msgid;
 554         char buf[256];
 555         char targ[256];
 556
 557         msgid = atol(bstr("msgid"));
 558
 559         output_headers(1);
 560
 561         wprintf("<TABLE WIDTH=100% BORDER=0 BGCOLOR=770000><TR><TD>");
 562         wprintf("<FONT SIZE=+1 COLOR=\"FFFFFF\"");
 563         wprintf("<B>Confirm move of message</B>\n");
 564         wprintf("</FONT></TD></TR></TABLE>\n");
 565
 566         wprintf("<CENTER>");
 567
 568         wprintf("Please select the room to which you would like this message moved:<BR>\n");
 569
 570         wprintf("<FORM METHOD=\"POST\" ACTION=\"/move_msg\">\n");
 571         wprintf("<INPUT TYPE=\"hidden\" NAME=\"msgid\" VALUE=\"%s\">\n",
 572                 bstr("msgid"));
 573
 574
 575         wprintf("<SELECT NAME=\"target_room\" SIZE=5>\n");
 576         serv_puts("LKRA");
 577         serv_gets(buf);
 578         if (buf[0] == '1') {
 579                 while (serv_gets(buf), strcmp(buf, "000")) {
 580                         extract(targ, buf, 0);
 581                         wprintf("<OPTION>");
 582                         escputs(targ);
 583                         wprintf("\n");
 584                 }
 585         }
 586         wprintf("</SELECT>\n");
 587         wprintf("<BR>\n");
 588
 589         wprintf("<INPUT TYPE=\"submit\" NAME=\"yesno\" VALUE=\"Move\">");
 590         wprintf("<INPUT TYPE=\"submit\" NAME=\"yesno\" VALUE=\"Cancel\">");
 591         wprintf("</FORM></CENTER>\n");
 592
 593         wprintf("</CENTER>\n");
 594         wDumpContent(1);
 595 }
 596
 597
 598
 599 void move_msg(void)
 600 {
 601         long msgid;
 602         char buf[256];
 603
 604         msgid = atol(bstr("msgid"));
 605
 606         output_headers(1);
 607
 608         if (!strcasecmp(bstr("yesno"), "Move")) {
 609                 sprintf(buf, "MOVE %ld|%s", msgid, bstr("target_room"));
 610                 serv_puts(buf);
 611                 serv_gets(buf);
 612                 wprintf("<EM>%s</EM><BR>\n", &buf[4]);
 613         } else {
 614                 wprintf("<EM>Message not deleted.</EM><BR>\n");
 615         }
 616
 617         wDumpContent(1);
 618 }
 619
 620
 621