/* * Copyright (c) 1991 by the University of Washington * * For copying and distribution information, please see the file * . */ #include /* * Archie client using the Prospero protocol. * * Suggestions and improvements to Brendan Kehoe (brendan@cs.widener.edu). */ #include #if defined(OS2) # include #endif #ifdef MSDOS # include # include # ifdef CUTCP # include # include /* The default stack size for a BC program is 4k; jack it up to 16 and add the Check for Stack Overflow option to the compiler. */ extern unsigned _stklen = 16 * 1024; # endif #endif #include #include #include #include int listflag = 0; int sortflag = 0; /* 1 = by date */ char *progname; #ifdef DEBUG extern int pfs_debug; #endif extern int rdgram_priority; /* To keep the code clean.. */ #ifdef VMS # define NFLAG "\"N\"" # define LFLAG "\"L\"" # define A_EXIT SS$_NORMAL #else # define NFLAG "N" # define LFLAG "L" # define A_EXIT 1 #endif #ifdef CUTCP # define HFLAG "[H config.tel]]" #else # define HFLAG "]" #endif main(argc,argv) int argc; char *argv[]; { char *cur_arg; char qtype = '='; /* Default to exact string match */ char etype = '='; /* Type if only -e is specified */ int eflag = 0; /* Exact flag specified */ int max_hits = MAX_HITS; int offset = 0; int exitflag = 0; /* Display release identifier */ int tmp; char *host = ARCHIE_HOST; char *p; static char *archies[] = { ARCHIES }; #ifdef CUTCP int hostset = 0; #endif char *getenv(); progname = *argv; argc--; argv++; #ifdef CUTCP if(getenv("CONFIGTEL")) if(Shostfile(getenv("CONFIGTEL")) < 0) { fprintf(stderr,"Error, couldn't open configtel file %s\n", getenv("CONFIGTEL")); exit(1); } #endif if ((p = getenv("ARCHIE_HOST")) != (char *)NULL) host = p; while (argc > 0 && **argv == '-') { cur_arg = argv[0]+1; /* If a - by itself, or --, then no more arguments */ if(!*cur_arg || ((*cur_arg == '-') && (!*(cur_arg+1)))) { argc--, argv++; goto scandone; } while (*cur_arg) { switch (*cur_arg++) { #ifdef DEBUG case 'D': /* Debug level */ pfs_debug = 1; /* Default debug level */ if(*cur_arg && index("0123456789",*cur_arg)) { sscanf(cur_arg,"%d",&pfs_debug); cur_arg += strspn(cur_arg,"0123456789"); } else if(argc > 2) { tmp = sscanf(argv[1],"%d",&pfs_debug); if (tmp == 1) {argc--;argv++;} } break; #endif #ifdef CUTCP case 'H' : if(Shostfile(argv[1]) < 0) { fprintf(stderr,"Error, couldn't open configtel file %s\n",argv[1]); exit(1); } argc--;argv++; break; #endif #ifndef XARCHIE case 'L': printf("Known archie servers:\n"); for (tmp = 0; tmp < NARCHIES; tmp++) printf("\t%s\n", archies[tmp]); printf(" * %s is the default Archie server.\n", ARCHIE_HOST); printf(" * For the most up-to-date list, write to an Archie server and give it\n the command `servers'.\n"); exitflag = 1; break; #endif case 'N': /* Priority (nice) */ rdgram_priority = RDGRAM_MAX_PRI; /* Use this if no # */ if(*cur_arg && index("-0123456789",*cur_arg)) { sscanf(cur_arg,"%d",&rdgram_priority); cur_arg += strspn(cur_arg,"-0123456789"); } else if(argc > 2) { tmp = sscanf(argv[1],"%d",&rdgram_priority); if (tmp == 1) {argc--;argv++;} } if(rdgram_priority > RDGRAM_MAX_SPRI) rdgram_priority = RDGRAM_MAX_PRI; if(rdgram_priority < RDGRAM_MIN_PRI) rdgram_priority = RDGRAM_MIN_PRI; break; case 'c': /* substring (case sensitive) */ qtype = 'C'; etype = 'c'; break; case 'e': /* Exact match */ /* If -e specified by itself, then we use the */ /* default value of etype which must be '=' */ eflag++; break; case 'h': /* Host */ host = argv[1]; #ifdef CUTCP hostset++; #endif argc--; argv++; break; case 'l': /* List one match per line */ listflag++; break; case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': cur_arg--; case 'm': /* Max hits */ max_hits = -1; if(*cur_arg && index("0123456789",*cur_arg)) { sscanf(cur_arg,"%d",&max_hits); cur_arg += strspn(cur_arg,"0123456789"); } else if(argc > 1) { tmp = sscanf(argv[1],"%d",&max_hits); if (tmp == 1) {argc--;argv++;} } if (max_hits < 1) { fprintf(stderr, "%s: -m option requires a value for max hits (>= 1)\n", progname); exit(A_EXIT); } break; case 'o': /* Offset */ if(argc > 1) { tmp = sscanf(argv[1],"%d",&offset); if (tmp != 1) argc = -1; else { argc--; argv++; } } break; case 'r': /* Regular expression search */ qtype = 'R'; etype = 'r'; break; case 's': /* substring (case insensitive) */ qtype = 'S'; etype = 's'; break; case 't': /* Sort inverted by date */ sortflag = 1; break; case 'v': /* Display version */ fprintf(stderr, "Client version %s based upon Prospero version %s\n", CLIENT_VERSION, PFS_RELEASE); exitflag++; break; default: fprintf(stderr,"Usage: %s [-[cers][l][t][m#][h host][%s][%s#]%s string\n", progname, LFLAG, NFLAG, HFLAG); exit(A_EXIT); } } argc--; argv++; } scandone: if (eflag) qtype = etype; if ((argc != 1) && exitflag) exit(0); if (argc != 1) { fprintf(stderr, "Usage: %s [-[cers][l][t][m#][h host][%s][%s#]%s string\n", progname, LFLAG, NFLAG, HFLAG); fprintf(stderr," -c : case sensitive substring search\n"); fprintf(stderr," -e : exact string match (default)\n"); fprintf(stderr," -r : regular expression search\n"); fprintf(stderr," -s : case insensitive substring search\n"); fprintf(stderr," -l : list one match per line\n"); fprintf(stderr," -t : sort inverted by date\n"); fprintf(stderr," -m# : specifies maximum number of hits to return (default %d)\n", max_hits); fprintf(stderr," -h host : specifies server host\n"); fprintf(stderr," -%s : list known servers and current default\n", LFLAG); fprintf(stderr," -%s# : specifies query niceness level (0-35765)\n", NFLAG); #ifdef CUTCP fprintf(stderr,"-H config.tel: specify location of config.tel file\n"); #endif exit(A_EXIT); } #ifdef CUTCP if(argc = Snetinit()) { fprintf(stderr,"Error %d from SNetinit (bad or missing config.tel ?)\n",argc); if(argc == -2) netshut(); /* rarp lookup failure */ exit(1); } if(!hostset) { /* if no host on command line, look in config.tel file for name=archie */ struct machinfo *mp; mp = Shostlook("archie"); if(mp) { host = mp->hname ? mp->hname : mp->sname; } } #endif procquery(host, argv[0], max_hits, offset, qtype, sortflag, listflag); #ifdef CUTCP netshut(); #endif exit(0); }