/*
* $Log$
+ * Revision 1.7 1999/07/29 14:39:38 short
+ * '-f' flag is working now.
+ *
* Revision 1.6 1999/07/28 10:46:37 short
* Removed strict converting/checking of symbol characters to '?'.
*
finame=body;
body=NULL;
}
- else fin=stdin;
+ else {
+ finame=NULL;
+ fin=stdin;
+ }
if (!body) {
readbody=0;
- if (verbose>=1)
- error("\nPlease enter the SMS text body, end with EOF (ctrl-D):");
+ if (!finame) {
+ if (verbose>=1)
+ error("\nPlease enter the SMS text body, end with EOF (ctrl-D):");
+ }
+ else {
+ if (!(fin=fopen(finame,"rt")))
+ error("!Can't open data file \"%s\" for r/o: %m",finame);
+ }
chk(body=malloc(BODYLOAD));
bodylen=fread(body,1,BODYLOAD,fin);
if (bodylen==-1)
error("!Error reading stream \"%s\": %m",(finame?finame:"<stdin>"));
- }
- if (fin!=stdin) {
- chkfclose(fin,finame);
- free(finame);
+ if (finame) {
+ chkfclose(fin,finame);
+ free(finame);
+ }
}
for (i=0;i<NELEM(numarg);i++) {