/* ** Routines to upload files to the local filesystem. ** Created by: Rick Mallett, Carleton University ** Report problems to rmallett@ccs.carleton.ca ** Modified 15-Dec-95 George Lindholm (lindholm@ucs.ubc.ca): ** Reread the upload menu page every time, in case the "upload" directory ** has changed (make the current directory that for the upload process). ** Prompt for the upload file name if there is no "%s" in the command ** string. Most protocols allow the user to specify the file name ** from the client side. Xmodem appears to be the only that can't ** figure out the filename from the transfer data so it needs the ** information from lynx (or an upload script which prompts for it). ** On the other hand, zmodem aborts when you give it a filename on ** the command line (great way of bypassing the nodotfile code :=( ). */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include PUBLIC char LYUploadFileURL[LY_MAXPATH] = "\0"; #define SUBDIR_COMMAND "cd %s ; " /* * LYUpload uploads a file to a given location using a * specified upload method. It parses an incoming link * that looks like: * LYNXDIRED://UPLOAD=<#>/TO= */ PUBLIC int LYUpload ARGS1( char *, line) { char *method, *directory; int method_number; int count; char *the_upload = 0; char tmpbuf[LY_MAXPATH]; char buffer[LY_MAXPATH]; lynx_html_item_type *upload_command = 0; FILE *fp; char *the_command = 0; /* * Use configured upload commands. */ if((directory = (char *)strstr(line, "TO=")) == NULL) goto failed; *(directory - 1) = '\0'; /* go past "Directory=" */ directory += 3; if((method = (char *)strstr(line, "UPLOAD=")) == NULL) goto failed; /* * Go past "Method=". */ method += 7; method_number = atoi(method); for (count = 0, upload_command = uploaders; count < method_number; count++, upload_command = upload_command->next) ; /* null body */ /* * Parsed out the Method and the Location? */ if (upload_command->command == NULL) { HTAlert(gettext("ERROR! - upload command is misconfigured")); goto failed; } /* * Care about the local name? */ if (HTCountCommandArgs (upload_command->command)) { /* * Commands have the form "command %s [etc]" * where %s is the filename. */ _statusline(FILENAME_PROMPT); retry: *tmpbuf = '\0'; if (LYgetstr(tmpbuf, VISIBLE, sizeof(tmpbuf), NORECALL) < 0) goto cancelled; if (*tmpbuf == '\0') goto cancelled; if (strstr(tmpbuf, "../") != NULL) { HTAlert(gettext("Illegal redirection \"../\" found! Request ignored.")); goto cancelled; } else if (strchr(tmpbuf, '/') != NULL) { HTAlert(gettext("Illegal character \"/\" found! Request ignored.")); goto cancelled; } else if (tmpbuf[0] == '~') { HTAlert(gettext("Illegal redirection using \"~\" found! Request ignored.")); goto cancelled; } sprintf(buffer, "%s/%s", directory, tmpbuf); #if HAVE_POPEN if (LYIsPipeCommand(buffer)) { HTAlert(CANNOT_WRITE_TO_FILE); _statusline(NEW_FILENAME_PROMPT); goto retry; } #endif switch (LYValidateOutput(buffer)) { case 'Y': break; case 'N': goto retry; default: goto cancelled; } /* * See if we can write to it. */ CTRACE(tfp, "LYUpload: filename is %s", buffer); if ((fp = fopen(buffer, "w")) != NULL) { fclose(fp); remove(buffer); } else { HTAlert(CANNOT_WRITE_TO_FILE); _statusline(NEW_FILENAME_PROMPT); goto retry; } HTAddParam(&the_upload, upload_command->command, 1, buffer); HTEndParam(&the_upload, upload_command->command, 1); } else { /* No substitution, no changes */ StrAllocCopy(the_upload, upload_command->command); } HTAddParam(&the_command, SUBDIR_COMMAND, 1, directory); HTEndParam(&the_command, SUBDIR_COMMAND, 1); StrAllocCat(the_command, the_upload); CTRACE(tfp, "command: %s\n", the_command); stop_curses(); LYSystem(the_command); start_curses(); FREE(the_command); FREE(the_upload); #ifdef UNIX chmod(buffer, HIDE_CHMOD); #endif /* UNIX */ /* don't remove(file); */ return 1; failed: HTAlert(gettext("Unable to upload file.")); return 0; cancelled: HTInfoMsg(CANCELLING); return 0; } /* * LYUpload_options writes out the current upload choices to a * file so that the user can select printers in the same way that * they select all other links. Upload links look like: * LYNXDIRED://UPLOAD=<#>/TO= */ PUBLIC int LYUpload_options ARGS2( char **, newfile, char *, directory) { static char tempfile[LY_MAXPATH]; FILE *fp0; lynx_html_item_type *cur_upload; int count; static char curloc[LY_MAXPATH]; char *cp; LYRemoveTemp(tempfile); if ((fp0 = LYOpenTemp(tempfile, HTML_SUFFIX, "w")) == NULL) { HTAlert(CANNOT_OPEN_TEMP); return(-1); } #ifdef VMS strcpy(curloc, "/sys$login"); #else cp = HTfullURL_toFile(directory); strcpy(curloc,cp); LYTrimPathSep(curloc); FREE(cp); #endif /* VMS */ LYLocalFileToURL(newfile, tempfile); strcpy(LYUploadFileURL, *newfile); BeginInternalPage(fp0, UPLOAD_OPTIONS_TITLE, UPLOAD_OPTIONS_HELP); fprintf(fp0, "
\n");
    fprintf(fp0, "   %s %s\n", gettext("Upload To:"), curloc);
    fprintf(fp0, "\n%s\n", gettext("Upload options:"));

    if (uploaders != NULL) {
	for (count = 0, cur_upload = uploaders;
	     cur_upload != NULL;
	     cur_upload = cur_upload->next, count++) {
	    fprintf(fp0, "   ",
			 count, curloc);
	    fprintf(fp0, (cur_upload->name ?
			  cur_upload->name : gettext("No Name Given")));
	    fprintf(fp0, "\n");
	}
    } else {
	fprintf(fp0, "   <NONE>\n");
    }

    fprintf(fp0, "
\n"); EndInternalPage(fp0); LYCloseTempFP(fp0); LYforce_no_cache = TRUE; return(0); }