chat.c

Free Chat beta release 2 fot linux,采用C语言写的运行在linux下的聊天室程序

/*
  chat.c
  
  For Free Chat  (beta release 2e2)
  
  By Bill Kendrick
  [e-mail]
  http://zippy.sonoma.edu/kendrick/

  September 29, 1996 - June 9, 1998
*/


#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <unistd.h>
#include <fcntl.h>
#include "cgi-util.h"
#include "dump.h"
#include "readline.h"
#include "instr.h"
#include "copyback.h"
#include "defines.h"
#include "whattime.h"
#include "myopen.h"
#include "nicetime.h"

#define VER "b2e2"


int noswear(char * text);
int whohere(char * name, char * email, char * time, int only_posting,
	    int only_watching);
void spacetoplus(char * dest, char * source);
void dumpform(char * name, char * email, char * time, char * name2,
	      char * lastmesg, int only_posting, char * password,
	      char * whisper_to);
void addfaces(char * mesg);
void addconverts(char * mesg);
int isnew(char * this, char * last);
void addurls(char * str);
void robotspeak(char * time, char * name, char * mesg);
void informadmin(char * name, char * mesg);

int sysop, god, registered, joining;


int main(int argc, char * argv[])
{
  char name[STRLEN], email[STRLEN], mesg[STRLEN], topic[STRLEN], name2[STRLEN],
    temp[STRLEN], time[STRLEN], xname[STRLEN], xtime[STRLEN], xmesg[STRLEN],
    lastmesg[STRLEN], lasttime[20], password[32], access_name[100],
    access_pass[100], access_type[100], access_url[512], your_url[512],
    temp2[STRLEN], whisper_to[STRLEN];
  char shownfaces[MAXLINES][STRLEN];
  int here, found, ok, i, x, space, only_watching, only_posting,
    num_shownfaces, j, showed_pict, fdi;
  FILE * fi, * fiface;
  
  
  sysop = 0;
  god = 0;
  registered = 0;
  
  
  /* Initialize CGI Interface: */
  
  cgiinit();
  printf("Content-type: text/html\n\n");
  
  if (getentryyesno("version", 0))
    {
      printf("Free Chat<br>version %s<p>\n", VER);
      printf("<a href=\"mailto:%s\"><code>%s</code></a><p>\n",
	     ADMIN_EMAIL, ADMIN_EMAIL);
      exit(0);
    }

  joining = getentryyesno("join", 0);
  
  only_watching = getentryyesno("watch", 0);
  getentry(name, "name");
  for (i = 0; i < strlen(name); i++)
    if (isalnum(name[i]) == 0)
      name[i] = '-';
  
  while (name[0] == '-')
    {
      strcpy(temp, name + 1);
      strcpy(name, temp);
    }

  while (name[strlen(name) - 1] == '-')
    name[strlen(name) - 1] = '\0';
  
  if (strlen(name) < 3)
    error("Please enter a more descriptive name!");
  
  
  clean(name);
  strcpy(name2, name);
  
  getentry(email, "email");
  clean(email);
  
  if (strlen(email) != 0 && goodemailaddress(email) == 0)
    error("Bad e-mail address!");
  
  getentry(password, "password");
  fi = fopen(ACCESS_FILE, "r");
  
  strcpy(your_url, "");
  
  registered = 0;
  
  if (fi != NULL)
    {
      do
	{
	  readline(fi, access_name);
	  
	  if (!feof(fi))
	    {
	      readline(fi, access_pass);
	      readline(fi, access_type);
	      readline(fi, access_url);
	      readline(fi, temp);
	      
	      if (strcasecmp(access_name, name) == 0)
		{
		  strcpy(your_url, access_url);
		  
		  if (strcmp(access_pass, password) == 0)
		    {
		      registered = 1;
		      
		      if (strcmp(access_type, "sysop") == 0)
			sysop = 1;
		      else if (strcmp(access_type, "god") == 0)
			{
			  sysop = 1;
			  god = 1;
			}
		    }
		  else
		    {
		      printf("<h1>Password Required</h1>\n");
		      printf("<form action=\"chat.cgi\" method=\"post\">\n");
		      printf("<input type=\"hidden\" name=\"name\"\n");
		      printf("value=\"%s\">\n", name);
		      printf("<input type=\"hidden\" name=\"email\"\n");
		      printf("value=\"%s\">\n", email);
		      if (getentryyesno("duelenter", 0) == 1)
			{
			  printf("<input type=\"hidden\"\n");
			  printf("name=\"duelenter\"\n");
			  printf("value=\"yes\">\n");
			}
		      printf("Password:\n");
		      printf("<input type=\"password\" name=\"password\">\n");
		      printf("<input type=\"submit\" value=\"Enter Chat\">\n");
		      printf("<br>\n</form>\n");
		      
		      fclose(fi);
		      
		      exit(0);
		    }
		}
	    }
	}
      while (!feof(fi));
      
      fclose(fi);
    }
  
  if (MUST_BE_REGISTERED == YES && registered == 0)
    {
      printf("Registered users only!<p>\n");
      exit(0);
    }
  
  
  if (getentryyesno("duelenter", 0) == 1)
    {
      only_posting = 1;
      
      printf("<html><head><title>Free Chat - Frames Mode");
      printf("</title></head>\n");
      
      printf("<FRAMESET Rows=\"%d,%d,*\" FRAMEBORDER=NO BORDER=NO\n",
	     FRAME1_HEIGHT, FRAME2_HEIGHT);
      printf("FRAMESPACING=\"0\">\n");
      printf("<FRAME NAME=\"ad\" SRC=\"%sad.html\" SCROLLING=\"NO\"\n",
	     PREPEND);
      printf("BORDER=NO NORESIZE MARGINWIDTH=1 MARGINHEIGHT=1>\n");
      printf("<FRAME NAME=\"entry\" SRC=\"");
      printf("chat.cgi?name=%s&email=%s&password=%s&join=yes&",
	     name, email, password);
      printf("post=yes\"\n");
      printf("FRAMEBORDER=NO SCROLLING=NO>\n");
      printf("<FRAME NAME=\"text\" SRC=\"");
      printf("chat.cgi?watch=yes&name=%s&email=%s&password=%s\"\n",
	     name, email, password);
      printf("FRAMEBORDER=NO>\n");
      printf("<NOFRAMES>\n");
      printf("<body bgcolor=\"#FFFFFF\" text=\"#000000\" link=\"#0000FF\"\n");
      printf("vlink=\"#FF0000\">\n");
      printf("<h1 align=center>");
      printf("<a href=\"chat.cgi?name=%s&email=%s&password=%s\">",
	     name, email, password);
      printf("Enter Chat</h1>\n");
      printf("</body></html>\n");
      printf("</NOFRAMES>\n");
      printf("</FRAMESET>\n");
      
      exit(0);
    }
  else
    only_posting = getentryyesno("post", 0);
  
  
  /* Grab file lock on lock.dat so we don't let anyone clobber anything!: */
  
  fdi = open("lock.dat", O_CREAT | O_WRONLY | O_TRUNC);
#ifdef SYSV
  lockf(fdi, F_LOCK, 0);
#else
  flock(fdi, LOCK_EX);
#endif
  
  
  /* Get current topic: */
  
  fi = myopen("topic.dat", "r");
  if (fi != NULL)
    {
      readline(fi, topic);
      fclose(fi);
    }
  else
    strcpy(topic, "");
  
  
  getentry(lasttime, "time");
  

  /* Get current time: */
  
  whattime(time);
  
  
  
  if (only_watching == 0)
    {
      fi = fopen("banned.dat", "r");
      if (fi != NULL)
	{
	  do
	    {
	      readline(fi, temp);
	      if (!feof(fi))
		{
		  if (strcmp(temp, name) == 0)
		    {
		      printf("<b>YOU HAVE BEEN BANNED!</b><p>\n");
		      printf("Misconduct is not allowed in chat!<p>\n");
		      printf("<a href=\"mailto:%s\"><code>%s</code></a><p>\n",
			     ADMIN_EMAIL);
		      exit(0);
		    }
		  
		  if (strstr(getenv("REMOTE_ADDR"), temp) != NULL)
		    {
		      printf("<b>IP ADDRESS BLOCK!</b><p>\n");
		      printf("Sorry!<p>\n");
		      printf("<a href=\"mailto:%s\"><code>%s</code></a><p>\n",
			     ADMIN_EMAIL);
		      exit(0);
		    }
		}
	    }
	  while (!feof(fi));
	  fclose(fi);
	}
      
      getentry(temp, "refresh.x");
      
      if (strlen(temp) == 0)
	{
	  getentry(mesg, "mesg");
	  clean(mesg);
	  
	  if (strlen(mesg) != 0)
	    {
	      getentry(whisper_to, "whisper");
	      if (strlen(whisper_to) != 0 && mesg[0] != '/' &&
		  strcmp(whisper_to, "NONE") != 0)
		{
		  sprintf(temp, "/%s %s", whisper_to, mesg);
		  strcpy(mesg, temp);
		}
	    }
	}
      else
	strcpy(mesg, "");
      
      /* Kill whispers if whispering is turned off: */

      if (WHISPERING == OFF || (WHISPERING == SYSOPS_ONLY && sysop == 0) ||
	  (WHISPERING == REGISTERED_ONLY && registered == 0))
	{
	  if (mesg[0] == '/')
	    {
	      strcmp(temp, mesg + 1);
	      strcpy(mesg, temp);
	    }
	}
      
      getentry(temp, "refresh");
      if (strlen(temp) != 0)
	strcpy(mesg, "");
      
      
      getentry(lastmesg, "lastmesg");
      
      
      
      space = -1;
      x = 0;
      for (i = 0; i < strlen(mesg); i++)
	{
	  if (mesg[i] == ' ')
	    {
	      x = 0;
	      space = i;
	    }
	  x = x + 1;
	  
	  if (x > 80)
	    {
	      strcpy(temp, mesg + i);
	      mesg[i] = ' ';
	      mesg[i + 1] = '\0';
	      strcat(mesg, temp);
	      space = i;
	      x = 0;
	    }
	}
      
      
      
      /* No blank names! */
      
      if (strlen(name) == 0 || noswear(name) == 0)
	{
	  if (strcmp(email, "") == 0)
	    {
	      dump("included/noname.html");
	      exit(0);
	    }
	  else
	    {
	      strcpy(name, email);
	      if (strchr(name, '@') != NULL)
		strcpy(strchr(name, '@'), "\0");
	    }
	}
      
      
      
      /* Find out how many people are here.. making sure you're in this
	 list. */
      
      here = whohere(name, email, time, only_posting, 0);
      

      /* Ban users! */
      
      if (strstr(mesg, "BAN ") == mesg)
	{
	  if (INFORM_ADMIN == YES || INFORM_ADMIN == SMALL)
	    informadmin(name, mesg);
	  
	  if (sysop == 1)
	    {
	      fi = fopen("banned.dat", "a");
	      if (fi != NULL)
		{
		  fprintf(fi, "%s\n", strchr(mesg, ' ') + 1);
		  fclose(fi);
		  
		  sprintf(temp, "%s has been banned!", strchr(mesg, ' ') + 1);
		  strcpy(mesg, temp);
		}
	    }
	  else
	    ok = 0;
	}
      
      
      
      /* Change the TOPIC: */
      
      if (strstr(mesg, "TOPIC ") == mesg)
	{
	  if (INFORM_ADMIN == YES)
	    informadmin(name, mesg);
	  
	  if (sysop == 1)
	    {
	      fi = fopen("topic.dat", "w");
	      
	      if (fi != NULL)
		{
		  fprintf(fi, "%s\n", strchr(mesg, ' ') + 1);
		  fclose(fi);
		  
		  sprintf(temp, "The topic is now \"%s\"!",
			  strchr(mesg, ' ') + 1);
		  strcpy(mesg, temp);
		}
	    }
	  else
	    ok = 0;
	}

      
      /* Dump top of page: */
      
      if (only_posting == 0)
	{
	  dump("included/chat-top.html");
	  
	  printf("<td>\n");
	  
#ifdef AD_CMD	  
	  fflush(stdout);
	  system(AD_CMD);
	  fflush(stdout);
#endif

	  printf("</td></tr></table></center>\n");
	  
	  printf("<table border=1 cellspacing=0 width=100%%\n");
	  printf("cellpadding=8>\n");
	  
	  printf("<tr><td valign=top width=20%% align=center>\n");
	  
	  printf("<h2 align=center>%s</h2>\n", topic);

	  printf("<font size=+1><b>");
	  if (here == 1 || here == 0)
	    printf("You are the only person here.");
	  else
	    printf("There are %d people here.", here);
	  printf("</b></font><br>\n");
	  
	  dump("included/chat-left.html");
	  
	  printf("</td><td valign=top>\n");
	}
      else
	{
	  dump("included/chat-post-top.html");
	}
      
      printf("<table border=0 cellspacing=0 cellpadding=0><tr><td>\n");
      
      dumpform(name, email, time, name2, mesg, only_posting, password,
	       whisper_to);
      
      
      /* Add their message: */
      
      if (strlen(mesg) != 0)
	{
	  ok = noswear(mesg);
	  if (ok == 0)
	    printf("</td><td><b><i><blink><u>NO SWEARING!!!</u></blink></b></i>\n");
	}
      else
	ok = 0;
      
      if (strcmp(lastmesg, mesg) == 0 && strlen(mesg) > 0)
	{
	  printf("</td><td><b><i><blink><u>YOU ALREADY SAID\n");
	  printf("THAT!</u></blink></b></i>\n");
	  ok = 0;
	}

      
      if (ok == 1)
	{
	  chatwrite(time, name, mesg);
	  robotspeak(time, name, mesg);
	}
      
      
      /* Notify them if their message is in all caps! */

      if (mesg[0] != '/')
	strcpy(temp, mesg);
      else
	{
	  if (strchr(mesg, ' ') != NULL)
	    strcpy(temp, strchr(mesg, ' ') + 1);
	  else
	    strcpy(temp, "");
	}
      
      
      ok = 0;
      for (i = 0; i < strlen(temp); i++)
	ok = ok + (islower(temp[i]));
      
      if (ok == 0)
	{
	  ok = 1;
	  for (i = 0; i < strlen(temp); i++)
	    if (isalpha(temp[i]))
	      ok = 0;
	}
      
      if (ok == 0 && strlen(temp) > 5)
	{
	  printf("</td><td><b><i><blink><u>PLEASE TURN OFF YOUR CAPS\n");
	  printf("KEY!</u></blink></b></i>\n");
	}
      
      
      printf("</td></tr></table>\n");
    }
  else
    {
      printf("<html><head>\n");
      printf("<meta http-equiv=\"refresh\"\n");
      printf("content=\"20;URL=chat.cgi?watch=yes&");
      printf("name=%s&email=%s&password=%s&time=%s\"></head>\n", name, email,
	     password, time);
      
      dump("included/chat-watch-top.html");
      
      printf("<table border=0><tr>\n");
      printf("<td valign=top width=120>\n");
      
      printf("<h2 align=center>%s</h2>\n", topic);
      
      printf("<h3 align=center>");
      
      whattime(time);

      here = whohere(name, email, time, 0, 1);
      
      if (here == 1 || here == 0)
	printf("You are the only person here.");
      else
	printf("There are %d people here.", here);
      printf("</h3>\n");
      
      dump("included/chat-left.html");
      printf("</td><td valign=top>\n");
    }
  
  
  if (only_posting == 0)
    {
      /* Dump messages: */
      
      fi = myopen("chat.dat", "r");
      if (fi == NULL)
	{
	  printf("System is down!\n");
	  exit(0);
	}
      
      printf("<table border=0 width=100%% cellpadding=4>\n");
      
      num_shownfaces = 0;
      
      do
	{
	  readline(fi, xtime);
	  if (!feof(fi))
	    {
	      readline(fi, xname);
	      readline(fi, xmesg);
	      
	      ok = 1;
	      
	      if (xmesg[0] == '/')
		{
		  ok = -1;
		  sscanf(xmesg, "%s", temp);
		  if (strcmp(temp + 1, name) == 0 ||
		      strcmp(xname, name) == 0 || god == 1)
		    ok = 2;
		}
	      
	      strcpy(your_url, "");
	      
	      
	      if (ok != 0)
		{
		  printf("<tr><td valign=top align=right>\n");
		  
		  
		  printf("<table border=0 cellspacing=0 cellpadding=0\n");
		  printf("width=100%%><tr>");
		  
		  printf("<td valign=top align=right>\n");
		  
		  /* Show their face if we haven't seen it already: */
		  
		  found = 0;
		  for (i = 0; i < num_shownfaces; i++)
		    {
		      if (strcmp(shownfaces[i], xname) == 0)
			found = 1;
		    }
		  
		  showed_pict = 0;
		  
		  if (found == 0)
		    {
		      for (j = 0; j <= strlen(xname); j++)
			{
			  if (xname[j] == '-')
			    temp2[j] = '_';
			  else
			    temp2[j] = xname[j];
			}
		      
		      strcpy(shownfaces[num_shownfaces], xname);
		      num_shownfaces++;
		      
		      sprintf(temp, "%sphotos/%s.gif", UNIX_PREPEND, temp2);
		      
		      fiface = fopen(temp, "r");
		      if (fiface != NULL)
			{
			  fclose(fiface);
			  
			  printf("<img src=\"%sphotos/%s.gif\" width=40 height=40\n",
				 PREPEND, temp2);
			  printf("width=40 height=40 alt=\"\" border=0\n");
			  printf("alt=\"\" border=0>\n");
			  
			  showed_pict = 1;
			}

		      printf("</td><td valign=top align=right>\n");
		      
		      getentry(password, "password");
		      fiface = fopen(ACCESS_FILE, "r");
		      
		      if (fiface != NULL)
			{
			  do
			    {
			      readline(fiface, access_name);
			      
			      if (!feof(fiface))
				{
				  readline(fiface, access_pass);
				  readline(fiface, access_type);
				  readline(fiface, access_url);
				  readline(fiface, temp);
				  
				  if (strcasecmp(access_name, xname) == 0)
				    strcpy(your_url, access_url);
				}
			    }
			  while (!feof(fiface));
			  
			  fclose(fiface);
			}
		    }
		  
		  printf("<font size=-");
		  if (showed_pict == 1)
		    printf("2");
		  else
		    printf("1");
		  
		  printf(" face=\"Arial\">");
		  
		  if (strlen(your_url) != 0 &&
		      strcmp(your_url, "nourl") != 0)