home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 6 / The_Pier_Shareware_Number_6_(The_Pier_Exchange)_(1995).iso / 024 / psi110g.zip / CALLCLI.C < prev    next >
C/C++ Source or Header  |  1994-04-17  |  2KB  |  78 lines
  1. #include "global.h"
  2. #ifdef CALLCLI
  3. #include "mbuf.h"
  4. #include "socket.h"
  5. #include "session.h"
  6. #include "proc.h"
  7. #include "netuser.h"
  8. #include "commands.h"
  9. #include "tty.h"
  10.   
  11. extern char *Callserver;
  12.   
  13. int
  14. docallbook(argc,argv,p)
  15. int argc;
  16. char *argv[];
  17. void *p;
  18. {
  19.     struct sockaddr_in sock;
  20.     char *cp;
  21.     int s,i;
  22.     struct mbuf *bp;
  23.     struct session *sp;
  24.   
  25.     /* Allocate a session descriptor */
  26.     if((sp = newsession(argv[1],FINGER,0)) == NULLSESSION){
  27.         tputs("Too many sessions\n");
  28.         keywait(NULLCHAR,1);
  29.         return 1;
  30.     }
  31.     if(Callserver == NULLCHAR)  {
  32.         tputs("Callbook Services Not Configured.\n");
  33.         keywait(NULLCHAR,1);
  34.         freesession(sp);
  35.         return 1;
  36.     }
  37.   
  38.     sp->ttystate.echo = sp->ttystate.edit = 0;
  39.     sp->flowmode = 1;
  40.     sock.sin_family = AF_INET;
  41.     sock.sin_port = IPPORT_CALLDB;
  42.     for(i=1;i<argc;i++){
  43.         cp = Callserver;
  44.         strupr(argv[i]);
  45.         tprintf("Looking up \"%s\" in the callbook at %s\n",argv[i],cp);
  46.         if((sock.sin_addr.s_addr = resolve(cp)) == 0){
  47.             tprintf("Callserver %s unknown\n",cp);
  48.             continue;
  49.         }
  50.         tprintf("trying %s",psocket((struct sockaddr *)&sock));
  51.         if((sp->s = s = socket(AF_INET,SOCK_STREAM,0)) == -1){
  52.             tputs("Can't create socket\n");
  53.             break;
  54.         }
  55.         sockmode(s,SOCK_ASCII);
  56.         if(connect(s,(char *)&sock,sizeof(sock)) == -1){
  57.             cp = sockerr(s);
  58.             tprintf(" -- Connect failed: %s\n",cp != NULLCHAR ? cp : "");
  59.             close_s(s);
  60.             sp->s = -1;
  61.             continue;
  62.         }
  63.         tputc('\n');
  64.         usputs(s,argv[i]);
  65.         usputc(s,'\n');
  66.         usflush(Curproc->output);
  67.         while(recv_mbuf(s,&bp,0,NULLCHAR,(int *)0) > 0){
  68.             send_mbuf(Curproc->output,bp,0,NULLCHAR,0);
  69.         }
  70.         close_s(s);
  71.         sp->s = -1;
  72.     }
  73.     keywait(NULLCHAR,1);
  74.     freesession(sp);
  75.     return 0;
  76. }
  77. #endif /* CALLCLI */
  78.