1 /*$Id: ezmlm-list.c,v 1.15 1999/09/12 20:25:33 lindberg Exp $*/
2 /*$Name: ezmlm-idx-040 $*/
13 #define FATAL "ezmlm-list: fatal: "
15 int flagnumber
= 0; /* default list subscribers, not number of */
17 void *psql
= (void *) 0;
19 char strnum
[FMT_ULONG
];
23 strerr_die3sys(111,FATAL
,ERR_WRITE
,"stdout: ");
28 strerr_die1x(100,"ezmlm-list: usage: ezmlm-list [-mMnNvV] dir");
31 static char outbuf
[512];
32 static substdio ssout
= SUBSTDIO_FDBUF(write
,1,outbuf
,sizeof(outbuf
));
38 return substdio_put(&ssout
,s
,l
) | substdio_put(&ssout
,"\n",1);
42 char *s
; /* ignored */
53 int flagmysql
= 1; /* use if supported */
57 while ((opt
= getopt(argc
,argv
,"mMnNvV")) != opteof
)
59 case 'm': flagmysql
= 1; break;
60 case 'M': flagmysql
= 0; break;
61 case 'n': flagnumber
= 1; break;
62 case 'N': flagnumber
= 0; break;
64 case 'V': strerr_die2x(0,
65 "ezmlm-list version: ezmlml-0.53+",EZIDX_VERSION
);
71 if (!dir
) die_usage();
74 strerr_die4sys(111,FATAL
,ERR_SWITCH
,dir
,": ");
77 strerr_die2x(100,FATAL
,ERR_SLASH
);
80 n
= putsubs(dir
,0L,52L,dummywrite
,flagmysql
,FATAL
);
81 if (substdio_put(&ssout
,strnum
,fmt_ulong(strnum
,n
)) == -1) die_write(FATAL
);
82 if (substdio_put(&ssout
,"\n",1) == -1) die_write(FATAL
);
84 (void) putsubs(dir
,0L,52L,subwrite
,flagmysql
,FATAL
);
85 if (substdio_flush(&ssout
) == -1) die_write(FATAL
);