int main (int argc, char *argv[])
{
uulist *item;
int i, res;
UUInitialize ();
for (i=1; i<argc; i++)
if ((res = UULoadFile (argv[i], NULL, 0)) != UURET_OK)
fprintf (stderr, "could not load %s: %s\n",
argv[i], (res==UURET_IOERR) ?
strerror (UUGetOption (UUOPT_ERRNO, NULL, NULL, 0)) :
UUstrerror(res));
for (i=0; (item=UUGetFileListItem(i)) != NULL; i++) {
if ((item->state & UUFILE_OK) == 0)
continue;
if ((res = UUDecodeFile (item, NULL)) != UURET_OK) {
fprintf (stderr, "error decoding %s: %s\n",
(item->filename==NULL)?"oops":item->filename,
(res==UURET_IOERR) ?
strerror (UUGetOption (UUOPT_ERRNO, NULL, NULL, 0)) :
UUstrerror(res));
}
else {
printf ("successfully decoded '%s'\n", item->filename);
}
}
UUCleanUp ();
return 0;
}
static int UUTCLFUNC
uutcl_LoadFile (ClientData clientData, Tcl_Interp *interp,
int argc, char *argv[])
{
char tmpstring[256];
int res;
uutcl_UpdateParameter (interp);
if (argc != 2) {
sprintf (tmpstring,
"wrong # args: should be \"%s filename\"",
argv[0]);
Tcl_SetResult (interp, tmpstring, TCL_VOLATILE);
return TCL_ERROR;
}
if ((res = UULoadFile (argv[1], NULL, 0)) != UURET_OK) {
sprintf (tmpstring, "couldn't read %s: %s (%s)",
argv[1], UUstrerror (res),
(res==UURET_IOERR)?
strerror(UUGetOption(UUOPT_ERRNO,NULL,NULL,0)):"");
Tcl_SetResult (interp, tmpstring, TCL_VOLATILE);
return TCL_ERROR;
}
return TCL_OK;
}
static int UUTCLFUNC
uutcl_InfoFile (ClientData clientData, Tcl_Interp *interp,
int argc, char *argv[])
{
struct uuInfoCBData data;
char tmpstring[256];
uulist *iter;
int res;
uutcl_UpdateParameter (interp);
if (argc != 3) {
sprintf (tmpstring,
"wrong # args: should be \"%s number textwidget\"",
argv[0]);
Tcl_SetResult (interp, tmpstring, TCL_VOLATILE);
return TCL_ERROR;
}
if ((iter = UUGetFileListItem (atoi (argv[1]))) == NULL) {
Tcl_SetResult (interp, "invalid file number", TCL_STATIC);
return TCL_ERROR;
}
sprintf (tmpstring, "%s delete 1.0 end", argv[2]);
if (Tcl_Eval (interp, tmpstring) != TCL_OK)
return TCL_ERROR;
data.interp = interp;
data.widget = argv[2];
if ((res = UUInfoFile (iter, &data, uutcl_InfoCallback)) != UURET_OK) {
sprintf (tmpstring, "Error while getting info for %s (%s): %s (%s)",
(iter->filename) ? iter->filename : "",
(iter->subfname) ? iter->subfname : "",
UUstrerror (res),
(res==UURET_IOERR)?
strerror(UUGetOption(UUOPT_ERRNO,NULL,NULL,0)):"");
Tcl_SetResult (interp, tmpstring, TCL_VOLATILE);
return TCL_ERROR;
}
return TCL_OK;
}
static int UUTCLFUNC
uutcl_GetTempFile (ClientData clientData, Tcl_Interp *interp,
int argc, char *argv[])
{
char tmpstring[256];
uulist *iter;
int res;
uutcl_UpdateParameter (interp);
if (argc != 2) {
sprintf (tmpstring,
"wrong # args: should be \"%s number\"",
argv[0]);
Tcl_SetResult (interp, tmpstring, TCL_VOLATILE);
return TCL_ERROR;
}
if ((iter = UUGetFileListItem (atoi (argv[1]))) == NULL) {
Tcl_SetResult (interp, "invalid file number", TCL_STATIC);
return TCL_ERROR;
}
if ((res = UUDecodeToTemp (iter)) != UURET_OK) {
sprintf (tmpstring, "Error while decoding %s (%s): %s (%s)",
(iter->filename) ? iter->filename : "",
(iter->subfname) ? iter->subfname : "",
UUstrerror (res),
(res==UURET_IOERR)?
strerror(UUGetOption(UUOPT_ERRNO,NULL,NULL,0)):"");
Tcl_SetResult (interp, tmpstring, TCL_VOLATILE);
return TCL_ERROR;
}
if (iter->binfile == NULL) {
Tcl_SetResult (interp, "unknown error while decoding", TCL_STATIC);
return TCL_ERROR;
}
Tcl_SetResult (interp, iter->binfile, TCL_VOLATILE);
return TCL_OK;
}
static int UUTCLFUNC
uutcl_Rename (ClientData clientData, Tcl_Interp *interp,
int argc, char *argv[])
{
char tmpstring[256];
uulist *iter;
int res;
uutcl_UpdateParameter (interp);
if (argc != 3) {
sprintf (tmpstring,
"wrong # args: should be \"%s number newname\"",
argv[0]);
Tcl_SetResult (interp, tmpstring, TCL_VOLATILE);
return TCL_ERROR;
}
if (*argv[2] == '\0') {
Tcl_SetResult (interp, "illegal file name", TCL_STATIC);
return TCL_ERROR;
}
if ((iter = UUGetFileListItem (atoi (argv[1]))) == NULL) {
Tcl_SetResult (interp, "invalid file number", TCL_STATIC);
return TCL_ERROR;
}
if ((res = UURenameFile (iter, argv[2])) != UURET_OK) {
sprintf (tmpstring,
"could not rename %s to %s: %s (%s)",
(iter->filename) ? iter->filename : "",
argv[2], UUstrerror (res),
(res==UURET_IOERR)?
strerror(UUGetOption(UUOPT_ERRNO,NULL,NULL,0)):"");
Tcl_SetResult (interp, tmpstring, TCL_VOLATILE);
return TCL_ERROR;
}
return TCL_OK;
}
static int UUTCLFUNC
uutcl_EncodeToNews (ClientData clientData, Tcl_Interp *interp,
int argc, char *argv[])
{
int encoding=UU_ENCODED, linperfile=0, res;
char errstring[256];
if (argc < 3 || argc > 10) {
Tcl_SetResult (interp, "wrong # args", TCL_STATIC);
return TCL_ERROR;
}
uutcl_UpdateParameter (interp);
if (uutcl_GetEncodeParams (interp, argc, argv,
7, &encoding,
6, &linperfile) != TCL_OK)
return TCL_ERROR;
if ((res = SendAFile (interp, NULL, argv[1], encoding, linperfile,
/* outfname */ (argc>3) ? argv[3] : NULL,
/* towhom */ argv[2],
/* subject */ (argc>4) ? argv[4] : NULL,
/* from */ (argc>8) ? argv[8] : NULL,
/* replyto */ (argc>9) ? argv[9] : NULL,
0)) != UURET_OK) {
/*
* If res==UURET_ILLVAL, SendAMail has already filled in the result
*/
if (res != UURET_ILLVAL) {
sprintf (errstring, "error while posting %s: %s (%s)", argv[1],
UUstrerror(res),
(res==UURET_IOERR)?
strerror(UUGetOption(UUOPT_ERRNO,NULL,NULL,0)):"");
Tcl_SetResult (interp, errstring, TCL_VOLATILE);
}
return TCL_ERROR;
}
return TCL_OK;
}
static int UUTCLFUNC
uutcl_EncodeToFile (ClientData clientData, Tcl_Interp *interp,
int argc, char *argv[])
{
int encoding=UU_ENCODED, linperfile=0, res;
char errstring[256], olddir[256];
if (argc < 3 || argc > 10) {
Tcl_SetResult (interp, "wrong # args", TCL_STATIC);
return TCL_ERROR;
}
uutcl_UpdateParameter (interp);
if (uutcl_GetEncodeParams (interp, argc, argv,
7, &encoding,
6, &linperfile) != TCL_OK)
return TCL_ERROR;
UUGetOption (UUOPT_SAVEPATH, NULL, olddir, 256);
UUSetOption (UUOPT_SAVEPATH, 0, argv[2]);
if ((res = UUEncodeToFile (NULL, argv[1], encoding,
(argc>3) ? argv[3] : NULL,
(argc>2) ? argv[2] : NULL,
linperfile)) != UURET_OK) {
UUSetOption (UUOPT_SAVEPATH, 0, olddir);
sprintf (errstring, "error while encoding %s to file: %s (%s)", argv[1],
UUstrerror(res),
(res==UURET_IOERR)?
strerror(UUGetOption(UUOPT_ERRNO,NULL,NULL,0)):"");
Tcl_SetResult (interp, errstring, TCL_VOLATILE);
return TCL_ERROR;
}
UUSetOption (UUOPT_SAVEPATH, 0, olddir);
return TCL_OK;
}
static int UUTCLFUNC
uutcl_ListFile (ClientData clientData, Tcl_Interp *interp,
int argc, char *argv[])
{
uulist *iter;
struct uuInfoCBData data;
char tmpstring[1024];
FILE *inpfile;
int res;
uutcl_UpdateParameter (interp);
if (argc != 3) {
sprintf (tmpstring,
"wrong # args: should be \"%s number textwidget\"",
argv[0]);
Tcl_SetResult (interp, tmpstring, TCL_VOLATILE);
return TCL_ERROR;
}
if ((iter = UUGetFileListItem (atoi (argv[1]))) == NULL) {
Tcl_SetResult (interp, "invalid file number", TCL_STATIC);
return TCL_ERROR;
}
if ((res = UUDecodeToTemp (iter)) != UURET_OK) {
sprintf (tmpstring, "Error while decoding %s (%s): %s (%s)",
(iter->filename) ? iter->filename : "",
(iter->subfname) ? iter->subfname : "",
UUstrerror(res),
(res==UURET_IOERR)?
strerror(UUGetOption(UUOPT_ERRNO,NULL,NULL,0)):"");
Tcl_SetResult (interp, tmpstring, TCL_VOLATILE);
return TCL_ERROR;
}
sprintf (tmpstring, "%s delete 1.0 end", argv[2]);
if (Tcl_Eval (interp, tmpstring) != TCL_OK)
return TCL_ERROR;
if (iter->binfile==NULL || (inpfile=fopen (iter->binfile, "r"))==NULL) {
Tcl_SetResult (interp, "couldn't read file", TCL_STATIC);
return TCL_ERROR;
}
if ((inpfile = fopen (iter->binfile, "r")) == NULL) {
sprintf (tmpstring, "Could not open temp file %s of %s (%s): %s",
iter->binfile,
(iter->filename) ? iter->filename : "",
(iter->subfname) ? iter->subfname : "",
strerror (errno));
Tcl_SetResult (interp, tmpstring, TCL_VOLATILE);
return TCL_ERROR;
}
data.interp = interp;
data.widget = argv[2];
while (!feof (inpfile)) {
if (_FP_fgets (tmpstring, 512, inpfile) == NULL)
break;
if (ferror (inpfile))
break;
if (uutcl_InfoCallback (&data, tmpstring))
break;
}
if (ferror (inpfile)) {
sprintf (tmpstring, "Error while reading from temp file %s of %s (%s): %s",
iter->binfile,
(iter->filename) ? iter->filename : "",
(iter->subfname) ? iter->subfname : "",
strerror (errno));
Tcl_SetResult (interp, tmpstring, TCL_VOLATILE);
fclose (inpfile);
return TCL_ERROR;
}
fclose (inpfile);
return TCL_OK;
}
static int
SendAFile (Tcl_Interp *interp,
FILE *infile, char *infname,
int encoding, int linperfile,
char *outfname, char *towhom,
char *subject, char *from,
char *replyto, int isemail)
{
char *command, *rcptlist, *ptr;
FILE *thepipe, *theifile;
int len, count, res, part;
if (towhom==NULL ||
(outfname==NULL&&infname==NULL) || (infile&&infname==NULL) ||
(encoding!=UU_ENCODED&&encoding!=XX_ENCODED&&encoding!=B64ENCODED&&
encoding!=PT_ENCODED&&encoding!=QP_ENCODED)) {
Tcl_SetResult (interp, "oops: Parameter check failed in SendAFile()",
TCL_STATIC);
return UURET_ILLVAL;
}
#ifndef HAVE_POPEN
Tcl_SetResult (interp, "error: Your system does not support sending of files",
TCL_STATIC);
return UURET_ILLVAL;
#else
if (isemail && (uue_mailprog == NULL || *uue_mailprog == '\0')) {
Tcl_SetResult (interp, "error: Cannot Email file: option not configured",
TCL_STATIC);
return UURET_ILLVAL;
}
else if (!isemail && (uue_inewsprog == NULL || *uue_inewsprog == '\0')) {
Tcl_SetResult (interp, "error: Cannot Post file: option not configured",
TCL_STATIC);
return UURET_ILLVAL;
}
len = strlen ((isemail)?uue_mailprog:uue_inewsprog) +
((uue_mpsubject)?strlen(subject):0) +
((isemail)?0:strlen(towhom)) + 32;
if ((command = (char *) malloc (len)) == NULL) {
Tcl_SetResult (interp, "error: Out of memory allocating some bytes",
TCL_STATIC);
return UURET_NOMEM;
}
if ((rcptlist = (char *) malloc (strlen (towhom) + 16)) == NULL) {
Tcl_SetResult (interp, "error: Out of memory allocating some bytes",
TCL_STATIC);
_FP_free (command);
return UURET_NOMEM;
}
if (isemail) {
if (uue_mpsubject)
sprintf (command, "%s -s \"%s\"", uue_mailprog, subject);
else
sprintf (command, "%s", uue_mailprog);
/*
* Attach list of recipients to mailer command and compose another list
* of recipients
*/
count = 0;
rcptlist[0] = '\0';
ptr = _FP_strtok (towhom, ",; ");
while (ptr) {
strcat (command, " ");
strcat (command, ptr);
if (count++)
strcat (rcptlist, ",");
strcat (rcptlist, ptr);
ptr = _FP_strtok (NULL, ",; ");
}
}
else {
sprintf (command, "%s", uue_inewsprog);
count = 0;
rcptlist[0] = '\0';
ptr = _FP_strtok (towhom, ";, ");
while (ptr) {
if (count++)
strcat (rcptlist, ",");
strcat (rcptlist, ptr);
ptr = _FP_strtok (NULL, ";, ");
}
}
if (from && *from == '\0') {
from = NULL;
}
if (subject && *subject == '\0') {
subject = NULL;
}
if (replyto && *replyto == '\0') {
replyto = NULL;
}
/*
* Get going ...
*/
if (infile == NULL) {
if ((theifile = fopen (infname, "rb")) == NULL) {
_FP_free (rcptlist);
_FP_free (command);
return UURET_IOERR;
}
}
else {
theifile = infile;
}
for (part=1; !feof (theifile); part++) {
if ((thepipe = popen (command, "w")) == NULL) {
if (infile==NULL) fclose (theifile);
_FP_free (rcptlist);
_FP_free (command);
return UURET_IOERR;
}
if (UUGetOption(UUOPT_VERBOSE, NULL, NULL, 0)) {
#if 0
fprintf (stderr, "%s part %03d of %s to %s ... ",
(isemail)?"mailing":"posting",
part, (infname)?infname:outfname,
rcptlist);
fflush (stderr);
#endif
}
res = UUE_PrepPartialExt (thepipe, theifile, infname, encoding,
outfname, 0, part, linperfile, 0,
rcptlist, from, subject, replyto,
isemail);
#if 0
if (UUGetOption (UUOPT_VERBOSE, NULL, NULL, 0)) {
if (res == UURET_OK)
fprintf (stderr, "ok.\n");
else
fprintf (stderr, "%s\n", UUstrerror (res));
}
#endif
pclose (thepipe);
if (res != UURET_OK) {
if (infile == NULL) fclose (theifile);
_FP_free (rcptlist);
_FP_free (command);
return res;
}
}
if (infile == NULL) fclose (theifile);
_FP_free (rcptlist);
_FP_free (command);
return UURET_OK;
#endif
}
