diff options
Diffstat (limited to 'src/LYPrint.c')
| -rw-r--r-- | src/LYPrint.c | 1917 |
1 files changed, 941 insertions, 976 deletions
diff --git a/src/LYPrint.c b/src/LYPrint.c index dbdd7f5a..21e0989d 100644 --- a/src/LYPrint.c +++ b/src/LYPrint.c @@ -18,6 +18,9 @@ #include <LYLeaks.h> +#define CancelPrint(msg) HTInfoMsg(msg); goto done +#define CannotPrint(msg) HTAlert(msg); goto done + /* * printfile prints out the current file minus the links and targets * to a variety of places @@ -101,46 +104,925 @@ PRIVATE void set_environ ARGS3( #endif } -PUBLIC int printfile ARGS1( +PRIVATE char *suggested_filename ARGS1( document *, newdoc) { - static char tempfile[LY_MAXPATH]; - char *the_command = 0; - char buffer[LINESIZE]; - char filename[LINESIZE]; - char user_response[256]; - int lines_in_file = 0; - int printer_number = 0; - int pages = 0; - int type = 0, c = 0; - BOOLEAN Lpansi = FALSE; - FILE *outfile_fp; - char *cp = NULL; - lynx_printer_item_type *cur_printer; - char *sug_filename = NULL; - char *link_info = NULL; - DocAddress WWWDoc; - int pagelen = 0; - int ch, recall; - int FnameTotal; - int FnameNum; - BOOLEAN FirstRecall = TRUE; - char *content_base = NULL, *content_location = NULL; + char *cp, *sug_filename = 0; + + /* + * Load the suggested filename string. - FM + */ + if (HText_getSugFname() != 0) + StrAllocCopy(sug_filename, HText_getSugFname()); /* must be freed */ + else + StrAllocCopy(sug_filename, newdoc->address); /* must be freed */ + /* + * Strip any gzip or compress suffix, if present. - FM + */ + cp = NULL; + if (strlen(sug_filename) > 3) { + cp = (char *)&sug_filename[(strlen(sug_filename) - 3)]; + if ((*cp == '.' || *cp == '-' || *cp == '_') && + !strcasecomp((cp + 1), "gz")) { + *cp = '\0'; + } else { + cp = NULL; + } + } + if ((cp == NULL) && strlen(sug_filename) > 2) { + cp = (char *)&sug_filename[(strlen(sug_filename) - 2)]; + if ((*cp == '.' || *cp == '-' || *cp == '_') && + !strcasecomp((cp + 1), "Z")) { + *cp = '\0'; + } + } + return sug_filename; +} + +PRIVATE void SetupFilename ARGS2( + char *, filename, + char *, sug_filename) +{ HTFormat format; HTAtom *encoding; - BOOL use_mime, use_cte, use_type; + char *cp; + + LYstrncpy(filename, sug_filename, LY_MAXPATH-1); /* add suggestion info */ + /* make the sug_filename conform to system specs */ + change_sug_filename(filename); + if (!(HTisDocumentSource()) + && (cp = strrchr(filename, '.')) != NULL + && (cp - filename) < LY_MAXPATH-5) { + format = HTFileFormat(filename, &encoding, NULL); + if (!strcasecomp(format->name, "text/html") || + !IsUnityEnc(encoding)) { + strcpy(cp, ".txt"); + } + } +} + +#define FN_INIT 0 +#define FN_READ 1 +#define FN_DONE 2 +#define FN_QUIT 3 + +PRIVATE int RecallFilename ARGS4( + char *, filename, + BOOLEAN *, first, + int *, now, + int *, total) +{ + int ch; + char *cp; + int recall; + + /* + * Set up the sug_filenames recall buffer. + */ + if (*now < 0) { + *total = (sug_filenames ? HTList_count(sug_filenames) : 0); + *now = *total; + } + recall = ((*total >= 1) ? RECALL : NORECALL); + + if ((ch = LYgetstr(filename, VISIBLE, LY_MAXPATH, recall)) < 0 || + *filename == '\0' || ch == UPARROW || ch == DNARROW) { + if (recall && ch == UPARROW) { + if (*first) { + *first = FALSE; + /* + * Use the last Fname in the list. - FM + */ + *now = 0; + } else { + /* + * Go back to the previous Fname in the list. - FM + */ + *now += 1; + } + if (*now >= *total) { + /* + * Reset the *first flag, and use sug_file or a blank. - + * FM + */ + *first = TRUE; + *now = *total; + _statusline(FILENAME_PROMPT); + return FN_INIT; + } else if ((cp = (char *)HTList_objectAt( + sug_filenames, + *now)) != NULL) { + LYstrncpy(filename, cp, LY_MAXPATH-1); + if (*total == 1) { + _statusline(EDIT_THE_PREV_FILENAME); + } else { + _statusline(EDIT_A_PREV_FILENAME); + } + return FN_READ; + } + } else if (recall && ch == DNARROW) { + if (*first) { + *first = FALSE; + /* + * Use the first Fname in the list. - FM + */ + *now = *total - 1; + } else { + /* + * Advance to the next Fname in the list. - FM + */ + *now -= 1; + } + if (*now < 0) { + /* + * Set the *first flag, and use sug_file or a blank. - FM + */ + *first = TRUE; + *now = *total; + _statusline(FILENAME_PROMPT); + return FN_INIT; + } else if ((cp = (char *)HTList_objectAt( + sug_filenames, + *now)) != NULL) { + LYstrncpy(filename, cp, LY_MAXPATH-1); + if (*total == 1) { + _statusline(EDIT_THE_PREV_FILENAME); + } else { + _statusline(EDIT_A_PREV_FILENAME); + } + return FN_READ; + } + } + + /* + * Save cancelled. + */ + HTInfoMsg(SAVE_REQUEST_CANCELLED); + return FN_QUIT; + } + return FN_DONE; +} + +PRIVATE BOOLEAN confirm_by_pages ARGS3( + char *, prompt, + int, lines_in_file, + int, lines_per_page) +{ + int pages = lines_in_file/(lines_per_page+1); + int c; + + /* count fractional pages ! */ + if ((lines_in_file % (LYlines+1)) > 0) + pages++; + + if (pages > 4) { + char *msg = 0; + + HTSprintf0(&msg, prompt, pages); + _statusline(msg); + free(msg); + + c = LYgetch(); +#ifdef VMS + if (HadVMSInterrupt) { + HadVMSInterrupt = FALSE; + HTInfoMsg(PRINT_REQUEST_CANCELLED); + return FALSE; + } +#endif /* VMS */ + if (c == RTARROW || c == 'y' || c== 'Y' || c == '\n' || c == '\r') { + addstr(" Ok..."); + } else { + HTInfoMsg(PRINT_REQUEST_CANCELLED); + return FALSE; + } + } + return TRUE; +} + +PRIVATE void send_file_to_file ARGS3( + document *, newdoc, + char *, content_base, + char *, sug_filename) +{ + BOOLEAN FirstRecall = TRUE; + BOOLEAN use_cte; CONST char *disp_charset; - char *subject = NULL; /* print-to-email */ + FILE *outfile_fp; + char buffer[LY_MAXPATH]; + char filename[LY_MAXPATH]; + int FnameNum = -1; + int FnameTotal; + int c = 0; + + _statusline(FILENAME_PROMPT); +retry: + SetupFilename(filename, sug_filename); + if (lynx_save_space + && (strlen(lynx_save_space) + strlen(filename)) < sizeof(filename)) { + strcpy(buffer, lynx_save_space); + strcat(buffer, filename); + strcpy(filename, buffer); + } +check_recall: + switch (RecallFilename(filename, &FirstRecall, &FnameNum, &FnameTotal)) { + case FN_INIT: + goto retry; + case FN_READ: + goto check_recall; + case FN_QUIT: + goto done; + default: + break; + } + + if (!LYValidateFilename(buffer, filename)) { + CancelPrint(SAVE_REQUEST_CANCELLED); + } + + /* + * See if it already exists. + */ + switch (LYValidateOutput(buffer)) { + case 'Y': + break; + case 'N': + _statusline(NEW_FILENAME_PROMPT); + FirstRecall = TRUE; + FnameNum = FnameTotal; + goto retry; + default: + goto done; + } + + /* + * See if we can write to it. + */ + CTRACE(tfp, "LYPrint: filename is %s, action is `%c'\n", buffer, c); + +#if HAVE_POPEN + if (*buffer == '|') { + if (no_shell) { + HTUserMsg(SPAWNING_DISABLED); + FirstRecall = TRUE; + FnameNum = FnameTotal; + goto retry; + } else if ((outfile_fp = popen(buffer+1, "w")) == NULL) { + CTRACE(tfp, "LYPrint: errno is %d\n", errno); + HTAlert(CANNOT_WRITE_TO_FILE); + _statusline(NEW_FILENAME_PROMPT); + FirstRecall = TRUE; + FnameNum = FnameTotal; + goto retry; + } + } else +#endif + if ((outfile_fp = (TOUPPER(c) == 'A' + ? LYAppendToTxtFile(buffer) + : LYNewTxtFile(buffer))) == NULL) { + CTRACE(tfp, "LYPrint: errno is %d\n", errno); + HTAlert(CANNOT_WRITE_TO_FILE); + _statusline(NEW_FILENAME_PROMPT); + FirstRecall = TRUE; + FnameNum = FnameTotal; + goto retry; + } + + if (LYPrependBaseToSource && HTisDocumentSource()) { + /* + * Added the document's base as a BASE tag to the top of the file. May + * create technically invalid HTML, but will help get any partial or + * relative URLs resolved properly if no BASE tag is present to replace + * it. - FM + * + * Add timestamp (last reload). + */ + + fprintf(outfile_fp, + "<!-- X-URL: %s -->\n", newdoc->address); + if (HText_getDate() != NULL) + fprintf(outfile_fp, + "<!-- Date: %s -->\n", HText_getDate()); + fprintf(outfile_fp, + "<BASE HREF=\"%s\">\n", content_base); + } + + if (LYPrependCharsetToSource && HTisDocumentSource()) { + /* + * Added the document's charset as a META CHARSET tag to the top of the + * file. May create technically invalid HTML, but will help to resolve + * properly the document converted via chartrans: printed document + * correspond to a display charset and we *should* override both + * assume_local_charset and original document's META CHARSET (if any). + * + * Currently, if several META CHARSETs are found Lynx uses the first + * only, and it is opposite to BASE where the original BASE in the + * <HEAD> overrides ones from the top. + * + * As in print-to-email we write charset only if the document has 8-bit + * characters, and we have no CJK or an unofficial "x-" charset. + */ + use_cte = HTLoadedDocumentEightbit(); + disp_charset = LYCharSet_UC[current_char_set].MIMEname; + if (!use_cte || LYHaveCJKCharacterSet || + strncasecomp(disp_charset, "x-", 2) == 0) { + } else { + fprintf(outfile_fp, + "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=%s\">\n\n", + disp_charset); + } + } + + print_wwwfile_to_fd(outfile_fp,0); + if (keypad_mode) + printlist(outfile_fp,FALSE); + +#if HAVE_POPEN + if (LYIsPipeCommand(buffer)) + pclose(outfile_fp); + else +#endif + fclose(outfile_fp); +#ifdef VMS + if (0 == strncasecomp(buffer, "sys$disk:", 9)) { + if (0 == strncmp((buffer+9), "[]", 2)) { + HTAddSugFilename(buffer+11); + } else { + HTAddSugFilename(buffer+9); + } + } else { + HTAddSugFilename(buffer); + } +#else + HTAddSugFilename(buffer); +#endif /* VMS */ + +done: + return; +} + +PRIVATE void send_file_to_mail ARGS3( + document *, newdoc, + char *, content_base, + char *, content_location) +{ static BOOLEAN first_mail_preparsed = TRUE; + #ifdef VMS - BOOLEAN isPMDF = FALSE; - char hdrfile[LY_MAXPATH]; + BOOLEAN isPMDF = !strncasecomp(system_mail, "PMDF SEND", 9); FILE *hfd; + char hdrfile[LY_MAXPATH]; + char my_temp[LY_MAXPATH]; +#endif +#ifdef DOSPATH + char my_temp[LY_MAXPATH]; +#endif + + BOOL use_cte; + BOOL use_mime; + BOOL use_type; + CONST char *disp_charset; + FILE *outfile_fp; + char *buffer; + char *subject = NULL; + char user_response[LINESIZE]; + int c; + + if (LYPreparsedSource && first_mail_preparsed && + HTisDocumentSource()) { + _statusline(CONFIRM_MAIL_SOURCE_PREPARSED); + c = 0; + while (TOUPPER(c)!='Y' && TOUPPER(c)!='N' && c != 7 && c != 3) + c = LYgetch(); +#ifdef VMS + if (HadVMSInterrupt) { + HadVMSInterrupt = FALSE; + CancelPrint(MAIL_REQUEST_CANCELLED); + } +#endif /* VMS */ + if (c == RTARROW || c == 'y' || c== 'Y' || c == '\n' || c == '\r') { + addstr(" Ok..."); + first_mail_preparsed = FALSE; + } else { + CancelPrint(MAIL_REQUEST_CANCELLED); + } + } + + _statusline(MAIL_ADDRESS_PROMPT); + LYstrncpy(user_response, personal_mail_address, sizeof(user_response)-1); + if (LYgetstr(user_response, VISIBLE, sizeof(user_response), NORECALL) < 0 || + *user_response == '\0') { + CancelPrint(MAIL_REQUEST_CANCELLED); + } + + /* + * Determine which mail headers should be sent. Use Content-Type and + * MIME-Version headers only if needed. We need them if we are mailing + * HTML source, or if we have 8-bit characters and will be sending + * Content-Transfer-Encoding to indicate this. We will append a charset + * parameter to the Content-Type if we do not have an "x-" charset, and we + * will include the Content-Transfer-Encoding only if we are appending the + * charset parameter, because indicating an 8-bit transfer without also + * indicating the charset can cause problems with many mailers. - FM & KW + */ + disp_charset = LYCharSet_UC[current_char_set].MIMEname; + use_cte = HTLoadedDocumentEightbit(); + if (!(use_cte && strncasecomp(disp_charset, "x-", 2))) { + disp_charset = NULL; + use_cte = FALSE; + } + use_type = (disp_charset || HTisDocumentSource()); + + /* + * Use newdoc->title as a subject instead of sug_filename: MORE readable + * and 8-bit letters shouldn't be a problem - LP + */ + /* change_sug_filename(sug_filename); */ + subject = subject_translate8bit(newdoc->title); + + if (newdoc->isHEAD) { + /* + * Special case for mailing HEAD responce: this is rather technical + * information, show URL. + */ + FREE(subject); + StrAllocCopy(subject, "HEAD "); + StrAllocCat(subject, newdoc->address); + } + +#ifdef VMS + if (strchr(user_response,'@') && !strchr(user_response,':') && + !strchr(user_response,'%') && !strchr(user_response,'"')) { + char *temp = 0; + HTSprintf0(&temp, mail_adrs, user_response); + LYstrncpy(user_response, temp, sizeof(user_response)-1); + FREE(temp); + } + + outfile_fp = LYOpenTemp(my_temp, + (HTisDocumentSource()) + ? HTML_SUFFIX + : ".txt", + "w"); + if (outfile_fp == NULL) { + CannotPrint(UNABLE_TO_OPEN_TEMPFILE); + } + + if (isPMDF) { + if ((hfd = LYOpenTemp(hdrfile, ".txt", "w")) == NULL) { + CannotPrint(UNABLE_TO_OPEN_TEMPFILE); + } + if (use_type) { + fprintf(hfd, "Mime-Version: 1.0\n"); + if (use_cte) { + fprintf(hfd, "Content-Transfer-Encoding: 8bit\n"); + } + } + if (HTisDocumentSource()) { + /* + * Add Content-Type, Content-Location, and Content-Base headers for + * HTML source. - FM + */ + fprintf(hfd, "Content-Type: text/html"); + if (disp_charset != NULL) { + fprintf(hfd, "; charset=%s\n", disp_charset); + } else { + fprintf(hfd, "\n"); + } + fprintf(hfd, "Content-Base: %s\n", content_base); + fprintf(hfd, "Content-Location: %s\n", content_location); + } else { + /* + * Add Content-Type: text/plain if we have 8-bit characters and a + * valid charset for non-source documents. - FM + */ + if (disp_charset != NULL) { + fprintf(hfd, + "Content-Type: text/plain; charset=%s\n", + disp_charset); + } + } + /* + * X-URL header. - FM + */ + fprintf(hfd, "X-URL: %s\n", newdoc->address); + } + + /* + * Write the contents to a temp file. + */ + if (LYPrependBaseToSource && HTisDocumentSource()) { + /* + * Added the document's base as a BASE tag to the top of the message + * body. May create technically invalid HTML, but will help get any + * partial or relative URLs resolved properly if no BASE tag is present + * to replace it. - FM + */ + fprintf(outfile_fp, + "<!-- X-URL: %s -->\n<BASE HREF=\"%s\">\n\n", + newdoc->address, content_base); + } else if (!isPMDF) { + fprintf(outfile_fp, "X-URL: %s\n\n", newdoc->address); + } + print_wwwfile_to_fd(outfile_fp, 0); + if (keypad_mode) + printlist(outfile_fp, FALSE); + LYCloseTempFP(outfile_fp); + + if (isPMDF) { + /* + * For PMDF, put the subject in the header file and close it. - FM + */ + fprintf(hfd, "Subject: %.70s\n\n", subject); + LYCloseTempFP(hfd); + /* + * Now set up the command. - FM + */ + HTSprintf0(&buffer, + "%s %s %s,%s %s", + system_mail, + system_mail_flags, + hdrfile, + my_temp, + user_response); + } else { + /* + * For "generic" VMS MAIL, include the subject in the command. - FM + */ + remove_quotes(subject); + HTSprintf0(&buffer, + "%s %s/subject=\"%.70s\" %s %s", + system_mail, + system_mail_flags, + subject, + my_temp, + user_response); + } + + stop_curses(); + printf(MAILING_FILE); + LYSystem(buffer); + sleep(AlertSecs); + start_curses(); + if (isPMDF) + LYRemoveTemp(hdrfile); + LYRemoveTemp(my_temp); +#else /* Unix or DOS */ + +#ifdef DOSPATH + outfile_fp = LYOpenTemp(my_temp, ".txt", "w"); +#else + HTSprintf0(&buffer, "%s %s", system_mail, system_mail_flags); + outfile_fp = popen(buffer, "w"); +#endif + if (outfile_fp == NULL) { + CannotPrint(MAIL_REQUEST_FAILED); + } + + /* + * Determine which mail headers should be sent. Use Content-Type and + * MIME-Version headers only if needed. We need them if we are mailing + * HTML source, or if we have 8-bit characters and will be sending + * Content-Transfer-Encoding to indicate this. + * + * Send Content-Transfer-Encoding only if the document has 8-bit + * characters. Send a charset parameter only if the document has 8-bit + * characters and we seem to have a valid charset. - kw + */ + use_cte = HTLoadedDocumentEightbit(); + disp_charset = LYCharSet_UC[current_char_set].MIMEname; + /* + * Don't send a charset if we have a CJK character set selected, since it + * may not be appropriate for mail... Also don't use an unofficial "x-" + * charset. - kw + */ + if (!use_cte || LYHaveCJKCharacterSet || + strncasecomp(disp_charset, "x-", 2) == 0) { + disp_charset = NULL; + } +#ifdef NOTDEFINED + /* Enable this if indicating an 8-bit transfer without + * also indicating the charset causes problems. - kw */ + if (use_cte && !disp_charset) + use_cte = FALSE; +#endif /* NOTDEFINED */ + use_type = (disp_charset || HTisDocumentSource()); + use_mime = (use_cte || use_type); + + if (use_mime) { + fprintf(outfile_fp, "Mime-Version: 1.0\n"); + if (use_cte) { + fprintf(outfile_fp, "Content-Transfer-Encoding: 8bit\n"); + } + } + + if (HTisDocumentSource()) { + /* + * Add Content-Type, Content-Location, and Content-Base headers for + * HTML source. - FM + */ + fprintf(outfile_fp, "Content-Type: text/html"); + if (disp_charset != NULL) { + fprintf(outfile_fp, "; charset=%s\n", disp_charset); + } else { + fprintf(outfile_fp, "\n"); + } + } else { + /* + * Add Content-Type: text/plain if we have 8-bit characters and a + * valid charset for non-source documents. - KW + */ + if (disp_charset != NULL) { + fprintf(outfile_fp, + "Content-Type: text/plain; charset=%s\n", + disp_charset); + } + } + /* + * If we are using MIME headers, add content-base and content-location if + * we have them. This will always be the case if the document is source. + * - kw + */ + if (use_mime) { + if (content_base) + fprintf(outfile_fp, "Content-Base: %s\n", content_base); + if (content_location) + fprintf(outfile_fp, "Content-Location: %s\n", content_location); + } + + /* + * Add the To, Subject, and X-URL headers. - FM + */ + fprintf(outfile_fp, "To: %s\nSubject: %s\n", user_response, subject); + fprintf(outfile_fp, "X-URL: %s\n\n", newdoc->address); + + if (LYPrependBaseToSource && HTisDocumentSource()) { + /* + * Added the document's base as a BASE tag to the top of the message + * body. May create technically invalid HTML, but will help get any + * partial or relative URLs resolved properly if no BASE tag is present + * to replace it. - FM + */ + fprintf(outfile_fp, + "<!-- X-URL: %s -->\n<BASE HREF=\"%s\">\n\n", + newdoc->address, content_base); + } + print_wwwfile_to_fd(outfile_fp, 0); + if (keypad_mode) + printlist(outfile_fp, FALSE); + +#ifdef DOSPATH + HTSprintf0(&buffer, "%s -t \"%s\" -F %s", system_mail, user_response, my_temp); + LYCloseTempFP(outfile_fp); /* Close the tmpfile. */ + stop_curses(); + printf("%s\n\n$ %s\n\n%s", gettext("Sending"), buffer, PLEASE_WAIT); + LYSystem(buffer); + sleep(MessageSecs); + start_curses(); + LYRemoveTemp(my_temp); /* Delete the tmpfile. */ +#else + pclose(outfile_fp); +#endif +#endif /* VMS */ + +done: + FREE(buffer); + FREE(subject); + return; +} + +PRIVATE void send_file_to_printer ARGS4( + document *, newdoc, + char *, content_base, + char *, sug_filename, + int, printer_number) +{ + BOOLEAN FirstRecall = TRUE; + FILE *outfile_fp; + char *the_command = 0; + char my_file[LY_MAXPATH]; + char my_temp[LY_MAXPATH]; + int FnameTotal, FnameNum = -1; + lynx_printer_item_type *cur_printer; - if (!strncasecomp(system_mail, "PMDF SEND", 9)) { - isPMDF = TRUE; + outfile_fp = LYOpenTemp(my_temp, + (HTisDocumentSource()) + ? HTML_SUFFIX + : ".txt", + "w"); + if (outfile_fp == NULL) { + CannotPrint(FILE_ALLOC_FAILED); } + + if (LYPrependBaseToSource && HTisDocumentSource()) { + /* + * Added the document's base as a BASE tag to the top of the file. May + * create technically invalid HTML, but will help get any partial or + * relative URLs resolved properly if no BASE tag is present to replace + * it. - FM + */ + fprintf(outfile_fp, + "<!-- X-URL: %s -->\n<BASE HREF=\"%s\">\n\n", + newdoc->address, content_base); + } + print_wwwfile_to_fd(outfile_fp, 0); + if (keypad_mode) + printlist(outfile_fp, FALSE); + + LYCloseTempFP(outfile_fp); + + /* find the right printer number */ + { + int count=0; + for (cur_printer = printers; + count < printer_number; + count++, cur_printer = cur_printer->next) + ; /* null body */ + } + + /* + * Commands have the form "command %s [%s] [etc]" where %s is the filename + * and the second optional %s is the suggested filename. + */ + if (cur_printer->command == NULL) { + CannotPrint(PRINTER_MISCONF_ERROR); + } + + /* + * Check for two '%s' and ask for the second filename argument if there + * is. + */ + if (HTCountCommandArgs (cur_printer->command) >= 2) { + _statusline(FILENAME_PROMPT); +again: + SetupFilename(my_file, sug_filename); +check_again: + switch (RecallFilename(my_file, &FirstRecall, &FnameNum, &FnameTotal)) { + case FN_INIT: + goto again; + case FN_READ: + goto check_again; + case FN_QUIT: + goto done; + default: + break; + } + + if (no_dotfiles || !show_dotfiles) { + if (*LYPathLeaf(my_file) == '.') { + HTAlert(FILENAME_CANNOT_BE_DOT); + _statusline(NEW_FILENAME_PROMPT); + FirstRecall = TRUE; + FnameNum = FnameTotal; + goto again; + } + } + /* + * Cancel if the user entered "/dev/null" on Unix, or an "nl:" path + * (case-insensitive) on VMS. - FM + */ +#ifdef VMS + if (!strncasecomp(my_file, "nl:", 3) || + !strncasecomp(my_file, "/nl/", 4)) +#else + if (!strcmp(my_file, "/dev/null")) #endif /* VMS */ + { + CancelPrint(PRINT_REQUEST_CANCELLED); + } + HTAddSugFilename(my_file); + } + + HTAddParam (&the_command, cur_printer->command, 1, my_temp); + HTAddParam (&the_command, cur_printer->command, 2, my_file); + HTEndParam (&the_command, cur_printer->command, 2); + + /* + * Move the cursor to the top of the screen so that output from system'd + * commands don't scroll up the screen. + */ + move(1,1); + + stop_curses(); + CTRACE(tfp, "command: %s\n", the_command); + printf(PRINTING_FILE); + /* + * Set various bits of document information as environment variables, for + * use by external print scripts/etc. On UNIX, We assume there are values, + * and leave NULL value checking up to the external PRINTER: cmd/script - + * KED + */ + SET_ENVIRON(LYNX_PRINT_TITLE, HText_getTitle(), "No Title"); + SET_ENVIRON(LYNX_PRINT_URL, newdoc->address, "No URL"); + SET_ENVIRON(LYNX_PRINT_DATE, HText_getDate(), "No Date"); + SET_ENVIRON(LYNX_PRINT_LASTMOD, HText_getLastModified(), "No LastMod"); + + LYSystem(the_command); + FREE(the_command); + LYRemoveTemp(my_temp); + + /* + * Remove the various LYNX_PRINT_xxxx logicals. - KED + * [could use unsetenv(), but it's not portable] + */ + SET_ENVIRON(LYNX_PRINT_TITLE, "", ""); + SET_ENVIRON(LYNX_PRINT_URL, "",""); + SET_ENVIRON(LYNX_PRINT_DATE, "", ""); + SET_ENVIRON(LYNX_PRINT_LASTMOD, "", ""); + + fflush(stdout); +#ifndef VMS + signal(SIGINT, cleanup_sig); +#endif /* !VMS */ + sleep(MessageSecs); + start_curses(); + +done: + return; +} + +PRIVATE void send_file_to_screen ARGS3( + document *, newdoc, + char *, content_base, + BOOLEAN, Lpansi) +{ + FILE *outfile_fp; + char prompt[80]; + + if (Lpansi) { + _statusline(CHECK_PRINTER); + } else { + _statusline(PRESS_RETURN_TO_BEGIN); + } + + *prompt = '\0'; + if (LYgetstr(prompt, VISIBLE, sizeof(prompt), NORECALL) < 0) { + CancelPrint(PRINT_REQUEST_CANCELLED); + } + + outfile_fp = stdout; + + stop_curses(); +#ifndef VMS + signal(SIGINT, SIG_IGN); +#endif /* !VMS */ + + if (LYPrependBaseToSource && HTisDocumentSource()) { + /* + * Added the document's base as a BASE tag to the top of the file. May + * create technically invalid HTML, but will help get any partial or + * relative URLs resolved properly if no BASE tag is present to replace + * it. - FM + */ + fprintf(outfile_fp, + "<!-- X-URL: %s -->\n<BASE HREF=\"%s\">\n\n", + newdoc->address, content_base); + } + if (Lpansi) + printf("\033[5i"); + print_wwwfile_to_fd(outfile_fp, 0); + if (keypad_mode) + printlist(outfile_fp, FALSE); + +#ifdef VMS + if (HadVMSInterrupt) { + HadVMSInterrupt = FALSE; + start_curses(); + CancelPrint(PRINT_REQUEST_CANCELLED); + } +#endif /* VMS */ + if (Lpansi) { + printf("\n\014"); /* Form feed */ + printf("\033[4i"); + Lpansi = FALSE; + } else { + fprintf(stdout,"\n\n%s", PRESS_RETURN_TO_FINISH); + LYgetch(); /* grab some user input to pause */ +#ifdef VMS + HadVMSInterrupt = FALSE; +#endif /* VMS */ + } + fflush(stdout); /* refresh to screen */ + start_curses(); + +done: + return; +} + +PUBLIC int printfile ARGS1( + document *, newdoc) +{ + BOOLEAN Lpansi = FALSE; + DocAddress WWWDoc; + char *content_base = NULL; + char *content_location = NULL; + char *cp = NULL; + char *link_info = NULL; + char *sug_filename = NULL; + int lines_in_file = 0; + int pagelen = 0; + int printer_number = 0; + int type = 0; /* * Extract useful info from URL. @@ -195,34 +1077,7 @@ PUBLIC int printfile ARGS1( } } - /* - * Load the suggested filename string. - FM - */ - if (HText_getSugFname() != 0) - StrAllocCopy(sug_filename, HText_getSugFname()); /* must be freed */ - else - StrAllocCopy(sug_filename, newdoc->address); /* must be freed */ - /* - * Strip any gzip or compress suffix, if present. - FM - */ - cp = NULL; - if (strlen(sug_filename) > 3) { - cp = (char *)&sug_filename[(strlen(sug_filename) - 3)]; - if ((*cp == '.' || *cp == '-' || *cp == '_') && - !strcasecomp((cp + 1), "gz")) { - *cp = '\0'; - } else { - cp = NULL; - } - } - if ((cp == NULL) && strlen(sug_filename) > 2) { - cp = (char *)&sug_filename[(strlen(sug_filename) - 2)]; - if ((*cp == '.' || *cp == '-' || *cp == '_') && - !strcasecomp((cp + 1), "Z")) { - *cp = '\0'; - } - } - cp = NULL; + sug_filename = suggested_filename(newdoc); /* * Get the number of lines in the file. @@ -238,7 +1093,6 @@ PUBLIC int printfile ARGS1( cp += 6; lines_in_file = atoi(cp); - pages = lines_in_file/66; } /* @@ -272,919 +1126,32 @@ PUBLIC int printfile ARGS1( } /* - * Set up the sug_filenames recall buffer. - */ - FnameTotal = (sug_filenames ? HTList_count(sug_filenames) : 0); - recall = ((FnameTotal >= 1) ? RECALL : NORECALL); - FnameNum = FnameTotal; - - /* * Act on the request. - FM */ switch (type) { case TO_FILE: - _statusline(FILENAME_PROMPT); - retry: strcpy(filename, sug_filename); /* add suggestion info */ - /* make the sug_filename conform to system specs */ - change_sug_filename(filename); - if (!(HTisDocumentSource()) && - (cp = strrchr(filename, '.')) != NULL) { - format = HTFileFormat(filename, &encoding, NULL); - if (!strcasecomp(format->name, "text/html") || - !IsUnityEnc(encoding)) { - *cp = '\0'; - strcat(filename, ".txt"); - } - } - if (lynx_save_space && *lynx_save_space) { - strcpy(buffer, lynx_save_space); - strcat(buffer, filename); - strcpy(filename, buffer); - } - check_recall: - if ((ch = LYgetstr(filename, VISIBLE, - sizeof(filename), recall)) < 0 || - *filename == '\0' || ch == UPARROW || ch == DNARROW) { - if (recall && ch == UPARROW) { - if (FirstRecall) { - FirstRecall = FALSE; - /* - * Use the last Fname in the list. - FM - */ - FnameNum = 0; - } else { - /* - * Go back to the previous Fname - * in the list. - FM - */ - FnameNum++; - } - if (FnameNum >= FnameTotal) { - /* - * Reset the FirstRecall flag, - * and use sug_file or a blank. - FM - */ - FirstRecall = TRUE; - FnameNum = FnameTotal; - _statusline(FILENAME_PROMPT); - goto retry; - } else if ((cp = (char *)HTList_objectAt( - sug_filenames, - FnameNum)) != NULL) { - strcpy(filename, cp); - if (FnameTotal == 1) { - _statusline(EDIT_THE_PREV_FILENAME); - } else { - _statusline(EDIT_A_PREV_FILENAME); - } - goto check_recall; - } - } else if (recall && ch == DNARROW) { - if (FirstRecall) { - FirstRecall = FALSE; - /* - * Use the first Fname in the list. - FM - */ - FnameNum = FnameTotal - 1; - } else { - /* - * Advance to the next Fname in the list. - FM - */ - FnameNum--; - } - if (FnameNum < 0) { - /* - * Set the FirstRecall flag, - * and use sug_file or a blank. - FM - */ - FirstRecall = TRUE; - FnameNum = FnameTotal; - _statusline(FILENAME_PROMPT); - goto retry; - } else if ((cp = (char *)HTList_objectAt( - sug_filenames, - FnameNum)) != NULL) { - strcpy(filename, cp); - if (FnameTotal == 1) { - _statusline(EDIT_THE_PREV_FILENAME); - } else { - _statusline(EDIT_A_PREV_FILENAME); - } - goto check_recall; - } - } - - /* - * Save cancelled. - */ - HTInfoMsg(SAVE_REQUEST_CANCELLED); - break; - } - - if (!LYValidateFilename(buffer, filename)) { - HTInfoMsg(SAVE_REQUEST_CANCELLED); - break; - } - - /* - * See if it already exists. - */ - switch (LYValidateOutput(buffer)) { - case 'Y': - break; - case 'N': - _statusline(NEW_FILENAME_PROMPT); - FirstRecall = TRUE; - FnameNum = FnameTotal; - goto retry; - default: - goto done; - } - - /* - * See if we can write to it. - */ - CTRACE(tfp, "LYPrint: filename is %s, action is `%c'\n", buffer, c); - -#if HAVE_POPEN - if (*buffer == '|') { - if (no_shell) { - HTUserMsg(SPAWNING_DISABLED); - FirstRecall = TRUE; - FnameNum = FnameTotal; - goto retry; - } else if ((outfile_fp = popen(buffer+1, "w")) == NULL) { - CTRACE(tfp, "LYPrint: errno is %d\n", errno); - HTAlert(CANNOT_WRITE_TO_FILE); - _statusline(NEW_FILENAME_PROMPT); - FirstRecall = TRUE; - FnameNum = FnameTotal; - goto retry; - } - } else -#endif - if ((outfile_fp = (TOUPPER(c) == 'A' - ? LYAppendToTxtFile(buffer) - : LYNewTxtFile(buffer))) == NULL) { - CTRACE(tfp, "LYPrint: errno is %d\n", errno); - HTAlert(CANNOT_WRITE_TO_FILE); - _statusline(NEW_FILENAME_PROMPT); - FirstRecall = TRUE; - FnameNum = FnameTotal; - goto retry; - } - - if (LYPrependBaseToSource && HTisDocumentSource()) { - /* - * Added the document's base as a BASE tag - * to the top of the file. May create - * technically invalid HTML, but will help - * get any partial or relative URLs resolved - * properly if no BASE tag is present to - * replace it. - FM - * - * Add timestamp (last reload). - */ - - fprintf(outfile_fp, - "<!-- X-URL: %s -->\n", newdoc->address); - if (HText_getDate() != NULL) - fprintf(outfile_fp, - "<!-- Date: %s -->\n", HText_getDate()); - fprintf(outfile_fp, - "<BASE HREF=\"%s\">\n", content_base); - } - - if (LYPrependCharsetToSource && HTisDocumentSource()) { - /* - * Added the document's charset as a META CHARSET tag - * to the top of the file. May create - * technically invalid HTML, but will help to resolve - * properly the document converted via chartrans: - * printed document correspond to a display charset - * and we *should* override both assume_local_charset - * and original document's META CHARSET (if any). - * - * Currently, if several META CHARSETs are found Lynx uses - * the first only, and it is opposite to BASE where the - * original BASE in the <HEAD> overrides ones from the - * top. - * - * As in print-to-email we write charset only if the - * document has 8-bit characters, and we have no CJK or an - * unofficial "x-" charset. - */ - use_cte = HTLoadedDocumentEightbit(); - disp_charset = LYCharSet_UC[current_char_set].MIMEname; - if (!use_cte || LYHaveCJKCharacterSet || - strncasecomp(disp_charset, "x-", 2) == 0) { - } else { - fprintf(outfile_fp, - "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=%s\">\n\n", - disp_charset); - } - } - - print_wwwfile_to_fd(outfile_fp,0); - if (keypad_mode) - printlist(outfile_fp,FALSE); - -#if HAVE_POPEN - if (LYIsPipeCommand(buffer)) - pclose(outfile_fp); - else -#endif - fclose(outfile_fp); -#ifdef VMS - if (0 == strncasecomp(buffer, "sys$disk:", 9)) { - if (0 == strncmp((buffer+9), "[]", 2)) { - HTAddSugFilename(buffer+11); - } else { - HTAddSugFilename(buffer+9); - } - } else { - HTAddSugFilename(buffer); - } -#else - HTAddSugFilename(buffer); -#endif /* VMS */ - break; + send_file_to_file(newdoc, content_base, sug_filename); + break; case MAIL: - if (LYPreparsedSource && first_mail_preparsed && - HTisDocumentSource()) { - _statusline(CONFIRM_MAIL_SOURCE_PREPARSED); - c = 0; - while (TOUPPER(c)!='Y' && TOUPPER(c)!='N' && - c != 7 && c != 3) - c = LYgetch(); -#ifdef VMS - if (HadVMSInterrupt) { - HadVMSInterrupt = FALSE; - HTInfoMsg(MAIL_REQUEST_CANCELLED); - break; - } -#endif /* VMS */ - if (c == RTARROW || c == 'y' || c== 'Y' - || c == '\n' || c == '\r') { - addstr(" Ok..."); - first_mail_preparsed = FALSE; - } else { - HTInfoMsg(MAIL_REQUEST_CANCELLED); - break; - } - } - - _statusline(MAIL_ADDRESS_PROMPT); - strcpy(user_response, (personal_mail_address ? - personal_mail_address : "")); - if (LYgetstr(user_response, VISIBLE, - sizeof(user_response), NORECALL) < 0 || - *user_response == '\0') { - HTInfoMsg(MAIL_REQUEST_CANCELLED); - break; - } - - /* - * Determine which mail headers should be sent. - * Use Content-Type and MIME-Version headers only - * if needed. We need them if we are mailing HTML - * source, or if we have 8-bit characters and will - * be sending Content-Transfer-Encoding to indicate - * this. We will append a charset parameter to the - * Content-Type if we do not have an "x-" charset, - * and we will include the Content-Transfer-Encoding - * only if we are appending the charset parameter, - * because indicating an 8-bit transfer without also - * indicating the charset can cause problems with - * many mailers. - FM & KW - */ - disp_charset = LYCharSet_UC[current_char_set].MIMEname; - use_cte = HTLoadedDocumentEightbit(); - if (!(use_cte && strncasecomp(disp_charset, "x-", 2))) { - disp_charset = NULL; - use_cte = FALSE; - } - use_type = (disp_charset || HTisDocumentSource()); - - /* - * Use newdoc->title as a subject instead of sug_filename: - * MORE readable and 8-bit letters shouldn't be a problem - LP - */ - /* change_sug_filename(sug_filename); */ - subject = subject_translate8bit(newdoc->title); - - if (newdoc->isHEAD) { - /* - * Special case for mailing HEAD responce: - * this is rather technical information, show URL. - */ - FREE(subject); - StrAllocCopy(subject, "HEAD "); - StrAllocCat(subject, newdoc->address); - } - -#ifdef VMS - if (strchr(user_response,'@') && !strchr(user_response,':') && - !strchr(user_response,'%') && !strchr(user_response,'"')) { - sprintf(filename, mail_adrs, user_response); - strcpy(user_response, filename); - } - - LYRemoveTemp(tempfile); - outfile_fp = LYOpenTemp(tempfile, - (HTisDocumentSource()) - ? HTML_SUFFIX - : ".txt", - "w"); - if (outfile_fp == NULL) { - HTAlert(UNABLE_TO_OPEN_TEMPFILE); - break; - } - - if (isPMDF) { - if ((hfd = LYOpenTemp(hdrfile, ".txt", "w")) == NULL) { - HTAlert(UNABLE_TO_OPEN_TEMPFILE); - break; - } - if (use_type) { - fprintf(hfd, "Mime-Version: 1.0\n"); - if (use_cte) { - fprintf(hfd, - "Content-Transfer-Encoding: 8bit\n"); - } - } - if (HTisDocumentSource()) { - /* - * Add Content-Type, Content-Location, and - * Content-Base headers for HTML source. - FM - */ - fprintf(hfd, "Content-Type: text/html"); - if (disp_charset != NULL) { - fprintf(hfd, - "; charset=%s\n", - disp_charset); - } else { - fprintf(hfd, "\n"); - } - fprintf(hfd, - "Content-Base: %s\n", - content_base); - fprintf(hfd, - "Content-Location: %s\n", - content_location); - } else { - /* - * Add Content-Type: text/plain if we have 8-bit - * characters and a valid charset for non-source - * documents. - FM - */ - if (disp_charset != NULL) { - fprintf(hfd, - "Content-Type: text/plain; charset=%s\n", - disp_charset); - } - } - /* - * X-URL header. - FM - */ - fprintf(hfd, "X-URL: %s\n", newdoc->address); - } - - /* - * Write the contents to a temp file. - */ - if (LYPrependBaseToSource && HTisDocumentSource()) { - /* - * Added the document's base as a BASE tag to - * the top of the message body. May create - * technically invalid HTML, but will help - * get any partial or relative URLs resolved - * properly if no BASE tag is present to - * replace it. - FM - */ - fprintf(outfile_fp, - "<!-- X-URL: %s -->\n<BASE HREF=\"%s\">\n\n", - newdoc->address, content_base); - } else if (!isPMDF) { - fprintf(outfile_fp, "X-URL: %s\n\n", newdoc->address); - } - print_wwwfile_to_fd(outfile_fp, 0); - if (keypad_mode) - printlist(outfile_fp, FALSE); - LYCloseTempFP(outfile_fp); - - if (isPMDF) { - /* - * For PMDF, put the subject in the - * header file and close it. - FM - */ - fprintf(hfd, "Subject: %.70s\n\n", subject); - LYCloseTempFP(hfd); - /* - * Now set up the command. - FM - */ - sprintf(buffer, - "%s %s %s,%s %s", - system_mail, - system_mail_flags, - hdrfile, - tempfile, - user_response); - } else { - /* - * For "generic" VMS MAIL, include - * the subject in the command. - FM - */ - remove_quotes(subject); - sprintf(buffer, - "%s %s/subject=\"%.70s\" %s %s", - system_mail, - system_mail_flags, - subject, - tempfile, - user_response); - } - - stop_curses(); - printf(MAILING_FILE); - LYSystem(buffer); - sleep(AlertSecs); - start_curses(); - if (isPMDF) - LYRemoveTemp(hdrfile); -#else /* Unix or DOS */ - -#ifdef DOSPATH - outfile_fp = LYOpenTemp(tempfile, ".txt", "w"); -#else - sprintf(buffer, "%s %s", system_mail, system_mail_flags); - outfile_fp = popen(buffer, "w"); -#endif - if (outfile_fp == NULL) { - HTAlert(MAIL_REQUEST_FAILED); - break; - } - - /* - * Determine which mail headers should be sent. - * Use Content-Type and MIME-Version headers only - * if needed. We need them if we are mailing HTML - * source, or if we have 8-bit characters and will - * be sending Content-Transfer-Encoding to indicate - * this. - * - * Send Content-Transfer-Encoding only if the document - * has 8-bit characters. Send a charset parameter only - * if the document has 8-bit characters and we we seem - * to have a valid charset. - kw - */ - use_cte = HTLoadedDocumentEightbit(); - disp_charset = LYCharSet_UC[current_char_set].MIMEname; - /* - * Don't send a charset if we have a CJK character set - * selected, since it may not be appropriate for mail... - * Also don't use an unofficial "x-" charset. - kw - */ - if (!use_cte || LYHaveCJKCharacterSet || - strncasecomp(disp_charset, "x-", 2) == 0) { - disp_charset = NULL; - } -#ifdef NOTDEFINED - /* Enable this if indicating an 8-bit transfer without - * also indicating the charset causes problems. - kw */ - if (use_cte && !disp_charse) - use_cte = FALSE; -#endif /* NOTDEFINED */ - use_type = (disp_charset || HTisDocumentSource()); - use_mime = (use_cte || use_type); - - if (use_mime) { - fprintf(outfile_fp, "Mime-Version: 1.0\n"); - if (use_cte) { - fprintf(outfile_fp, - "Content-Transfer-Encoding: 8bit\n"); - } - } - - if (HTisDocumentSource()) { - /* - * Add Content-Type, Content-Location, and - * Content-Base headers for HTML source. - FM - */ - fprintf(outfile_fp, "Content-Type: text/html"); - if (disp_charset != NULL) { - fprintf(outfile_fp, "; charset=%s\n", - disp_charset); - } else { - fprintf(outfile_fp, "\n"); - } - } else { - /* - * Add Content-Type: text/plain if we have 8-bit - * characters and a valid charset for non-source - * documents. - KW - */ - if (disp_charset != NULL) { - fprintf(outfile_fp, - "Content-Type: text/plain; charset=%s\n", - disp_charset); - } - } - /* - * If we are using MIME headers, add content-base and - * content-location if we have them. This will always - * be the case if the document is source. - kw - */ - if (use_mime) { - if (content_base) - fprintf(outfile_fp, "Content-Base: %s\n", - content_base); - if (content_location) - fprintf(outfile_fp, "Content-Location: %s\n", - content_location); - } - - /* - * Add the To, Subject, and X-URL headers. - FM - */ - fprintf(outfile_fp, "To: %s\nSubject: %s\n", - user_response, subject); - fprintf(outfile_fp, "X-URL: %s\n\n", newdoc->address); - if (LYPrependBaseToSource && HTisDocumentSource()) { - /* - * Added the document's base as a BASE tag to - * the top of the message body. May create - * technically invalid HTML, but will help - * get any partial or relative URLs resolved - * properly if no BASE tag is present to - * replace it. - FM - */ - fprintf(outfile_fp, - "<!-- X-URL: %s -->\n<BASE HREF=\"%s\">\n\n", - newdoc->address, content_base); - } - print_wwwfile_to_fd(outfile_fp, 0); - if (keypad_mode) - printlist(outfile_fp, FALSE); - -#ifdef DOSPATH - sprintf(buffer, "%s -t \"%s\" -F %s", system_mail, user_response, tempfile); - LYCloseTempFP(outfile_fp); /* Close the tmpfile. */ - stop_curses(); - printf("%s\n\n$ %s\n\n%s", gettext("Sending"), buffer, PLEASE_WAIT); - LYSystem(buffer); - sleep(MessageSecs); - start_curses(); - LYRemoveTemp(tempfile); /* Delete the tmpfile. */ -#else - pclose(outfile_fp); -#endif -#endif /* VMS */ - break; + send_file_to_mail(newdoc, content_base, content_location); + break; case TO_SCREEN: - pages = lines_in_file/(LYlines+1); - /* count fractional pages ! */ - if ((lines_in_file % (LYlines+1)) > 0) - pages++; - if (pages > 4) { - sprintf(filename, CONFIRM_LONG_SCREEN_PRINT, pages); - _statusline(filename); - c = LYgetch(); -#ifdef VMS - if (HadVMSInterrupt) { - HadVMSInterrupt = FALSE; - HTInfoMsg(PRINT_REQUEST_CANCELLED); - break; - } -#endif /* VMS */ - if (c == RTARROW || c == 'y' || c== 'Y' - || c == '\n' || c == '\r') { - addstr(" Ok..."); - } else { - HTInfoMsg(PRINT_REQUEST_CANCELLED); - break; - } - } - - if (Lpansi) { - _statusline(CHECK_PRINTER); - } else { - _statusline(PRESS_RETURN_TO_BEGIN); - } - *filename = '\0'; - if (LYgetstr(filename, VISIBLE, - sizeof(filename), NORECALL) < 0) { - HTInfoMsg(PRINT_REQUEST_CANCELLED); - break; - } - - outfile_fp = stdout; - - stop_curses(); -#ifndef VMS - signal(SIGINT, SIG_IGN); -#endif /* !VMS */ - - if (LYPrependBaseToSource && HTisDocumentSource()) { - /* - * Added the document's base as a BASE tag - * to the top of the file. May create - * technically invalid HTML, but will help - * get any partial or relative URLs resolved - * properly if no BASE tag is present to - * replace it. - FM - */ - fprintf(outfile_fp, - "<!-- X-URL: %s -->\n<BASE HREF=\"%s\">\n\n", - newdoc->address, content_base); - } - if (Lpansi) - printf("\033[5i"); - print_wwwfile_to_fd(outfile_fp, 0); - if (keypad_mode) - printlist(outfile_fp, FALSE); - -#ifdef VMS - if (HadVMSInterrupt) { - HadVMSInterrupt = FALSE; - start_curses(); - break; - } -#endif /* VMS */ - if (Lpansi) { - printf("\n\014"); /* Form feed */ - printf("\033[4i"); - Lpansi = FALSE; - } else { - fprintf(stdout,"\n\n%s", PRESS_RETURN_TO_FINISH); - LYgetch(); /* grab some user input to pause */ -#ifdef VMS - HadVMSInterrupt = FALSE; -#endif /* VMS */ - } - fflush(stdout); /* refresh to screen */ - start_curses(); - break; + if (confirm_by_pages(CONFIRM_LONG_SCREEN_PRINT, lines_in_file, LYlines)) + send_file_to_screen(newdoc, content_base, Lpansi); + break; case PRINTER: - pages = lines_in_file/pagelen; - /* count fractional pages ! */ - if ((lines_in_file % pagelen) > 0) - pages++; - if (pages > 4) { - sprintf(filename, CONFIRM_LONG_PAGE_PRINT, pages); - _statusline(filename); - c=LYgetch(); -#ifdef VMS - if (HadVMSInterrupt) { - HadVMSInterrupt = FALSE; - HTInfoMsg(PRINT_REQUEST_CANCELLED); - break; - } -#endif /* VMS */ - if (c == RTARROW || c == 'y' || c== 'Y' - || c == '\n' || c == '\r') { - addstr(" Ok..."); - } else { - HTInfoMsg(PRINT_REQUEST_CANCELLED); - break; - } - } - - LYRemoveTemp(tempfile); - outfile_fp = LYOpenTemp(tempfile, - (HTisDocumentSource()) - ? HTML_SUFFIX - : ".txt", - "w"); - if (outfile_fp == NULL) { - HTAlert(FILE_ALLOC_FAILED); - break; - } - - if (LYPrependBaseToSource && HTisDocumentSource()) { - /* - * Added the document's base as a BASE tag - * to the top of the file. May create - * technically invalid HTML, but will help - * get any partial or relative URLs resolved - * properly if no BASE tag is present to - * replace it. - FM - */ - fprintf(outfile_fp, - "<!-- X-URL: %s -->\n<BASE HREF=\"%s\">\n\n", - newdoc->address, content_base); - } - print_wwwfile_to_fd(outfile_fp, 0); - if (keypad_mode) - printlist(outfile_fp, FALSE); - - LYCloseTempFP(outfile_fp); - - /* find the right printer number */ - { - int count=0; - for (cur_printer = printers; - count < printer_number; - count++, cur_printer = cur_printer->next) - ; /* null body */ - } - - /* - * Commands have the form "command %s [%s] [etc]" - * where %s is the filename and the second optional - * %s is the suggested filename. - */ - if (cur_printer->command != NULL) { - /* - * Check for two '%s' and ask for the second filename - * argument if there is. - */ - if (HTCountCommandArgs (cur_printer->command) >= 2) { - _statusline(FILENAME_PROMPT); - again: strcpy(filename, sug_filename); - change_sug_filename(filename); - if (!(HTisDocumentSource()) && - (cp = strrchr(filename, '.')) != NULL) { - format = HTFileFormat(filename, &encoding, NULL); - if (!strcasecomp(format->name, "text/html") || - !IsUnityEnc(encoding)) { - *cp = '\0'; - strcat(filename, ".txt"); - } - } - check_again: - if ((ch = LYgetstr(filename, VISIBLE, - sizeof(filename), recall)) < 0 || - *filename == '\0' || - ch == UPARROW || ch == DNARROW) { - if (recall && ch == UPARROW) { - if (FirstRecall) { - FirstRecall = FALSE; - /* - * Use the last Fname in the list. - FM - */ - FnameNum = 0; - } else { - /* - * Go back to the previous Fname - * in the list. - FM - */ - FnameNum++; - } - if (FnameNum >= FnameTotal) { - /* - * Reset the FirstRecall flag, - * and use sug_file or a blank. - FM - */ - FirstRecall = TRUE; - FnameNum = FnameTotal; - _statusline(FILENAME_PROMPT); - goto again; - } else if ((cp = (char *)HTList_objectAt( - sug_filenames, - FnameNum)) != NULL) { - strcpy(filename, cp); - if (FnameTotal == 1) { - _statusline(EDIT_THE_PREV_FILENAME); - } else { - _statusline(EDIT_A_PREV_FILENAME); - } - goto check_again; - } - } else if (recall && ch == DNARROW) { - if (FirstRecall) { - FirstRecall = FALSE; - /* - * Use the first Fname in the list. - FM - */ - FnameNum = FnameTotal - 1; - } else { - /* - * Advance to the next Fname - * in the list. - FM - */ - FnameNum--; - } - if (FnameNum < 0) { - /* - * Set the FirstRecall flag, - * and use sug_file or a blank. - FM - */ - FirstRecall = TRUE; - FnameNum = FnameTotal; - _statusline(FILENAME_PROMPT); - goto again; - } else if ((cp = (char *)HTList_objectAt( - sug_filenames, - FnameNum)) != NULL) { - strcpy(filename, cp); - if (FnameTotal == 1) { - _statusline(EDIT_THE_PREV_FILENAME); - } else { - _statusline(EDIT_A_PREV_FILENAME); - } - goto check_again; - } - } - - /* - * Printer cancelled. - */ - HTInfoMsg(PRINT_REQUEST_CANCELLED); - break; - } - - if (no_dotfiles || !show_dotfiles) { - if (*LYPathLeaf(filename) == '.') { - HTAlert(FILENAME_CANNOT_BE_DOT); - _statusline(NEW_FILENAME_PROMPT); - FirstRecall = TRUE; - FnameNum = FnameTotal; - goto again; - } - } - /* - * Cancel if the user entered "/dev/null" on Unix, - * or an "nl:" path (case-insensitive) on VMS. - FM - */ -#ifdef VMS - if (!strncasecomp(filename, "nl:", 3) || - !strncasecomp(filename, "/nl/", 4)) -#else - if (!strcmp(filename, "/dev/null")) -#endif /* VMS */ - { - HTInfoMsg(PRINT_REQUEST_CANCELLED); - break; - } - HTAddSugFilename(filename); - } - - HTAddParam (&the_command, cur_printer->command, 1, tempfile); - HTAddParam (&the_command, cur_printer->command, 2, filename); - HTEndParam (&the_command, cur_printer->command, 2); - - } else { - HTAlert(PRINTER_MISCONF_ERROR); - break; - } - - /* - * Move the cursor to the top of the screen so that - * output from system'd commands don't scroll up - * the screen. - */ - move(1,1); - - stop_curses(); - CTRACE(tfp, "command: %s\n", the_command); - printf(PRINTING_FILE); - /* - * Set various bits of document information as environment - * variables, for use by external print scripts/etc. On UNIX, - * We assume there are values, and leave NULL value checking - * up to the external PRINTER: cmd/script - KED - */ - SET_ENVIRON(LYNX_PRINT_TITLE, - HText_getTitle(), - "No Title"); - SET_ENVIRON(LYNX_PRINT_URL, - newdoc->address, - "No URL"); - SET_ENVIRON(LYNX_PRINT_DATE, - HText_getDate(), - "No Date"); - SET_ENVIRON(LYNX_PRINT_LASTMOD, - HText_getLastModified(), - "No LastMod"); - - LYSystem(the_command); - FREE(the_command); - /* - * Remove the various LYNX_PRINT_xxxx logicals. - KED - * [could use unsetenv(), but it's not portable] - */ - SET_ENVIRON(LYNX_PRINT_TITLE, "", ""); - SET_ENVIRON(LYNX_PRINT_URL, "",""); - SET_ENVIRON(LYNX_PRINT_DATE, "", ""); - SET_ENVIRON(LYNX_PRINT_LASTMOD, "", ""); + if (confirm_by_pages(CONFIRM_LONG_PAGE_PRINT, lines_in_file, pagelen)) + send_file_to_printer(newdoc, content_base, sug_filename, printer_number); + break; - fflush(stdout); -#ifndef VMS - signal(SIGINT, cleanup_sig); -#endif /* !VMS */ - sleep(MessageSecs); - start_curses(); } /* end switch */ -done: FREE(link_info); FREE(sug_filename); - FREE(subject); FREE(content_base); FREE(content_location); return(NORMAL); @@ -1225,11 +1192,10 @@ PRIVATE int remove_quotes ARGS1( PRIVATE char* subject_translate8bit ARGS1(char *, source) { CONST char *p = source; - char temp[256]; - char *q = temp; + char temp[2]; char *target = NULL; - int charset_in, charset_out, uck; + int charset_in, charset_out; char replace_buf [10]; int i = outgoing_mail_charset; /* from lynx.cfg, -1 by default */ @@ -1245,14 +1211,13 @@ PRIVATE char* subject_translate8bit ARGS1(char *, source) } for ( ; *p; p++) { - LYstrncpy(q, p, 1); - if ((unsigned char)*q <= 127) { - StrAllocCat(target, q); + LYstrncpy(temp, p, sizeof(temp)-1); + if ((unsigned char)*temp <= 127) { + StrAllocCat(target, temp); } else { - uck = UCTransCharStr(replace_buf, sizeof(replace_buf), *q, - charset_in, charset_out, YES); - if (uck >0) - StrAllocCat(target, replace_buf); + if (UCTransCharStr(replace_buf, sizeof(replace_buf), *temp, + charset_in, charset_out, YES) > 0) + StrAllocCat(target, replace_buf); } } @@ -1275,21 +1240,20 @@ PUBLIC int print_options ARGS3( char **, printed_url, int, lines_in_file) { - static char tempfile[LY_MAXPATH]; - char buffer[LINESIZE]; + static char my_temp[LY_MAXPATH]; + char *buffer = 0; int count; int pages; FILE *fp0; lynx_printer_item_type *cur_printer; - - LYRemoveTemp(tempfile); - if ((fp0 = LYOpenTemp(tempfile, HTML_SUFFIX, "w")) == NULL) { + LYRemoveTemp(my_temp); + if ((fp0 = LYOpenTemp(my_temp, HTML_SUFFIX, "w")) == NULL) { HTAlert(UNABLE_TO_OPEN_PRINTOP_FILE); return(-1); } - LYLocalFileToURL(newfile, tempfile); + LYLocalFileToURL(newfile, my_temp); BeginInternalPage(fp0, PRINT_OPTIONS_TITLE, PRINT_OPTIONS_HELP); @@ -1297,13 +1261,14 @@ PUBLIC int print_options ARGS3( /* pages = lines_in_file/66 + 1; */ pages = (lines_in_file+65)/66; - sprintf(buffer, " <em>%s</em> %s\n <em>%s</em> %d\n <em>%s</em> %d %s %s\n", + HTSprintf0(&buffer, " <em>%s</em> %s\n <em>%s</em> %d\n <em>%s</em> %d %s %s\n", gettext("Document:"), *printed_url, gettext("Number of lines:"), lines_in_file, gettext("Number of pages:"), pages, (pages > 1 ? gettext("pages") : gettext("page")), gettext("(approximately)")); fputs(buffer, fp0); + FREE(buffer); if (no_print || no_disk_save || child_lynx || no_mail) fprintf(fp0, " <em>%s</em>\n", gettext("Some print functions have been disabled!")); @@ -1322,10 +1287,10 @@ PUBLIC int print_options ARGS3( fprintf(fp0," <em>%s</em>\n", gettext("Save to disk disabled")); } if (child_lynx == FALSE && no_mail == FALSE && local_host_only == FALSE) - fprintf(fp0, - " <a href=\"LYNXPRINT://MAIL_FILE/lines=%d\">%s</a>\n", - lines_in_file, - gettext("Mail the file")); + fprintf(fp0, + " <a href=\"LYNXPRINT://MAIL_FILE/lines=%d\">%s</a>\n", + lines_in_file, + gettext("Mail the file")); #ifndef DOSPATH fprintf(fp0, |