OpenBSD-4.6/gnu/usr.bin/lynx/src/LYPrint.c
#include <HTUtils.h>
#include <HTAccess.h>
#include <HTList.h>
#include <HTAlert.h>
#include <HTFile.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 <LYList.h>
#include <LYCharSets.h> /* To get current charset for mail header. */
#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
*/
/* it parses an incoming link that looks like
*
* LYNXPRINT://LOCAL_FILE/lines=##
* LYNXPRINT://MAIL_FILE/lines=##
* LYNXPRINT://TO_SCREEN/lines=##
* LYNXPRINT://LPANSI/lines=##
* LYNXPRINT://PRINTER/lines=##/number=#
*/
#define TO_FILE 1
#define TO_SCREEN 2
/*
* "lpansi.c"
* Original author: Gary Day (gday@comp.uark.edu), 11/30/93
* Current version: 2.1 by Noel Hunter (noel@wfu.edu), 10/20/94
*
* Basic structure based on print -- format files for printing from
* _Practical_C_Programming by Steve Oualline, O'Reilly & Associates
*
* adapted from the README for lpansi.c v2.1, dated 10/20/1994:
* Print to ANSI printer on local terminal
* The VT100 standard defines printer on and off escape sequences,
* esc[5i is printer on, and esc[4i is printer off.
*
* incorporate the idea of "lpansi" directly into LYPrint.c - HN
*/
#define LPANSI 3
#define MAIL 4
#define PRINTER 5
#if USE_VMS_MAILER
static int remove_quotes(char *string);
#endif /* USE_VMS_MAILER */
static char *subject_translate8bit(char *source);
#define LYNX_PRINT_TITLE 0
#define LYNX_PRINT_URL 1
#define LYNX_PRINT_DATE 2
#define LYNX_PRINT_LASTMOD 3
#define MAX_PUTENV 4
static void set_environ(int name,
const char *value,
const char *no_value)
{
static const char *names[MAX_PUTENV] =
{
"LYNX_PRINT_TITLE",
"LYNX_PRINT_URL",
"LYNX_PRINT_DATE",
"LYNX_PRINT_LASTMOD",
};
static char *pointers[MAX_PUTENV];
char *envbuffer = 0;
#ifdef VMS
#define SET_ENVIRON(name, value, no_value) set_environ(name, value, no_value)
char temp[80];
StrAllocCopy(envbuffer, value);
if (isEmpty(envbuffer))
StrAllocCopy(envbuffer, no_value);
Define_VMSLogical(strcpy(temp, names[name]), envbuffer);
FREE(envbuffer);
#else
#define SET_ENVIRON(name, value, no_value) set_environ(name, value, "")
/*
* Once we've given a string to 'putenv()', we must not free it until we
* give it a string to replace it.
*/
StrAllocCopy(envbuffer, names[name]);
StrAllocCat(envbuffer, "=");
StrAllocCat(envbuffer, value ? value : no_value);
putenv(envbuffer);
FREE(pointers[name]);
pointers[name] = envbuffer;
#endif
}
static char *suggested_filename(DocInfo *newdoc)
{
char *sug_filename = 0;
int rootlen;
/*
* 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 suffix for compressed-files, if present.
*/
if (HTCompressFileType(sug_filename, ".", &rootlen) != cftNone)
sug_filename[rootlen] = '\0';
CTRACE((tfp, "suggest %s\n", sug_filename));
return sug_filename;
}
static void SetupFilename(char *filename,
const char *sug_filename)
{
HTFormat format;
HTAtom *encoding;
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 - (int) (sizeof(TEXT_SUFFIX) + 1))) {
format = HTFileFormat(filename, &encoding, NULL);
CTRACE((tfp, "... format %s\n", format->name));
if (!strcasecomp(format->name, "text/html") ||
!IsUnityEnc(encoding)) {
strcpy(cp, TEXT_SUFFIX);
}
}
CTRACE((tfp, "... result %s\n", filename));
}
#define FN_INIT 0
#define FN_READ 1
#define FN_DONE 2
#define FN_QUIT 3
#define PRINT_FLAG 0
#define GENERIC_FLAG 1
static int RecallFilename(char *filename,
BOOLEAN *first,
int *now,
int *total,
int flag)
{
int ch;
char *cp;
RecallType 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_URL : 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;
}
}
/*
* Operation cancelled.
*/
if (flag == PRINT_FLAG)
HTInfoMsg(SAVE_REQUEST_CANCELLED);
else if (flag == GENERIC_FLAG)
return FN_QUIT;
return FN_QUIT;
}
return FN_DONE;
}
static BOOLEAN confirm_by_pages(const 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);
c = HTConfirmDefault(msg, YES);
FREE(msg);
if (c == YES) {
LYaddstr(" Ok...");
} else {
HTInfoMsg(PRINT_REQUEST_CANCELLED);
return FALSE;
}
}
return TRUE;
}
static void send_file_to_file(DocInfo *newdoc, char *content_base,
char *sug_filename)
{
BOOLEAN FirstRecall = TRUE;
BOOLEAN use_cte;
const char *disp_charset;
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, PRINT_FLAG)) {
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));
#ifdef 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());
if (HText_getLastModified() != NULL
&& strcmp(HText_getLastModified(), HText_getDate())
&& strcmp(HText_getLastModified(),
"Thu, 01 Jan 1970 00:00:01 GMT")) {
fprintf(outfile_fp,
"<!-- Last-Modified: %s -->\n", HText_getLastModified());
}
}
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, FALSE, FALSE); /* FILE */
if (keypad_mode)
printlist(outfile_fp, FALSE);
#ifdef HAVE_POPEN
if (LYIsPipeCommand(buffer))
pclose(outfile_fp);
else
#endif
LYCloseOutput(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;
}
static void send_file_to_mail(DocInfo *newdoc, char *content_base,
char *content_location)
{
static BOOLEAN first_mail_preparsed = TRUE;
#if USE_VMS_MAILER
BOOLEAN isPMDF = LYMailPMDF();
FILE *hfd;
char hdrfile[LY_MAXPATH];
#endif
BOOL use_mime;
#if !CAN_PIPE_TO_MAILER
char my_temp[LY_MAXPATH];
#endif
BOOL use_cte;
BOOL use_type;
const char *disp_charset;
FILE *outfile_fp;
char *buffer = NULL;
char *subject = NULL;
char user_response[LINESIZE];
if (!LYSystemMail())
return;
if (LYPreparsedSource && first_mail_preparsed &&
HTisDocumentSource()) {
if (HTConfirmDefault(CONFIRM_MAIL_SOURCE_PREPARSED, NO) == YES) {
LYaddstr(" 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),
RECALL_MAIL) < 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 = (BOOL) (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);
}
#if USE_VMS_MAILER
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
: TEXT_SUFFIX,
"w");
if (outfile_fp == NULL) {
CannotPrint(UNABLE_TO_OPEN_TEMPFILE);
}
if (isPMDF) {
if ((hfd = LYOpenTemp(hdrfile, TEXT_SUFFIX, "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);
/*
* For PMDF, put the subject in the header file and close it. - FM
*/
fprintf(hfd, "Subject: %.70s\n\n", subject);
LYCloseTempFP(hfd);
}
/*
* 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, TRUE, FALSE); /* MAIL */
if (keypad_mode)
printlist(outfile_fp, FALSE);
LYCloseTempFP(outfile_fp);
buffer = NULL;
if (isPMDF) {
/*
* 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();
SetOutputMode(O_TEXT);
printf(MAILING_FILE);
LYSystem(buffer);
LYSleepAlert();
start_curses();
SetOutputMode(O_BINARY);
if (isPMDF)
LYRemoveTemp(hdrfile);
LYRemoveTemp(my_temp);
#else /* !VMS (Unix or DOS) */
#if CAN_PIPE_TO_MAILER
outfile_fp = LYPipeToMailer();
#else
outfile_fp = LYOpenTemp(my_temp, TEXT_SUFFIX, "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 = (BOOL) (disp_charset || HTisDocumentSource());
use_mime = (BOOL) (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, TRUE, FALSE); /* MAIL */
if (keypad_mode)
printlist(outfile_fp, FALSE);
#if CAN_PIPE_TO_MAILER
pclose(outfile_fp);
#else
LYCloseOutput(outfile_fp);
LYSendMailFile(user_response,
my_temp,
subject,
"",
"");
LYRemoveTemp(my_temp); /* Delete the tmpfile. */
#endif /* CAN_PIPE_TO_MAILER */
#endif /* USE_VMS_MAILER */
done: /* send_file_to_mail() */
FREE(buffer);
FREE(subject);
return;
}
static void send_file_to_printer(DocInfo *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_list_item_type *cur_printer;
outfile_fp = LYOpenTemp(my_temp,
(HTisDocumentSource())
? HTML_SUFFIX
: TEXT_SUFFIX,
"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, FALSE, FALSE); /* PRINTER */
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, PRINT_FLAG)) {
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
* on VMS. - FM
*/
if (LYIsNullDevice(my_file)) {
CancelPrint(PRINT_REQUEST_CANCELLED);
}
HTAddSugFilename(my_file);
}
#ifdef SH_EX /* 1999/01/04 (Mon) 09:37:03 */
else {
my_file[0] = '\0';
}
HTAddParam(&the_command, cur_printer->command, 1, my_temp);
if (my_file[0]) {
HTAddParam(&the_command, cur_printer->command, 2, my_file);
HTEndParam(&the_command, cur_printer->command, 3);
} else {
HTEndParam(&the_command, cur_printer->command, 2);
}
#else
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);
#endif
/*
* Move the cursor to the top of the screen so that output from system'd
* commands don't scroll up the screen.
*/
LYmove(1, 1);
stop_curses();
CTRACE((tfp, "command: %s\n", the_command));
SetOutputMode(O_TEXT);
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 */
#ifdef SH_EX
fprintf(stdout, gettext(" Print job complete.\n"));
fflush(stdout);
#endif
SetOutputMode(O_BINARY);
LYSleepMsg();
start_curses();
done: /* send_file_to_printer() */
return;
}
static void send_file_to_screen(DocInfo *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();
SetOutputMode(O_TEXT);
#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, FALSE, FALSE); /* SCREEN */
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");
fflush(stdout); /* refresh to screen */
Lpansi = FALSE;
} else {
fprintf(stdout, "\n\n%s", PRESS_RETURN_TO_FINISH);
fflush(stdout); /* refresh to screen */
(void) LYgetch(); /* grab some user input to pause */
#ifdef VMS
HadVMSInterrupt = FALSE;
#endif /* VMS */
}
#ifdef SH_EX
fprintf(stdout, "\n");
#endif
SetOutputMode(O_BINARY);
start_curses();
done: /* send_file_to_screen() */
return;
}
int printfile(DocInfo *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.
*/
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;
WWWDoc.safe = newdoc->safe;
if (!HTLoadAbsolute(&WWWDoc))
return (NOT_FOUND);
/*
* If we have an explicit content-base, we may use it even if not in source
* mode. - kw
*/
if (HText_getContentBase()) {
StrAllocCopy(content_base, HText_getContentBase());
LYRemoveBlanks(content_base);
if (isEmpty(content_base)) {
FREE(content_base);
}
}
/*
* If document is source, load the content_base and content_location
* strings. - FM
*/
if (HTisDocumentSource()) {
if (HText_getContentLocation()) {
StrAllocCopy(content_location, HText_getContentLocation());
LYRemoveBlanks(content_location);
if (isEmpty(content_location)) {
FREE(content_location);
}
}
if (!content_base) {
if ((content_location) && is_url(content_location)) {
StrAllocCopy(content_base, content_location);
} else {
StrAllocCopy(content_base, newdoc->address);
}
}
if (!content_location) {
StrAllocCopy(content_location, newdoc->address);
}
}
sug_filename = suggested_filename(newdoc);
/*
* Get the number of lines in the file.
*/
if ((cp = strstr(link_info, "lines=")) != NULL) {
/*
* Terminate prev string here.
*/
*cp = '\0';
/*
* Number of characters in "lines=".
*/
cp += 6;
lines_in_file = atoi(cp);
}
/*
* 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, "LPANSI")) {
Lpansi = TRUE;
type = TO_SCREEN;
} else if (strstr(link_info, "MAIL_FILE")) {
type = MAIL;
} else if (strstr(link_info, "PRINTER")) {
type = PRINTER;
if ((cp = strstr(link_info, "number=")) != NULL) {
/* number of characters in "number=" */
cp += 7;
printer_number = atoi(cp);
}
if ((cp = strstr(link_info, "pagelen=")) != NULL) {
/* number of characters in "pagelen=" */
cp += 8;
pagelen = atoi(cp);
} else {
/* default to 66 lines */
pagelen = 66;
}
}
/*
* Act on the request. - FM
*/
switch (type) {
case TO_FILE:
send_file_to_file(newdoc, content_base, sug_filename);
break;
case MAIL:
send_file_to_mail(newdoc, content_base, content_location);
break;
case TO_SCREEN:
if (confirm_by_pages(CONFIRM_LONG_SCREEN_PRINT, lines_in_file, LYlines))
send_file_to_screen(newdoc, content_base, Lpansi);
break;
case PRINTER:
if (confirm_by_pages(CONFIRM_LONG_PAGE_PRINT, lines_in_file, pagelen))
send_file_to_printer(newdoc, content_base, sug_filename, printer_number);
break;
} /* end switch */
FREE(link_info);
FREE(sug_filename);
FREE(content_base);
FREE(content_location);
return (NORMAL);
}
#if USE_VMS_MAILER
static int remove_quotes(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 /* USE_VMS_MAILER */
/*
* Mail subject may have 8-bit characters and they are in display charset.
* There is no stable practice for 8-bit subject encodings: MIME defines
* "quoted-printable" which holds charset info but most mailers still don't
* support it. On the other hand many mailers send open 8-bit subjects without
* charset info and use local assumption for certain countries. Besides that,
* obsolete SMTP software is not 8bit clean but still in use, it strips the
* characters in 128-160 range from subjects which may be a fault outside
* iso-8859-XX.
*
* We translate subject to "outgoing_mail_charset" (defined in lynx.cfg) it may
* correspond to US-ASCII as the safest value or any other lynx character
* handler, -1 for no translation (so display charset).
*
* Always returns a new allocated string which has to be freed.
*/
#include <LYCharUtils.h>
static char *subject_translate8bit(char *source)
{
char *target = NULL;
int charset_in, charset_out;
int i = outgoing_mail_charset; /* from lynx.cfg, -1 by default */
StrAllocCopy(target, source);
if (i < 0
|| i == current_char_set
|| LYCharSet_UC[current_char_set].enc == UCT_ENC_CJK
|| LYCharSet_UC[i].enc == UCT_ENC_CJK) {
return (target); /* OK */
} else {
charset_out = i;
charset_in = current_char_set;
}
LYUCTranslateBackHeaderText(&target, charset_in, charset_out, YES);
return (target);
}
/*
* 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://LPANSI/lines=# print to the local terminal
* LYNXPRINT://MAIL_FILE/lines=# mail the file
* LYNXPRINT://PRINTER/lines=#/number=# print to printer number #
*/
int print_options(char **newfile,
const char *printed_url,
int lines_in_file)
{
static char my_temp[LY_MAXPATH] = "\0";
char *buffer = 0;
int count;
int pages;
FILE *fp0;
lynx_list_item_type *cur_printer;
if ((fp0 = InternalPageFP(my_temp, TRUE)) == 0)
return (-1);
LYLocalFileToURL(newfile, my_temp);
BeginInternalPage(fp0, PRINT_OPTIONS_TITLE, PRINT_OPTIONS_HELP);
fprintf(fp0, "<pre>\n");
/* pages = lines_in_file/66 + 1; */
pages = (lines_in_file + 65) / 66;
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!"));
fprintf(fp0, "\n%s\n",
(user_mode == NOVICE_MODE)
? gettext("Standard print options:")
: gettext("Print options:"));
if (child_lynx == FALSE && no_disk_save == FALSE && no_print == FALSE) {
fprintf(fp0,
" <a href=\"%s//LOCAL_FILE/lines=%d\">%s</a>\n",
STR_LYNXPRINT,
lines_in_file,
gettext("Save to a local file"));
} else {
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=\"%s//MAIL_FILE/lines=%d\">%s</a>\n",
STR_LYNXPRINT,
lines_in_file,
gettext("Mail the file"));
#if defined(UNIX) || defined(VMS)
fprintf(fp0,
" <a href=\"%s//TO_SCREEN/lines=%d\">%s</a>\n",
STR_LYNXPRINT,
lines_in_file,
gettext("Print to the screen"));
fprintf(fp0,
" <a href=\"%s//LPANSI/lines=%d\">%s</a>\n",
STR_LYNXPRINT,
lines_in_file,
gettext("Print out on a printer attached to your vt100 terminal"));
#endif
if (user_mode == NOVICE_MODE)
fprintf(fp0, "\n%s\n", gettext("Local additions:"));
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,
" <a href=\"%s//PRINTER/number=%d/pagelen=%d/lines=%d\">",
STR_LYNXPRINT,
count, cur_printer->pagelen, lines_in_file);
fprintf(fp0, "%s", (cur_printer->name ?
cur_printer->name : "No Name Given"));
fprintf(fp0, "</a>\n");
}
fprintf(fp0, "</pre>\n");
EndInternalPage(fp0);
LYCloseTempFP(fp0);
LYforce_no_cache = TRUE;
return (0);
}
/*
* General purpose filename getter.
*
* Returns a pointer to an absolute filename string, if the input filename
* exists, and is readable. Returns NULL if the input was cancelled (^G, or CR
* on empty input).
*
* The pointer to the filename string needs to be free()'d by the caller (when
* non-NULL).
*
* --KED 02/21/99
*/
char *GetFileName(void)
{
struct stat stat_info;
char fbuf[LY_MAXPATH];
char tbuf[LY_MAXPATH];
char *fn;
BOOLEAN FirstRecall = TRUE;
int FnameNum = -1;
int FnameTotal;
_statusline(FILENAME_PROMPT);
retry:
/*
* No initial filename.
*/
SetupFilename(fbuf, "");
check_recall:
/*
* Go get a filename (it would be nice to do TAB == filename-completion as
* the name is entered, but we'll save doing that for another time.
*/
switch (RecallFilename(fbuf, &FirstRecall, &FnameNum,
&FnameTotal, GENERIC_FLAG)) {
case FN_INIT:
goto retry;
case FN_READ:
goto check_recall;
case FN_QUIT:
goto quit;
default:
break;
}
/*
* Add raw input form to list ... we may want to reuse/edit it on a
* subsequent call, etc.
*/
#ifdef VMS
if (0 == strncasecomp(fbuf, "sys$disk:", 9)) {
if (0 == strncmp((fbuf + 9), "[]", 2)) {
HTAddSugFilename(fbuf + 11);
} else {
HTAddSugFilename(fbuf + 9);
}
} else {
HTAddSugFilename(fbuf);
}
#else
HTAddSugFilename(fbuf);
#endif /* VMS */
/*
* Expand tilde's, make filename absolute, etc.
*/
if (!LYValidateFilename(tbuf, fbuf))
goto quit;
/*
* Check for file existence; readability.
*/
if ((stat(tbuf, &stat_info) < 0) ||
(!(S_ISREG(stat_info.st_mode)
#ifdef S_IFLNK
|| S_ISLNK(stat_info.st_mode)
#endif /* S_IFLNK */
))) {
HTInfoMsg(FILE_DOES_NOT_EXIST);
_statusline(FILE_DOES_NOT_EXIST_RE);
FirstRecall = TRUE;
FnameNum = FnameTotal;
goto retry;
}
if (!LYCanReadFile(tbuf)) {
HTInfoMsg(FILE_NOT_READABLE);
_statusline(FILE_NOT_READABLE_RE);
FirstRecall = TRUE;
FnameNum = FnameTotal;
goto retry;
}
/*
* We have a valid filename, and readable file. Return it to the caller.
*
* The returned pointer should be free()'d by the caller.
*
* [For some silly reason, if we use StrAllocCopy() here, we get an
* "invalid pointer" reported in the Lynx.leaks file (if compiled with
* --enable-find-leaks turned on. Dumb.]
*/
if ((fn = typecallocn(char, strlen(tbuf) + 1)) == NULL)
outofmem(__FILE__, "GetFileName");
return (strcpy(fn, tbuf));
quit:
/*
* The user cancelled the input (^G, or CR on empty input field).
*/
return (NULL);
}