qfaxutil.c

使用efax的fax工具程序

  of = fopen(tmp, "w");
  fgets(tmp, LINELEN, ifp);
  while (!feof(ifp)) {
    if (strstr(tmp, "% *** Renaissoft QFAX") == NULL) {
      fputs(tmp, of);
    } else {
      fputs(tmp, of);
      fprintf(of, "\n");
      fprintf(of, "%% Page size definitions\n");
      fprintf(of, "/PWidth %d def\n", f->pwidth);
      fprintf(of, "/PHeight %d def\n", f->pheight);
      fprintf(of, "\n");
      fprintf(of, "%% Font definitions\n");
      fprintf(of, "/LogoFont /%s def\n", f->fonts.logo.name);
      fprintf(of, "/LogoFontSize %d def\n", f->fonts.logo.size);
      fprintf(of, "/AddressFont /%s def\n", f->fonts.address.name);
      fprintf(of, "/AddressFontSize %d def\n", f->fonts.address.size);
      fprintf(of, "/TitleFont /%s def\n", f->fonts.title.name);
      fprintf(of, "/TitleFontSize %d def\n", f->fonts.title.size);
      fprintf(of, "/MainLabelFont /%s def\n", f->fonts.main.name);
      fprintf(of, "/MainLabelFontSize %d def\n", f->fonts.main.size);
      fprintf(of, "/LabelFont /%s def\n", f->fonts.label.name);
      fprintf(of, "/LabelFontSize %d def\n", f->fonts.label.size);
      fprintf(of, "\n");
      fprintf(of, "%% Label definitions\n");
      fprintf(of, "/label-title (%s) def\n",
	      psfix(f->labels.title));
      fprintf(of, "/label-to-company (%s) def\n",
	      psfix(f->labels.tocompany));
      fprintf(of, "/label-to (%s) def\n",
	      psfix(f->labels.to));
      fprintf(of, "/label-to-voice-number (%s) def\n",
	      psfix(f->labels.tovoice));
      fprintf(of, "/label-to-fax-number (%s) def\n",
	      psfix(f->labels.tofax));
      fprintf(of, "/label-from (%s) def\n",
	      psfix(f->labels.from));
      fprintf(of, "/label-from-email (%s) def\n",
	      psfix(f->labels.email));
      fprintf(of, "/label-todays-date (%s) def\n",
	      psfix(f->labels.date));
      fprintf(of, "/label-page-count (%s) def\n",
	      psfix(f->labels.pages));
      fprintf(of, "/label-regarding (%s) def\n",
	      psfix(f->labels.regarding));
      fprintf(of, "/label-comments (%s) def\n",
	      psfix(f->labels.comments));
      fprintf(of, "\n");
      fprintf(of, "%% Variable definitions\n");
      fprintf(of, "/from-company (%s) def\n",
	      psfix(f->fcompany.logoname));
      fprintf(of, "/from-company-full-name (%s) def\n",
	      psfix(f->fcompany.fullname));
      strcpy(t1, psfix(f->fcompany.street));
      strcpy(t2, psfix(f->fcompany.city));
      strcpy(t3, psfix(f->fcompany.postcode));
      fprintf(of, "/from-company-address (%s \\267 %s \\267 %s) def\n",
	      t1, t2, t3);
      strcpy(t1, psfix(f->fcompany.phone));
      strcpy(t2, psfix(f->fcompany.fax));
      fprintf(of, "/from-company-phones (Tel: %s \\267 Fax: %s) def\n",
	      t1, t2);
      fprintf(of, "/to-company (%s) def\n",
	      psfix(f->tcompany.fullname));
      fprintf(of, "/to (%s) def\n",
	      psfix(f->tperson.fullname));
      fprintf(of, "/to-voice-number (%s) def\n",
	      psfix(f->tcompany.phone));
      fprintf(of, "/to-fax-number (%s) def\n",
	      psfix(f->tcompany.fax));
      fprintf(of, "/from (%s) def\n",
	      psfix(f->fperson.fullname));
      fprintf(of, "/from-email (%s@%s) def\n",
	      f->fperson.username, f->fcompany.domain);
      fprintf(of, "/todays-date (%s) def\n",
	      psfix(f->date));
      fprintf(of, "/page-count (%d) def\n",
	      f->pages);
      fprintf(of, "/regarding (%s) def\n",
	      psfix(f->subject));
      fprintf(of, "/comments (%s) def\n",
	      psfix(f->comments));
      fprintf(of, "\n");
    }
    fgets(tmp, LINELEN, ifp);
  }
  fclose(of);
  fclose(ifp);
  sprintf(tmp, "%s make %s/faxcover.%s.%s.ps > /dev/null", FAXSCRIPT, FAXQUEUE,
	  f->fperson.username, f->tstamp);
  system(tmp);
}

