#include "HTUtils.h" #include "tcp.h" #include "HTAccess.h" #include "HTList.h" #include "HTAlert.h" #include "LYCurses.h" #include "GridText.h" #include "LYUtils.h" #include "LYPrint.h" #include "LYGlobalDefs.h" #include "LYSignal.h" #include "LYStrings.h" #include "LYClean.h" #include "LYGetFile.h" #include "LYHistory.h" #include "LYSystem.h" #include "LYList.h" #ifdef VMS #include "HTVMSUtils.h" #endif /* VMS */ #include "LYLeaks.h" #define FREE(x) if (x) {free(x); x = NULL;} /* * printfile prints out the current file minus the links and targets * to a veriaty of places */ /* it parses an incoming link that looks like * * LYNXPRINT://LOCAL_FILE/lines=## * LYNXPRINT://MAIL_FILE/lines=## * LYNXPRINT://TO_SCREEN/lines=## * LYNXPRINT://PRINTER/lines=##/number=# */ #define TO_FILE 1 #define TO_SCREEN 2 #define MAIL 3 #define PRINTER 4 #ifdef VMS PRIVATE int remove_quotes PARAMS((char *string)); #endif /* VMS */ PUBLIC int printfile ARGS1(document *,newdoc) { static char tempfile[256]; static BOOLEAN first = TRUE; 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, len; FILE *outfile_fp; char *cp; 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; #ifdef VMS extern BOOLEAN HadVMSInterrupt; #endif /* VMS */ /* * Extract useful info from URL. */ StrAllocCopy(link_info, newdoc->address+12); /* * Reload the file we want to print into memory. */ LYpop(newdoc); WWWDoc.address = newdoc->address; WWWDoc.post_data = newdoc->post_data; WWWDoc.post_content_type = newdoc->post_content_type; WWWDoc.bookmark = newdoc->bookmark; WWWDoc.isHEAD = newdoc->isHEAD; if(!HTLoadAbsolute(&WWWDoc)) return(NOT_FOUND); /* * Load the suggested filename string. - FM */ if (HText_getSugFname() != NULL) StrAllocCopy(sug_filename, HText_getSugFname()); /* must be freed */ else StrAllocCopy(sug_filename, newdoc->address); /* must be freed */ /* * Get the number of lines in the file. */ if ((cp = (char *)strstr(link_info, "lines=")) != NULL) { /* * Terminate prev string here. */ *cp = '\0'; /* * Number of characters in "lines=". */ cp += 6; lines_in_file = atoi(cp); pages = lines_in_file/66; } /* * Determine the type. */ if (strstr(link_info, "LOCAL_FILE")) { type = TO_FILE; } else if (strstr(link_info, "TO_SCREEN")) { type = TO_SCREEN; } else if (strstr(link_info, "MAIL_FILE")) { type = MAIL; } else if (strstr(link_info, "PRINTER")) { type = PRINTER; if ((cp = (char *)strstr(link_info, "number=")) != NULL) { /* number of characters in "number=" */ cp += 7; printer_number = atoi(cp); } if ((cp = (char *)strstr(link_info, "pagelen=")) != NULL) { /* number of characters in "pagelen=" */ cp += 8; pagelen = atoi(cp); } else { /* default to 66 lines */ pagelen = 66; } } /* * Set up the sug_filenames recall buffer. */ FnameTotal = (sug_filenames ? HTList_count(sug_filenames) : 0); recall = ((FnameTotal >= 1) ? RECALL : NORECALL); FnameNum = FnameTotal; 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()) && (len = strlen(filename)) > 4) { len -= 5; if (!strcasecomp((filename + len), ".html")) { filename[len] = '\0'; strcat(filename, ".txt"); } } if (lynx_save_space && *lynx_save_space) {

# These are supported funding model platforms

github: # Replace with up to 4 GitHub Sponsors-enabled usernames e.g., [user1, user2]
patreon: jubalh
open_collective: # Replace with a single Open Collective username
ko_fi: # Replace with a single Ko-fi username
tidelift: # Replace with a single Tidelift platform-name/package-name e.g., npm/babel
community_bridge: # Replace with a single Community Bridge project-name e.g., cloud-foundry
liberapay: # Replace with a single Liberapay username
issuehunt: # Replace with a single IssueHunt username
otechie: # Replace with a single Otechie username
custom: # Replace with a single custom sponsorship URL

