home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / fax-3.2.1 / cmd / faxrm / faxrm.c next >
Encoding:
C/C++ Source or Header  |  1992-07-31  |  2.0 KB  |  95 lines
  1. /*
  2.   This file is part of the NetFax system.
  3.  
  4.   (c) Copyright 1989 by David M. Siegel. 
  5.       All rights reserved.
  6.  
  7.     This program is free software; you can redistribute it and/or modify
  8.     it under the terms of the GNU General Public License as published by
  9.     the Free Software Foundation.
  10.  
  11.     This program is distributed in the hope that it will be useful, 
  12.     but WITHOUT ANY WARRANTY; without even the implied warranty of 
  13.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14.     GNU General Public License for more details.
  15.  
  16.     You should have received a copy of the GNU General Public License
  17.     along with this program; if not, write to the Free Software
  18.     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  19. */
  20.  
  21. #include <stdio.h>
  22. #include <stdlib.h>
  23.  
  24. #include "../../lib/libutil/tcp.h"
  25. #include "../../lib/libfax/libfax.h"
  26.  
  27. main(argc,argv)
  28.      int argc;
  29.      char *argv[];
  30. {
  31.     int c;
  32.     int errflg = 0;
  33.     extern char *optarg;
  34.     extern int optind;
  35.  
  36.     char *host = NULL;
  37.     char *file;
  38.     char buf[BUFSIZ];
  39.     int bytes;
  40.     FILE *fp;
  41.     int fd;
  42.       
  43.     while ((c = getopt(argc, argv, "h:")) != -1)
  44.       switch (c) {
  45.     case 'h':
  46.       host = optarg;
  47.       break;
  48.     case '?':
  49.       errflg++;;
  50.       break;
  51.       }
  52.  
  53.     if (errflg || optind >= argc) {
  54.     fprintf(stderr, "usage: %s [-h host] job\n", argv[0]);
  55.     exit(1);
  56.     }
  57.  
  58.     /*
  59.      * Get the fax host:
  60.      */
  61.     if (host == NULL) {
  62.     if ((host = getenv("FAXHOST")) == NULL)
  63.       host = FAX_HOST;
  64.     }
  65.  
  66.     /*
  67.      * Get the file to delete.
  68.      */
  69.     file = argv[optind];
  70.  
  71.     /*
  72.      * Connect to the fax spooler.
  73.      */
  74.     if ((fd = tcp_make_connection(host, FAX_SERVICE)) < 0) {
  75.     fprintf(stderr, "can't connect to fax daemon\n");
  76.     exit(1);
  77.     }
  78.     if ((fp = fdopen(fd, "w")) == NULL) {
  79.     perror("fdopen");
  80.     exit(1);
  81.     }
  82.  
  83.     /*
  84.      * Send down the delete request.
  85.      */
  86.     fprintf(fp, "DELETE\n");
  87.     fprintf(fp, "%s\n", file);
  88.     fflush(fp);
  89.  
  90.     while ((bytes = read(fd, buf, sizeof(buf))) > 0)
  91.       fwrite(buf, sizeof(char), bytes, stdout);
  92.  
  93.     exit (0);
  94. }
  95.