/*
** mailmsg() sends a message to the owner of the file, if one is defined,
** telling of errors (i.e., link not available).
*/
PUBLIC void mailmsg ARGS4(
int, cur,
char *, owner_address,
char *, filename,
char *, linkname)
{
FILE *fd, *fp;
char *address = NULL;
char *searchpart = NULL;
char *cmd = NULL, *cp;
#ifdef ALERTMAIL
BOOLEAN skip_parsing = FALSE;
#endif
#if !CAN_PIPE_TO_MAILER
char *ccaddr;
char subject[128];
char my_tmpfile[LY_MAXPATH];
#endif
#if USE_VMS_MAILER
BOOLEAN isPMDF = LYMailPMDF();
char hdrfile[LY_MAXPATH];
char *command = NULL;
CTRACE((tfp, "mailmsg(%d, \"%s\", \"%s\", \"%s\")\n", cur,
NONNULL(owner_address),
NONNULL(filename),
NONNULL(linkname)));
#endif /* VMS */
if (!LYSystemMail())
return;
#ifdef ALERTMAIL
if (owner_address == NULL) {
owner_address = ALERTMAIL;
skip_parsing = TRUE;
}
#endif
if (isEmpty(owner_address))
return;
if ((cp = (char *)strchr(owner_address,'\n')) != NULL) {
#ifdef ALERTMAIL
if (skip_parsing)
return; /* invalidly defined - ignore - kw */
#else
*cp = '\0';
#endif
}
if (!strncasecomp(owner_address, "lynx-dev@", 9)) {
/*
* Silently refuse sending bad link messages to lynx-dev.
*/
return;
}
StrAllocCopy(address, owner_address);
#ifdef ALERTMAIL
/*
* If we are using a fixed address given by ALERTMAIL, it is
* supposed to already be in usable form, without URL-isms like
* ?-searchpart and URL-escaping. So skip some code. - kw
*/
if (!skip_parsing)
#endif
{
/*
* Check for a ?searchpart. - FM
*/
if ((cp = strchr(address, '?')) != NULL) {
StrAllocCopy(searchpart, cp);
*cp = '\0';
cp = (searchpart + 1);
if (*cp != '\0') {
/*
* Seek and handle to=address(es) fields.
* Appends to address. We ignore any other
* headers in the ?searchpart. - FM
*/
extract_field(&address, searchpart, "to=");
}
}
convert_explorer(address);
/*
* Unescape the address field. - FM
*/
SafeHTUnEscape(address);
}
if (trim_comma(address)) {
FREE(address);
CTRACE((tfp, "mailmsg: No address in '%s'.\n", owner_address));
return;
}
#if CAN_PIPE_TO_MAILER
if ((fd = LYPipeToMailer()) == 0) {
FREE(address);
CTRACE((tfp, "mailmsg: '%s' failed.\n", cmd));
return;
}
fprintf(fd, "To: %s\n", address);
fprintf(fd, "Subject: Lynx Error in %s\n", filename);
if (!isEmpty(personal_mail_address)) {
fprintf(fd, "Cc: %s\n", personal_mail_address);
}
fprintf(fd, "X-URL: %s\n", filename);
fprintf(fd, "X-Mailer: %s, Version %s\n\n", LYNX_NAME, LYNX_VERSION);
#else
if ((fd = LYOpenTemp(my_tmpfile, ".txt", "w")) == NULL) {
CTRACE((tfp, "mailmsg: Could not fopen '%s'.\n", my_tmpfile));
FREE(address);
return;
}
sprintf(subject, "Lynx Error in %.56s", filename);
ccaddr = personal_mail_address;
#if USE_VMS_MAILER
if (isPMDF) {
FILE *hfd;
if ((hfd = LYOpenTemp(hdrfile, ".txt", "w")) == NULL) {
CTRACE((tfp, "mailmsg: Could not fopen '%s'.\n", hdrfile));
FREE(address);
return;
}
if (!isEmpty(personal_mail_address)) {
fprintf(fd, "Cc: %s\n", personal_mail_address);
}
fprintf(fd, "X-URL: %s\n", filename);
fprintf(fd, "X-Mailer: %s, Version %s\n\n", LYNX_NAME, LYNX_VERSION);
/*
* For PMDF, put the subject in the
* header file and close it. - FM
*/
fprintf(hfd, "Subject: Lynx Error in %.56s\n\n", filename);
LYCloseTempFP(hfd);
}
#endif /* USE_VMS_MAILER */
#endif /* CAN_PIPE_TO_MAILER */
fprintf(fd, gettext("The link %s :?: %s \n"),
links[cur].lname, links[cur].target);
fprintf(fd, gettext("called \"%s\"\n"), LYGetHiliteStr(cur, 0));
fprintf(fd, gettext("in the file \"%s\" called \"%s\"\n"), filename, linkname);
fprintf(fd, "%s\n\n", gettext("was requested but was not available."));
fprintf(fd, "%s\n\n", gettext("Thought you might want to know."));
fprintf(fd, "%s\n", gettext("This message was automatically generated by"));
fprintf(fd, "%s %s", LYNX_NAME, LYNX_VERSION);
if ((LynxSigFile != NULL) &&
(fp = fopen(LynxSigFile, TXT_R)) != NULL) {
fputs("-- \n", fd);
while (LYSafeGets(&cmd, fp) != NULL)
fputs(cmd, fd);
LYCloseInput(fp);
}
#if CAN_PIPE_TO_MAILER
pclose(fd);
#else
LYCloseTempFP(fd);
#if USE_VMS_MAILER
if (isPMDF) {
/*
* Now set up the command. - FM
*/
HTSprintf0(&command,
"%s %s %s,%s ",
system_mail,
system_mail_flags,
hdrfile,
my_tmpfile);
} else {
/*
* For "generic" VMS MAIL, include the
* subject in the command. - FM
*/
HTSprintf0(&command,
"%s %s/self/subject=\"Lynx Error in %.56s\" %s ",
system_mail,
system_mail_flags,
filename,
my_tmpfile);
}
vms_append_addrs(&command, address, "");
LYSystem(command); /* VMS */
FREE(command);
FREE(cmd);
LYRemoveTemp(my_tmpfile);
if (isPMDF) {
LYRemoveTemp(hdrfile);
}
#else /* DOS */
LYSendMailFile (
address,
my_tmpfile,
subject,
ccaddr,
"");
LYRemoveTemp(my_tmpfile);
#endif /* USE_VMS_MAILER */
#endif /* CAN_PIPE_TO_MAILER */
if (traversal) {
FILE *ofp;
if ((ofp = LYAppendToTxtFile(TRAVERSE_ERRORS)) == NULL) {
if ((ofp = LYNewTxtFile(TRAVERSE_ERRORS)) == NULL) {
perror(NOOPEN_TRAV_ERR_FILE);
exit_immediately(EXIT_FAILURE);
}
}
fprintf(ofp, "%s\t%s \tin %s\n",
links[cur].lname, links[cur].target, filename);
LYCloseOutput(ofp);
}
FREE(address);
return;
}
/*
* LYShowInfo prints a page of info about the current file and the link that
* the cursor is on.
*/
int LYShowInfo(DocInfo *doc,
DocInfo *newdoc,
char *owner_address)
{
static char tempfile[LY_MAXPATH] = "\0";
int url_type;
FILE *fp0;
char *Title = NULL;
const char *cp;
char *temp = NULL;
char *buffer = NULL;
BOOLEAN LYInfoAdvanced = (BOOL) (user_mode == ADVANCED_MODE);
#ifdef DIRED_SUPPORT
struct stat dir_info;
const char *name;
#endif /* DIRED_SUPPORT */
if (LYReuseTempfiles) {
fp0 = LYOpenTempRewrite(tempfile, HTML_SUFFIX, "w");
} else {
(void) LYRemoveTemp(tempfile);
fp0 = LYOpenTemp(tempfile, HTML_SUFFIX, "w");
}
if (fp0 == NULL) {
HTAlert(CANNOT_OPEN_TEMP);
return (-1);
}
/*
* Point the address pointer at this Url
*/
LYLocalFileToURL(&newdoc->address, tempfile);
if (nlinks > 0 && links[doc->link].lname != NULL &&
(url_type = is_url(links[doc->link].lname)) != 0 &&
(url_type == LYNXEXEC_URL_TYPE ||
url_type == LYNXPROG_URL_TYPE)) {
char *last_slash = strrchr(links[doc->link].lname, '/');
int next_to_last = (int) strlen(links[doc->link].lname) - 1;
if ((last_slash - links[doc->link].lname) == next_to_last) {
links[doc->link].lname[next_to_last] = '\0';
}
}
label_columns = 9;
WriteInternalTitle(fp0, SHOWINFO_TITLE);
fprintf(fp0, "<h1>%s %s (%s) (<a href=\"%s\">%s</a>)",
LYNX_NAME, LYNX_VERSION,
LYVersionDate(),
(LYVersionIsRelease()? LYNX_WWW_HOME : LYNX_WWW_DIST),
LYVersionStatus());
fprintf(fp0, "</h1>\n"); /* don't forget to close <h1> */
#ifdef DIRED_SUPPORT
if (lynx_edit_mode && nlinks > 0) {
BEGIN_DL(gettext("Directory that you are currently viewing"));
temp = HTfullURL_toFile(doc->address);
ADD_SS(gettext("Name:"), temp);
FREE(temp);
dt_URL(fp0, doc->address);
END_DL();
temp = HTfullURL_toFile(links[doc->link].lname);
if (lstat(temp, &dir_info) == -1) {
CTRACE((tfp, "lstat(%s) failed, errno=%d\n", temp, errno));
HTAlert(CURRENT_LINK_STATUS_FAILED);
} else {
char modes[80];
label_columns = 16;
if (S_ISDIR(dir_info.st_mode)) {
BEGIN_DL(gettext("Directory that you have currently selected"));
} else if (S_ISREG(dir_info.st_mode)) {
BEGIN_DL(gettext("File that you have currently selected"));
#ifdef S_IFLNK
} else if (S_ISLNK(dir_info.st_mode)) {
BEGIN_DL(gettext("Symbolic link that you have currently selected"));
#endif
} else {
BEGIN_DL(gettext("Item that you have currently selected"));
}
ADD_SS(gettext("Full name:"), temp);
#ifdef S_IFLNK
if (S_ISLNK(dir_info.st_mode)) {
char buf[MAX_LINE];
int buf_size;
size_t limit = sizeof(buf) - 1;
if ((buf_size = (int) readlink(temp, buf, limit)) != -1) {
if (buf_size > (int) limit)
buf_size = (int) limit;
buf[buf_size] = '\0';
} else {
sprintf(buf, "%.*s", (int) limit,
gettext("Unable to follow link"));
}
ADD_SS(gettext("Points to file:"), buf);
}
#endif
name = HTAA_UidToName((int) dir_info.st_uid);
if (*name)
ADD_SS(gettext("Name of owner:"), name);
name = HTAA_GidToName((int) dir_info.st_gid);
if (*name)
ADD_SS(gettext("Group name:"), name);
if (S_ISREG(dir_info.st_mode)) {
ADD_NN(gettext("File size:"),
(long) dir_info.st_size,
gettext("(bytes)"));
}
/*
* Include date and time information.
*/
ADD_SS(gettext("Creation date:"),
ctime(&dir_info.st_ctime));
ADD_SS(gettext("Last modified:"),
ctime(&dir_info.st_mtime));
ADD_SS(gettext("Last accessed:"),
ctime(&dir_info.st_atime));
END_DL();
label_columns = 9;
BEGIN_DL(gettext("Access Permissions"));
modes[0] = '\0';
modes[1] = '\0'; /* In case there are no permissions */
modes[2] = '\0';
if ((dir_info.st_mode & S_IRUSR))
strcat(modes, ", read");
if ((dir_info.st_mode & S_IWUSR))
strcat(modes, ", write");
if ((dir_info.st_mode & S_IXUSR)) {
if (S_ISDIR(dir_info.st_mode))
strcat(modes, ", search");
else {
strcat(modes, ", execute");
if ((dir_info.st_mode & S_ISUID))
strcat(modes, ", setuid");
}
}
ADD_SS(gettext("Owner:"), &modes[2]);
modes[0] = '\0';
modes[1] = '\0'; /* In case there are no permissions */
modes[2] = '\0';
if ((dir_info.st_mode & S_IRGRP))
strcat(modes, ", read");
if ((dir_info.st_mode & S_IWGRP))
strcat(modes, ", write");
if ((dir_info.st_mode & S_IXGRP)) {
if (S_ISDIR(dir_info.st_mode))
strcat(modes, ", search");
else {
strcat(modes, ", execute");
if ((dir_info.st_mode & S_ISGID))
strcat(modes, ", setgid");
}
}
ADD_SS(gettext("Group:"), &modes[2]);
modes[0] = '\0';
modes[1] = '\0'; /* In case there are no permissions */
modes[2] = '\0';
if ((dir_info.st_mode & S_IROTH))
strcat(modes, ", read");
if ((dir_info.st_mode & S_IWOTH))
strcat(modes, ", write");
if ((dir_info.st_mode & S_IXOTH)) {
if (S_ISDIR(dir_info.st_mode))
strcat(modes, ", search");
else {
strcat(modes, ", execute");
#ifdef S_ISVTX
if ((dir_info.st_mode & S_ISVTX))
strcat(modes, ", sticky");
#endif
}
}
ADD_SS(gettext("World:"), &modes[2]);
END_DL();
}
FREE(temp);
} else {
#endif /* DIRED_SUPPORT */
BEGIN_DL(gettext("File that you are currently viewing"));
LYformTitle(&Title, doc->title);
HTSprintf(&temp, "%s%s",
LYEntifyTitle(&buffer, Title),
((doc->isHEAD &&
!strstr(Title, " (HEAD)") &&
!strstr(Title, " - HEAD")) ? " (HEAD)" : ""));
ADD_SS(gettext("Linkname:"), temp);
FREE(temp);
dt_URL(fp0, doc->address);
if (HTLoadedDocumentCharset()) {
ADD_SS(gettext("Charset:"),
HTLoadedDocumentCharset());
} else {
LYUCcharset *p_in = HTAnchor_getUCInfoStage(HTMainAnchor,
UCT_STAGE_PARSER);
if (!p_in || isEmpty(p_in->MIMEname) ||
HTAnchor_getUCLYhndl(HTMainAnchor, UCT_STAGE_PARSER) < 0) {
p_in = HTAnchor_getUCInfoStage(HTMainAnchor, UCT_STAGE_MIME);
}
if (p_in && non_empty(p_in->MIMEname) &&
HTAnchor_getUCLYhndl(HTMainAnchor, UCT_STAGE_MIME) >= 0) {
HTSprintf(&temp, "%s %s",
LYEntifyTitle(&buffer, p_in->MIMEname),
gettext("(assumed)"));
ADD_SS(gettext("Charset:"), p_in->MIMEname);
FREE(temp);
}
}
if ((cp = HText_getServer()) != NULL && *cp != '\0')
ADD_SS(gettext("Server:"), cp);
if ((cp = HText_getDate()) != NULL && *cp != '\0')
ADD_SS(gettext("Date:"), cp);
if ((cp = HText_getLastModified()) != NULL && *cp != '\0')
ADD_SS(gettext("Last Mod:"), cp);
if (LYInfoAdvanced) {
if (HTMainAnchor && HTMainAnchor->expires) {
ADD_SS(gettext("Expires:"), HTMainAnchor->expires);
}
if (HTMainAnchor && HTMainAnchor->cache_control) {
ADD_SS(gettext("Cache-Control:"), HTMainAnchor->cache_control);
}
if (HTMainAnchor && HTMainAnchor->content_length > 0) {
ADD_NN(gettext("Content-Length:"),
HTMainAnchor->content_length,
gettext("bytes"));
} else {
ADD_NN(gettext("Length:"),
HText_getNumOfBytes(),
gettext("bytes"));
}
if (HTMainAnchor && HTMainAnchor->content_language) {
ADD_SS(gettext("Language:"), HTMainAnchor->content_language);
}
}
if (doc->post_data) {
fprintf(fp0, "<dt><em>%s</em> <xmp>%.*s</xmp>\n",
LYEntifyTitle(&buffer, gettext("Post Data:")),
BStrLen(doc->post_data),
BStrData(doc->post_data));
ADD_SS(gettext("Post Content Type:"), doc->post_content_type);
}
ADD_SS(gettext("Owner(s):"),
(owner_address
? owner_address
: NO_NOTHING));
ADD_NN(gettext("size:"),
HText_getNumOfLines(),
gettext("lines"));
StrAllocCopy(temp,
((lynx_mode == FORMS_LYNX_MODE)
? gettext("forms mode")
: (HTisDocumentSource()
? gettext("source")
: gettext("normal"))));
if (doc->safe)
StrAllocCat(temp, gettext(", safe"));
if (doc->internal_link)
StrAllocCat(temp, gettext(", via internal link"));
if (LYInfoAdvanced) {
if (HText_hasNoCacheSet(HTMainText))
StrAllocCat(temp, gettext(", no-cache"));
if (HTAnchor_isISMAPScript((HTAnchor *) HTMainAnchor))
StrAllocCat(temp, gettext(", ISMAP script"));
if (doc->bookmark)
StrAllocCat(temp, gettext(", bookmark file"));
}
ADD_SS(gettext("mode:"), temp);
FREE(temp);
END_DL();
if (nlinks > 0) {
BEGIN_DL(gettext("Link that you currently have selected"));
ADD_SS(gettext("Linkname:"),
LYGetHiliteStr(doc->link, 0));
if (lynx_mode == FORMS_LYNX_MODE &&
links[doc->link].type == WWW_FORM_LINK_TYPE) {
if (links[doc->link].l_form->submit_method) {
int method = links[doc->link].l_form->submit_method;
char *enctype = links[doc->link].l_form->submit_enctype;
ADD_SS(gettext("Method:"),
((method == URL_POST_METHOD) ? "POST" :
((method == URL_MAIL_METHOD) ? "(email)" :
"GET")));
ADD_SS(gettext("Enctype:"),
(non_empty(enctype)
? enctype
: "application/x-www-form-urlencoded"));
}
if (links[doc->link].l_form->submit_action) {
ADD_SS(gettext("Action:"),
links[doc->link].l_form->submit_action);
}
if (!(links[doc->link].l_form->submit_method &&
links[doc->link].l_form->submit_action)) {
fprintf(fp0, "<dt> %s\n",
LYEntifyTitle(&buffer, gettext("(Form field)")));
}
} else {
dt_URL(fp0, NonNull(links[doc->link].lname));
}
END_DL();
} else {
fprintf(fp0, "<h2>%s</h2>",
LYEntifyTitle(&buffer,
gettext("No Links on the current page")));
}
if ((cp = HText_getHttpHeaders()) != 0) {
fprintf(fp0, "<h2>%s</h2>",
LYEntifyTitle(&buffer, gettext("Server Headers:")));
fprintf(fp0, "<pre>%s</pre>",
LYEntifyTitle(&buffer, cp));
}
#ifdef DIRED_SUPPORT
}
#endif /* DIRED_SUPPORT */
EndInternalPage(fp0);
LYrefresh();
LYCloseTemp(tempfile);
FREE(Title);
FREE(buffer);
return (0);
}
int LYShowInfo( DocInfo *doc, DocInfo *newdoc, char *owner_address )
{
int eax;
int edx;
static char tempfile[256];
int url_type;
FILE *fp0;
char *Title = 0;
char *cp;
char *temp = 0;
BOOLEAN LYInfoAdvanced = user_mode == 2;
struct stat dir_info;
static char *name;
if ( LYReuseTempfiles )
{
fp0 = LYOpenTempRewrite( tempfile, ".html", "w" );
}
else
{
LYRemoveTemp( tempfile );
fp0 = LYOpenTemp( tempfile, ".html", "w" );
}
if ( fp0 == 0 )
{
HTAlert( gettext( "Can't open temporary file!" ) );
return -1;
}
else
{
LYLocalFileToURL( &newdoc->address, tempfile );
if ( nlinks > 0 && links[ doc->link ] )
{
url_type = is_url( links[ doc->link ].lname );
switch ( url_type )
{
case 26:
case 27:
{
char *last_slash = strrchr( links[ doc->link ].lname, '/' );
int next_to_last = strlen( links[ doc->link ].lname ) + -1;
if ( next_to_last == last_slash - links[ doc->link ].lname )
links[ doc->link ].lname[ ebp_1152 ] = 0;
}
break;
}
}
label_columns = 9;
WriteInternalTitle( fp0, gettext( "Information about the current document" ) );
fprintf( fp0, "<h1>%s %s (%s) (<a href=\"%s\">%s</a>)", "Lynx", "2.8.7dev.11", LYVersionDate( ), "http://lynx.isc.org/current/", LYVersionStatus( ) );
fwrite( "</h1>\n", 1, 6, fp0 );
if ( lynx_edit_mode && nlinks > 0 )
{
fprintf( fp0, "<h2>%s</h2>\n<dl compact>", gettext( "Directory that you are currently viewing" ) );
temp = HTnameOfFile_WWW( &doc->address, 0, 1 );
dt_String( fp0, gettext( "Name:" ), temp );
if ( temp )
{
free( temp );
temp = 0;
}
dt_String( fp0, gettext( "URL:" ), &doc->address );
fwrite( "\n</dl>\n", 1, 7, fp0 );
temp = HTnameOfFile_WWW( links[ doc->link ].lname, 0, 1 );
if ( lstat64( temp, &dir_info.st_dev ) == -1 )
{
if ( WWW_TraceFlag )
{
fprintf( TraceFP( ), "lstat(%s) failed, errno=%d\n", temp, *(int*)(__errno_location( )) );
}
HTAlert( gettext( "Failed to obtain status of current link!" ) );
}
else
{
char modes[80];
label_columns = 16;
if ( ( dir_info.st_mode & 61440 ) == 16384 )
{
fprintf( fp0, "<h2>%s</h2>\n<dl compact>", gettext( "Directory that you have currently selected" ) );
}
else
if ( ( dir_info.st_mode & 61440 ) == 32768 )
{
fprintf( fp0, "<h2>%s</h2>\n<dl compact>", gettext( "File that you have currently selected" ) );
}
else
if ( ( dir_info.st_mode & 61440 ) == 40960 )
{
fprintf( fp0, "<h2>%s</h2>\n<dl compact>", gettext( "Symbolic link that you have currently selected" ) );
}
else
{
fprintf( fp0, "<h2>%s</h2>\n<dl compact>", gettext( "Item that you have currently selected" ) );
}
dt_String( fp0, gettext( "Full name:" ), temp );
if ( ( dir_info.st_mode & 61440 ) == 40960 )
{
char buf[1024];
int buf_size = readlink( temp, buf, 1023 );
if ( buf_size != -1 )
buf[ buf_size ] = 0;
else
{
sprintf( buf, "%.*s", 1023, gettext( "Unable to follow link" ) );
}
dt_String( fp0, gettext( "Points to file:" ), buf );
}
name = HTAA_UidToName( (int)dir_info.st_uid );
if ( name[0] )
{
dt_String( fp0, gettext( "Name of owner:" ), name );
}
name = HTAA_GidToName( (int)dir_info.st_gid );
if ( name[0] )
{
dt_String( fp0, gettext( "Group name:" ), name );
}
if ( ( dir_info.st_mode & 61440 ) == 32768 )
{
dt_Number( fp0, gettext( "File size:" ), (int)( (long)(dir_info.st_size & 0xFFFFFFFF) ), gettext( "(bytes)" ) );
}
dt_String( fp0, gettext( "Creation date:" ), ctime( &dir_info.st_ctim.tv_sec ) );
dt_String( fp0, gettext( "Last modified:" ), ctime( &dir_info.st_mtim.tv_sec ) );
dt_String( fp0, gettext( "Last accessed:" ), ctime( &dir_info.st_atim.tv_sec ) );
fwrite( "\n</dl>\n", 1, 7, fp0 );
label_columns = 9;
fprintf( fp0, "<h2>%s</h2>\n<dl compact>", gettext( "Access Permissions" ) );
modes[0] = 0;
modes[1] = 0;
modes[2] = 0;
if ( dir_info.st_mode & 256 )
{
memcpy( modes[0] + strlen( modes ) );
}
if ( dir_info.st_mode & 128 )
{
memcpy( modes[0] + strlen( modes ) );
}
if ( dir_info.st_mode & 64 )
{
if ( ( dir_info.st_mode & 61440 ) == 16384 )
{
memcpy( modes[0] + strlen( modes ) );
}
else
{
memcpy( modes[0] + strlen( modes ) );
if ( dir_info.st_mode & 2048 )
{
memcpy( modes[0] + strlen( modes ) );
}
}
}
dt_String( fp0, gettext( "Owner:" ), &modes[2] );
modes[0] = 0;
modes[1] = 0;
modes[2] = 0;
if ( dir_info.st_mode & 32 )
{
memcpy( modes[0] + strlen( modes ) );
}
if ( dir_info.st_mode & 16 )
{
memcpy( modes[0] + strlen( modes ) );
}
if ( dir_info.st_mode & 8 )
{
if ( ( dir_info.st_mode & 61440 ) == 16384 )
{
memcpy( modes[0] + strlen( modes ) );
}
else
{
memcpy( modes[0] + strlen( modes ) );
if ( dir_info.st_mode & 1024 )
{
memcpy( modes[0] + strlen( modes ) );
}
}
}
dt_String( fp0, gettext( "Group:" ), &modes[2] );
modes[0] = 0;
modes[1] = 0;
modes[2] = 0;
if ( dir_info.st_mode & 4 )
{
memcpy( modes[0] + strlen( modes ) );
}
if ( dir_info.st_mode & 2 )
{
memcpy( modes[0] + strlen( modes ) );
}
if ( dir_info.st_mode & 1 )
{
if ( ( dir_info.st_mode & 61440 ) == 16384 )
{
memcpy( modes[0] + strlen( modes ) );
}
else
{
memcpy( modes[0] + strlen( modes ) );
if ( dir_info.st_mode & 512 )
{
memcpy( modes[0] + strlen( modes ) );
}
}
}
dt_String( fp0, gettext( "World:" ), &modes[2] );
fwrite( "\n</dl>\n", 1, 7, fp0 );
}
if ( temp )
{
free( temp );
temp = 0;
}
}
else
{
fprintf( fp0, "<h2>%s</h2>\n<dl compact>", gettext( "File that you are currently viewing" ) );
LYformTitle( &Title, &doc->title[0] );
HTSprintf( &temp, "%s%s", Title, "" );
dt_String( fp0, gettext( "Linkname:" ), temp );
if ( temp )
{
free( temp );
temp = 0;
}
dt_String( fp0, "URL:", &doc->address );
if ( HTLoadedDocumentCharset( ) )
{
dt_String( fp0, gettext( "Charset:" ), HTLoadedDocumentCharset( ) );
}
else
{
LYUCcharset *p_in = HTAnchor_getUCInfoStage( HTMainAnchor, 1 );
if ( p_in == 0 || p_in->MIMEname == 0 || p_in->MIMEname[0] == 0 || HTAnchor_getUCLYhndl( HTMainAnchor, 1 ) < 0 )
{
p_in = HTAnchor_getUCInfoStage( HTMainAnchor, 0 );
}
if ( p_in && p_in->MIMEname && p_in->MIMEname[0] && HTAnchor_getUCLYhndl( HTMainAnchor, 0 ) >= 0 )
{
HTSprintf( &temp, "%s %s", p_in->MIMEname, gettext( "(assumed)" ) );
dt_String( fp0, gettext( "Charset:" ), &p_in->MIMEname );
if ( temp )
{
free( temp );
temp = 0;
}
}
}
cp = HText_getServer( );
if ( cp && cp[0] )
{
dt_String( fp0, gettext( "Server:" ), cp );
}
cp = HText_getDate( );
if ( cp && cp[0] )
{
dt_String( fp0, gettext( "Date:" ), cp );
}
cp = HText_getLastModified( );
if ( cp && cp[0] )
{
dt_String( fp0, gettext( "Last Mod:" ), cp );
}
if ( LYInfoAdvanced )
{
if ( HTMainAnchor && HTMainAnchor->expires )
{
dt_String( fp0, gettext( "Expires:" ), &HTMainAnchor->expires );
}
if ( HTMainAnchor && HTMainAnchor->cache_control )
{
dt_String( fp0, gettext( "Cache-Control:" ), &HTMainAnchor->cache_control );
}
if ( HTMainAnchor && HTMainAnchor->content_length > 0 )
{
dt_Number( fp0, gettext( "Content-Length:" ), HTMainAnchor->content_length, gettext( "bytes" ) );
}
else
{
dt_Number( fp0, gettext( "Length:" ), HText_getNumOfBytes( ), gettext( "bytes" ) );
}
if ( HTMainAnchor && HTMainAnchor->content_language )
{
dt_String( fp0, gettext( "Language:" ), &HTMainAnchor->content_language );
}
}
if ( doc->post_data )
{
fprintf( fp0, "<dt><em>%s</em> <xmp>%.*s</xmp>\n", gettext( "Post Data:" ), 0, 0 );
dt_String( fp0, gettext( "Post Content Type:" ), &doc->post_content_type );
}
dt_String( fp0, gettext( "Owner(s):" ), owner_address ? owner_address : gettext( "Owner(s):" ) );
dt_Number( fp0, gettext( "size:" ), HText_getNumOfLines( ), gettext( "lines" ) );
if ( lynx_mode != 2 )
{
if ( HTisDocumentSource( ) )
{
}
else
{
}
}
else
{
}
HTSACopy( &temp, gettext( "source" ) );
if ( doc->safe )
{
HTSACat( &temp, gettext( ", safe" ) );
}
if ( doc->internal_link )
{
HTSACat( &temp, gettext( ", via internal link" ) );
}
if ( LYInfoAdvanced )
{
if ( HText_hasNoCacheSet( HTMainText ) & 255 )
{
HTSACat( &temp, gettext( ", no-cache" ) );
}
if ( HTAnchor_isISMAPScript( (int)( &HTMainAnchor->parent->parent ) ) & 255 )
{
HTSACat( &temp, gettext( ", ISMAP script" ) );
}
if ( doc->bookmark )
{
HTSACat( &temp, gettext( ", bookmark file" ) );
}
}
dt_String( fp0, gettext( "mode:" ), temp );
if ( temp )
{
free( temp );
temp = 0;
}
fwrite( "\n</dl>\n", 1, 7, fp0 );
if ( nlinks > 0 )
{
fprintf( fp0, "<h2>%s</h2>\n<dl compact>", gettext( "Link that you currently have selected" ) );
dt_String( fp0, gettext( "Linkname:" ), LYGetHiliteStr( doc->link, 0 ) );
if ( lynx_mode == 2 && links[ doc->link ].type == 1 )
{
if ( links[ doc->link ].l_form->submit_method )
{
int method = links[ doc->link ].l_form->submit_method;
char *enctype = &links[ doc->link ].l_form->submit_enctype;
dt_String( fp0, gettext( "Method:" ), "POST" );
dt_String( fp0, gettext( "Enctype:" ), "application/x-www-form-urlencoded" );
}
if ( links[ doc->link ].l_form->submit_action )
{
dt_String( fp0, gettext( "Action:" ), &links[ doc->link ].l_form->submit_action );
}
if ( links[ doc->link ].l_form->submit_method == 0 || links[ doc->link ].l_form->submit_action == 0 )
{
fprintf( fp0, "<dt> %s\n", gettext( "(Form field)" ) );
}
}
else
{
dt_String( fp0, "URL:", "" );
}
fwrite( "\n</dl>\n", 1, 7, fp0 );
}
else
{
fprintf( fp0, "<h2>%s</h2>", gettext( "No Links on the current page" ) );
}
}
EndInternalPage( fp0 );
LYrefresh( );
LYCloseTemp( tempfile );
if ( Title )
{
free( Title );
Title = 0;
}
return 0;
}
}