name); sprintf(buffer, "%s/subject=\"%s\" %s %s", SYSTEM_MAIL, sug_filename, tempfile, user_response); stop_curses(); printf(MAILING_FILE); system(buffer); sleep(MessageSecs); start_curses(); #else /* Unix: */ #ifdef MMDF sprintf(buffer, "%s -mlruxto,cc*", SYSTEM_MAIL); #else sprintf(buffer, "%s -t -oi", SYSTEM_MAIL); #endif /* MMDF */ if ((outfile_fp = popen(buffer, "w")) == NULL) { _statusline(MAIL_REQUEST_FAILED); sleep(AlertSecs); break; } if (HTisDocumentSource()) { /* * Add Content-Type, Content-Location, and * Content-Base headers for HTML source. - FM * Also add Mime-Version header. - HM */ fprintf(outfile_fp, "Mime-Version: 1.0\n"); fprintf(outfile_fp, "Content-Type: text/html"); if (HTLoadedDocumentCharset() != NULL) { fprintf(outfile_fp, "; charset=%s\n", HTLoadedDocumentCharset()); } else { fprintf(outfile_fp, "\n"); } fprintf(outfile_fp, "Content-Location: %s\n", newdoc->address); fprintf(outfile_fp, "Content-Base: %s\n", newdoc->address); } else { /* * Add an X-URL header for rendered HTML or * plain text. - FM */ fprintf(outfile_fp, "X-URL: %s\n", newdoc->address); } fprintf(outfile_fp, "To: %s\nSubject:%s\n\n", user_response, sug_filename); if (HTisDocumentSource()) { /* * Added the document's URL 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, "\n\n", newdoc->address); } print_wwwfile_to_fd(outfile_fp, 0); if (keypad_mode) printlist(outfile_fp, FALSE); pclose(outfile_fp); #endif /* VMS */ 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; _statusline(PRINT_REQUEST_CANCELLED); sleep(InfoSecs); break; } #endif /* VMS */ if (c == RTARROW || c == 'y' || c== 'Y' || c == '\n' || c == '\r') { addstr(" Ok..."); } else { _statusline(PRINT_REQUEST_CANCELLED); sleep(InfoSecs); break; } } _statusline(PRESS_RETURN_TO_BEGIN); *filename = '\0'; if (LYgetstr(filename, VISIBLE, sizeof(filename), NORECALL) < 0) { _statusline(PRINT_REQUEST_CANCELLED); sleep(InfoSecs); break; } outfile_fp = stdout; stop_curses(); #ifndef VMS signal(SIGINT, SIG_IGN); #endif /* !VMS */ if (HTisDocumentSource()) { /* * Added the document's URL 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, "\n\n", newdoc->address); } 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 */ fprintf(stdout,"\n\n%s", PRESS_RETURN_TO_FINISH); fflush(stdout); /* refresh to screen */ LYgetch(); /* grab some user input to pause */ #ifdef VMS HadVMSInterrupt = FALSE; #endif /* VMS */ start_curses(); 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; _statusline(PRINT_REQUEST_CANCELLED); sleep(InfoSecs); break; } #endif /* VMS */ if (c == RTARROW || c == 'y' || c== 'Y' || c == '\n' || c == '\r') { addstr(" Ok..."); } else { _statusline(PRINT_REQUEST_CANCELLED); sleep(InfoSecs); break; } } if (first) { tempname(tempfile, NEW_FILE); first = FALSE; } else { remove(tempfile); /* Remove previous tempfile. */ } if (((cp = strrchr(tempfile, '.')) != NULL) && #ifdef VMS NULL == strchr(cp, ']') && #endif /* VMS */ NULL == strchr(cp, '/')) { if (HTisDocumentSource() && strcasecomp(cp, ".html")) { *cp = '\0'; strcat(tempfile, ".html"); } else if (!HTisDocumentSource() && strcasecomp(cp, ".txt")) { *cp = '\0'; strcat(tempfile, ".txt"); } } if ((outfile_fp = fopen(tempfile, "w")) == NULL) { HTAlert(FILE_ALLOC_FAILED); break; } if (HTisDocumentSource()) { /* * Added the document's URL 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, "\n\n", newdoc->address); } print_wwwfile_to_fd(outfile_fp, 0); if (keypad_mode) printlist(outfile_fp, FALSE); fclose(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. */ char *first_s = strstr(cur_printer->command, "%s"); if (first_s && strstr(first_s+1, "%s")) { _statusline(FILENAME_PROMPT); again: strcpy(filename, sug_filename); change_sug_filename(filename); if ((len = strlen(filename)) > 4) { len -= 5; if (!strcasecomp((filename + len), ".html")) { filename[len] = '\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. */ _statusline(PRINT_REQUEST_CANCELLED); sleep(InfoSecs); break; } if (no_dotfiles || !show_dotfiles) { if (*filename == '.' || #ifdef VMS ((cp = strrchr(filename, ':')) && *(cp+1) == '.') || ((cp = strrchr(filename, ']')) && *(cp+1) == '.') || #endif /* VMS */ ((cp = strrchr(filename, '/')) && *(cp+1) == '.')) { HTAlert(FILENAME_CANNOT_BE_DOT); _statusline(NEW_FILENAME_PROMPT); FirstRecall = TRUE; FnameNum = FnameTotal; goto again; } } HTAddSugFilename(filename); } #ifdef VMS sprintf(buffer, cur_printer->command, tempfile, filename); #else /* Unix: */ /* * Prevent spoofing of the shell. */ cp = quote_pathname(filename); sprintf(buffer, cur_printer->command, tempfile, cp); FREE(cp); #endif /* !VMS */ } 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(); if (TRACE) fprintf(stderr, "command: %s\n", buffer); printf(PRINTING_FILE); system(buffer); fflush(stdout); #ifndef VMS signal(SIGINT, cleanup_sig); #endif /* !VMS */ sleep(MessageSecs); start_curses(); /* don't remove(tempfile); */ } /* end switch */ FREE(link_info); FREE(sug_filename); return(NORMAL); } #ifdef VMS PRIVATE int remove_quotes ARGS1(char *,string) { int i; for(i=0;string[i]!='\0';i++) if(string[i]=='"') string[i]=' '; else if(string[i]=='&') string[i]=' '; else if(string[i]=='|') string[i]=' '; return(0); } #endif /* VMS */ /* * print_options writes out the current printer choices to a file * so that the user can select printers in the same way that * they select all other links * printer links look like * LYNXPRINT://LOCAL_FILE/lines=# print to a local file * LYNXPRINT://TO_SCREEN/lines=# print to the screen * LYNXPRINT://MAIL_FILE/lines=# mail the file * LYNXPRINT://PRINTER/lines=#/number=# print to printer number # */ PUBLIC int print_options ARGS2(char **,newfile, int,lines_in_file) { static char tempfile[256]; static BOOLEAN first = TRUE; char *print_filename = NULL; char buffer[LINESIZE]; int count; int pages; FILE *fp0; lynx_printer_item_type *cur_printer; pages = lines_in_file/66 + 1; if (first) { tempname(tempfile,NEW_FILE); first = FALSE; #ifdef VMS } else { remove(tempfile); /* Remove duplicates on VMS. */ #endif /* !VMS */ } if ((fp0 = fopen(tempfile, "w")) == NULL) { HTAlert(UNABLE_TO_OPEN_PRINTOP_FILE); return(-1); } #ifdef VMS StrAllocCopy(print_filename, "file://localhost/"); #else StrAllocCopy(print_filename, "file://localhost"); #endif /* VMS */ StrAllocCat(print_filename, tempfile); StrAllocCopy(*newfile, print_filename); LYforce_no_cache = TRUE; fprintf(fp0, "\n%s\n\n\n", PRINT_OPTIONS_TITLE); fprintf(fp0,"