void insert_cover(Fax *f)
{
/*
   This routine inserts the cover page as page 1 of the fax collection.
   Since Efax numbers its files by page number (e.g. *.001, *.002, etc.),
   this involves renaming the existing files to increment their page
   number by one, then renaming the cover page to *.001.
*/

  int i;
  char file1[LONGLEN], file2[LONGLEN];
  char cmd[LINELEN];

  for (i = f->pages; i > 0; i--) {
    sprintf(file1, "%s/fax.%s.%s.%03d", FAXQUEUE, f->fperson.username,
	    f->tstamp, i);
    if (fopen(file1, "r") != NULL) {
      sprintf(file2, "%s/fax.%s.%s.%03d", FAXQUEUE, f->fperson.username,
	      f->tstamp, i+1);
      sprintf(cmd, "mv %s %s", file1, file2);
      system(cmd);
    }
  }
  sprintf(cmd, "mv %s/faxcover.%s.%s.ps.001 %s/fax.%s.%s.001",
	  FAXQUEUE, f->fperson.username, f->tstamp, FAXQUEUE,
	  f->fperson.username, f->tstamp);
  system(cmd);
}

void queue_fax(Fax *f)
{
/*
   Once the fax pages have been made and the cover page inserted, the
   next step is to create a little "command file" similar to a UUCP 'X'
   file.  Our convention is to name this file by this format:

                FAXQUEUE/fax.user.timestamp.cmd

		e.g. /usr/spool/fax/sendq/fax.tom.26Aug230715.cmd

   We write to this file the phone number to be dialed, the name of
   the recipient and the subject of the message.  When the Qrun script
   is invoked (presumably by cron or something similar), it reads this file
   to determine what number to dial to send the fax.  The recipient and
   subject information is used to notify the sender by e-mail about the
   status of his/her fax.
*/

  int i = 0;
  int j = 0;
  char tmp[LONGLEN];
  char dialstr[LONGLEN];
  FILE *of;

  strcpy(dialstr, "");
  for (i=0; i < strlen(f->tcompany.fax); i++) {
    if ((f->tcompany.fax[i] >= '0') && (f->tcompany.fax[i] <= '9'))
      dialstr[j++] = f->tcompany.fax[i];
  }
  dialstr[j] = '\0';
  sprintf(tmp, "%s/fax.%s.%s.cmd", FAXQUEUE, f->fperson.username, f->tstamp);
  of = fopen(tmp, "w");
  fputs(dialstr, of);
  fputs("\n", of);
  fputs(f->tperson.fullname, of);
  fputs("\n", of);
  fputs(f->subject, of);
  fputs("\n", of);
  fclose(of);
}

void cleanup(Fax *f)
{
/*
   Delete any intermediate files that were generated by Qfax and Efax,
   leaving behind only the fax pages (including the cover page) and the
   command file.
*/

  char cmd[LINELEN];

  sprintf(cmd, "rm -f %s/fax.%s.%s %s/faxcover.%s.%s* %s/tmp.%s.%s",
	  FAXQUEUE, f->fperson.username, f->tstamp,
	  FAXQUEUE, f->fperson.username, f->tstamp,
	  FAXQUEUE, f->fperson.username, f->tstamp);
  system(cmd);
}

char *timestring(void)
{
/*
   Returns the system time/date from the "date" command as a string.
*/

  static char t[SHORTLEN];
  FILE *opp;

  opp = popen("date", "r");
  strcpy(t, getsline(opp));
  pclose(opp);
  return(t);
}