Printing Options (%s Version %s)

\n", LYNX_NAME, LYNX_VERSION); pages = (lines_in_file+65)/66; sprintf(buffer, "There are %d lines, or approximately %d page%s, to print.
\n", lines_in_file, pages, (pages > 1 ? "s" : "")); fputs(buffer,fp0); if (no_print || child_lynx || no_mail) fputs("Some print functions have been disabled!!!
\n", fp0); fputs("You have the following print choices.
\n", fp0); fputs("Please select one:
\n

\n", fp0);

    if (child_lynx == FALSE && no_print == FALSE)
        fprintf(fp0,
   "   Save to a local file\n",
	 	lines_in_file);
    if (child_lynx == FALSE && no_mail == FALSE)
         fprintf(fp0,
   "   Mail the file\n",
		lines_in_file);
    fprintf(fp0, 
   "   Print to the screen\n",
	 	lines_in_file);

    for (count = 0, cur_printer = printers; cur_printer != NULL; 
        cur_printer = cur_printer->next, count++)
    if (no_print == FALSE || cur_printer->always_enabled) {
        fprintf(fp0,
   "   ",
                count, cur_printer->pagelen, lines_in_file);
	fprintf(fp0, (cur_printer->name ? 
		      cur_printer->name : "No Name Given"));
	fprintf(fp0, "\n");
    }
    fprintf(fp0, "

\n\n"); fclose(fp0); LYforce_no_cache = TRUE; return(0); }