int make_cmdlist(char cmdlist[MAXFAXES][LINELEN])
{
/*
   Creates a list of all the *.cmd files in the FAXQUEUE directory,
   returning the number of files found and implicitly returning the
   array of filenames.  Since each of these files represents one
   fax transmission, we can use this to determine how many sends to
   set up.
*/

  char cmd[LINELEN];
  FILE *ls;
  int i;

  freopen("/dev/null", "w", stderr);
  setbuf(stderr, NULL);
  sprintf(cmd, "%s -1 %s/fax.*.cmd", LS, FAXQUEUE);
  ls = popen(cmd, "r");
  i = 0;
  while (fscanf(ls, "%s", cmdlist[i]) != EOF)
    i++;
  pclose(ls);
  freopen("/dev/console", "w", stderr);
  return(i);
}

char *make_prefix(char *filename)
{
/*
   Extracts the prefix from a filename, specifically everything upto
   (but not including) the last '.'.  This strips away any ".cmd" or
   ".001" extender, so that what we're left with is common to all
   files that are part of this fax.
*/

  static char tmp[LINELEN];
  char *ptr;

  strcpy(tmp, filename);
  ptr = strrchr(tmp, '.');
  *ptr = '\0';
  return(tmp);
}

void get_cmdinfo(char *cmdfile, char *dialstring, char *recipient,
		 char *subject)
{
/*
   Reads a *.cmd file and extracts the phone number to dial, the name
   of the recipient, and the subject of the fax.
*/

  FILE *ifp;

  ifp = fopen(cmdfile, "r");
  strcpy(dialstring, getline(ifp));
  strcpy(recipient, getline(ifp));
  strcpy(subject, getline(ifp));
  fclose(ifp);
}

void delete_fax(char *prefix)
{
/*
   Deletes all files relating to a given fax, presumably to be done only
   when the fax has been successfully sent and is no longer needed.  By
   deleting it from the spool directory, we prevent it from being sent
   again the next time Qrun is invoked.
*/

  char cmd[LINELEN];

  sprintf(cmd, "rm -f %s.*", prefix);
  system(cmd);
}

char *get_sender(char *prefix)
{
/*
   Extracts the username of the sender of a fax message from the fax prefix.
*/

  char tmp[LINELEN];
  static char sender[ALIASLEN];
  char *ptr;

  strcpy(tmp, prefix);
  ptr = strrchr(tmp, '.');
  *ptr = '\0';
  ptr = strrchr(tmp, '.');
  strcpy(sender, (++ptr));
  return(sender);
}

void shutdown(Fax *f)
{
/*
   Exit gracefully, cleaning up any messes we might have left behind
   when an error occurred.
*/

  char cmd[LINELEN];

  sprintf(cmd, "rm -f %s/fax.%s.%s*", FAXQUEUE, f->fperson.username,
	  f->tstamp);
  system(cmd);
  exit(EXIT_FAILURE);
}

void lookup_db(Fax *f)
{
/*
   Tries first to look up the recipient's name and company in the
   "~/.fax" file, if it exists, then looks in the central "fax.db"
   file if necessary.  If it fails completely, the user gets a
   piece of e-mail about the problem.
*/

  char msg[LINELEN];
  char homedb[LONGLEN];
  char user[ALIASLEN];
  
  strcpy(user, f->fperson.username);
  if (strcasecmp(user, "root") == 0)
    strcpy(homedb, "/.fax");
  else
    sprintf(homedb, "%s/.fax", get_home(user));
  if (read_db(f, homedb)) {
    if (read_db(f, DATABASE)) {
      sprintf(msg, "Can't find '%s' at '%s'!",
	      f->tperson.alias, f->tcompany.alias);
      mail_user(f->fperson.username, "Qfax Error Message", msg);
      shutdown(f);
    }
  }
}

char *time_stamp(void)
{
/*
   Returns the current time and date in the form "ddmonhhmmss",
   e.g. "26Aug231605", for use as a readable time stamp.
*/

  static char tmp[SHORTLEN];
  time_t now;

  now = time(NULL);
  strftime(tmp, SHORTLEN, "%d%b%H%M%S", localtime(&now));
  return (tmp);
}