/* ** Routines to manipulate the local filesystem. ** Written by: Rick Mallett, Carleton University ** Report problems to rmallett@ccs.carleton.ca ** Modified 18-Dec-95 David Trueman (david@cs.dal.ca): ** Added OK_PERMIT compilation option. ** Support replacement of compiled-in f)ull menu configuration via ** DIRED_MENU definitions in lynx.cfg, so that more than one menu ** can be driven by the same executable. ** Modified Oct-96 Klaus Weide (kweide@tezcat.com): ** Changed to use the library's HTList_* functions and macros for ** managing the list of tagged file URLs. ** Keep track of proper level of URL escaping, so that unusual filenames ** which contain #% etc. are handled properly (some HTUnEscapeSome()'s ** left in to be conservative, and to document where superfluous ** unescaping took place before). ** Dynamic memory instead of fixed length buffers in a few cases. ** Other minor changes to make things work as intended. ** Modified Jun-97 Klaus Weide (kweide@tezcat.com) & FM: ** Modified the code handling DIRED_MENU to do more careful ** checking of the selected file. In addition to "TAG", "FILE", and ** "DIR", DIRED_MENU definitions in lynx.cfg now also recognize LINK as ** a type. DIRED_MENU definitions with a type field of "LINK" are only ** used if the current selection is a symbolic link ("FILE" and "DIR" ** definitions are not used in that case). The default menu ** definitions have been updated to reflect this change, and to avoid ** the showing of menu items whose action would always fail - KW ** Cast all code into the Lynx programming style. - FM */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #ifdef SUPPORT_CHDIR #include #endif #include #undef USE_COMPRESS #ifdef __DJGPP__ #define EXT_TAR_GZ ".tgz" #define EXT_TAR_Z ".taz" #define EXT_Z ".z" #else #define EXT_TAR_GZ ".tar.gz" #define EXT_TAR_Z ".tar.Z" #define EXT_Z ".Z" #endif #ifndef DIRED_MAXBUF #define DIRED_MAXBUF 512 #endif #ifdef DIRED_SUPPORT #ifdef OK_INSTALL #ifdef FNAMES_8_3 #define INSTALLDIRS_FILE "instdirs.htm" #else #define INSTALLDIRS_FILE ".installdirs.html" #endif /* FNAMES_8_3 */ #endif /* OK_INSTALL */ PRIVATE char *get_filename PARAMS(( char * prompt, char * buf, size_t bufsize)); #ifdef OK_PERMIT PRIVATE int permit_location PARAMS(( char * destpath, char * srcpath, char ** newpath)); #endif /* OK_PERMIT */ PRIVATE char *render_item PARAMS(( CONST char * s, CONST char * path, CONST char * dir, char * buf, int bufsize, BOOLEAN url_syntax)); PRIVATE struct dired_menu *menu_head = NULL; struct dired_menu { int cond; #define DE_TAG 1 #define DE_DIR 2 #define DE_FILE 3 #define DE_SYMLINK 4 char *sfx; char *link; char *rest; char *href; struct dired_menu *next; } defmenu[] = { /* * The following initializations determine the contents of the f)ull menu * selection when in dired mode. If any menu entries are defined in the * configuration file via DIRED_MENU lines, then these default entries * are discarded entirely. */ #ifdef SUPPORT_CHDIR { 0, "", "Change directory", "", "LYNXDIRED://CHDIR", NULL }, #endif { 0, "", "New File", "(in current directory)", "LYNXDIRED://NEW_FILE%d", NULL }, { 0, "", "New Directory", "(in current directory)", "LYNXDIRED://NEW_FOLDER%d", NULL }, #ifdef OK_INSTALL { DE_FILE, "", "Install", "selected file to new location", "LYNXDIRED://INSTALL_SRC%p", NULL }, /* The following (installing a directory) doesn't work for me, at least with the "install" from GNU fileutils 4.0. I leave it in anyway, in case one compiles with INSTALL_PATH / INSTALL_ARGS defined to some other command for which it works (like a script, or maybe "cp -a"). - kw */ { DE_DIR, "", "Install", "selected directory to new location", "LYNXDIRED://INSTALL_SRC%p", NULL }, #endif /* OK_INSTALL */ { DE_FILE, "", "Modify File Name", "(of current selection)", "LYNXDIRED://MODIFY_NAME%p", NULL }, { DE_DIR, "", "Modify Directory Name", "(of current selection)", "LYNXDIRED://MODIFY_NAME%p", NULL }, #ifdef S_IFLNK { DE_SYMLINK, "", "Modify Name", "(of selected symbolic link)", "LYNXDIRED://MODIFY_NAME%p", NULL }, #endif /* S_IFLNK */ #ifdef OK_PERMIT { DE_FILE, "", "Modify File Permissions", "(of current selection)", "LYNXDIRED://PERMIT_SRC%p", NULL }, { DE_DIR, "", "Modify Directory Permissions", "(of current selection)", "LYNXDIRED://PERMIT_SRC%p", NULL }, #endif /* OK_PERMIT */ { DE_FILE, "", "Change Location", "(of selected file)" , "LYNXDIRED://MODIFY_LOCATION%p", NULL }, { DE_DIR, "", "Change Location", "(of selected directory)", "LYNXDIRED://MODIFY_LOCATION%p", NULL }, #ifdef S_IFLNK { DE_SYMLINK, "", "Change Location", "(of selected symbolic link)", "LYNXDIRED://MODIFY_LOCATION%p", NULL }, #endif /* S_IFLNK */ { DE_FILE, "", "Remove File", "(current selection)", "LYNXDIRED://REMOVE_SINGLE%p", NULL }, { DE_DIR, "", "Remove Directory", "(current selection)", "LYNXDIRED://REMOVE_SINGLE%p", NULL }, #ifdef S_IFLNK { DE_SYMLINK, "", "Remove Symbolic Link", "(current selection)", "LYNXDIRED://REMOVE_SINGLE%p", NULL }, #endif /* S_IFLNK */ #if defined(OK_UUDECODE) && !defined(ARCHIVE_ONLY) { DE_FILE, "", "UUDecode", "(current selection)", "LYNXDIRED://UUDECODE%p", NULL }, #endif /* OK_UUDECODE && !ARCHIVE_ONLY */ #if defined(OK_TAR) && !defined(ARCHIVE_ONLY) { DE_FILE, EXT_TAR_Z, "Expand", "(current selection)", "LYNXDIRED://UNTAR_Z%p", NULL }, #endif /* OK_TAR && !ARCHIVE_ONLY */ #if defined(OK_TAR) && defined(OK_GZIP) && !defined(ARCHIVE_ONLY) { DE_FILE, ".tar.gz", "Expand", "(current selection)", "LYNXDIRED://UNTAR_GZ%p", NULL }, { DE_FILE, ".tgz", "Expand", "(current selection)", "LYNXDIRED://UNTAR_GZ%p", NULL }, #endif /* OK_TAR && OK_GZIP && !ARCHIVE_ONLY */ #ifndef ARCHIVE_ONLY { DE_FILE, EXT_Z, "Uncompress", "(current selection)", "LYNXDIRED://DECOMPRESS%p", NULL }, #endif /* ARCHIVE_ONLY */ #if defined(OK_GZIP) && !defined(ARCHIVE_ONLY) { DE_FILE, ".gz", "Uncompress", "(current selection)", "LYNXDIRED://UNGZIP%p", NULL }, #endif /* OK_GZIP && !ARCHIVE_ONLY */ #if defined(OK_ZIP) && !defined(ARCHIVE_ONLY) { DE_FILE, ".zip", "Uncompress", "(current selection)", "LYNXDIRED://UNZIP%p", NULL }, #endif /* OK_ZIP && !ARCHIVE_ONLY */ #if defined(OK_TAR) && !defined(ARCHIVE_ONLY) { DE_FILE, ".tar", "UnTar", "(current selection)", "LYNXDIRED://UNTAR%p", NULL }, #endif /* OK_TAR && !ARCHIVE_ONLY */ #ifdef OK_TAR { DE_DIR, "", "Tar", "(current selection)", "LYNXDIRED://TAR%p", NULL }, #endif /* OK_TAR */ #if defined(OK_TAR) && defined(OK_GZIP) { DE_DIR, "", "Tar and compress", "(using GNU gzip)", "LYNXDIRED://TAR_GZ%p", NULL }, #endif /* OK_TAR && OK_GZIP */ #if defined(OK_TAR) && defined(USE_COMPRESS) { DE_DIR, "", "Tar and compress", "(using compress)", "LYNXDIRED://TAR_Z%p", NULL }, #endif /* OK_TAR && USE_COMPRESS */ #ifdef OK_ZIP { DE_DIR, "", "Package and compress", "(using zip)", "LYNXDIRED://ZIP%p", NULL }, #endif /* OK_ZIP */ { DE_FILE, "", "Compress", "(using Unix compress)", "LYNXDIRED://COMPRESS%p", NULL }, #ifdef OK_GZIP { DE_FILE, "", "Compress", "(using gzip)", "LYNXDIRED://GZIP%p", NULL }, #endif /* OK_GZIP */ #ifdef OK_ZIP { DE_FILE, "", "Compress", "(using zip)", "LYNXDIRED://ZIP%p", NULL }, #endif /* OK_ZIP */ { DE_TAG, "", "Move all tagged items to another location.", "", "LYNXDIRED://MOVE_TAGGED%d", NULL }, #ifdef OK_INSTALL { DE_TAG, "", "Install tagged files into another directory.", "", "LYNXDIRED://INSTALL_SRC%00", NULL }, #endif { DE_TAG, "", "Remove all tagged files and directories.", "", "LYNXDIRED://REMOVE_TAGGED", NULL }, { DE_TAG, "", "Untag all tagged files and directories.", "", "LYNXDIRED://CLEAR_TAGGED", NULL }, { 0, NULL, NULL, NULL, NULL, NULL } }; PRIVATE BOOLEAN cannot_stat ARGS1(CONST char *, name) { char *tmpbuf = 0; HTSprintf0(&tmpbuf, gettext("Unable to get status of '%s'."), name); HTAlert(tmpbuf); FREE(tmpbuf); return FALSE; } #define OK_STAT(name, sb) (stat(name, sb) == 0) PRIVATE BOOLEAN ok_stat ARGS2(CONST char *, name, struct stat*, sb) { CTRACE((tfp, "testing ok_stat(%s)\n", name)); if (!OK_STAT(name, sb)) { return cannot_stat(name); } return TRUE; } #ifdef HAVE_LSTAT PRIVATE BOOLEAN ok_lstat ARGS2(char *, name, struct stat*, sb) { CTRACE((tfp, "testing ok_lstat(%s)\n", name)); if (lstat(name, sb) < 0) { return cannot_stat(name); } return TRUE; } #else #define ok_lstat(name,sb) ok_stat(name,sb) #endif PRIVATE BOOLEAN ok_file_or_dir ARGS1(struct stat*, sb) { if (!S_ISDIR(sb->st_mode) && !S_ISREG(sb->st_mode)) { HTAlert(gettext("The selected item is not a file or a directory! Request ignored.")); return FALSE; } return TRUE; } #ifdef OK_INSTALL /* currently only used in local_install */ PRIVATE BOOLEAN ok_localname ARGS2(char*, dst, CONST char*, src) { struct stat dir_info; if (!ok_stat(src, &dir_info) || !ok_file_or_dir(&dir_info)) { return FALSE; } if (strlen(src) >= DIRED_MAXBUF) { CTRACE((tfp, "filename too long in ok_localname!\n")); return FALSE; } strcpy(dst, src); return TRUE; } #endif /* OK_INSTALL */ /* * Execute DIRED command, return -1 or 0 on failure, 1 success. */ PRIVATE int LYExecv ARGS3( char *, path, char **, argv, char *, msg) { int rc = 0; #if defined(VMS) CTRACE((tfp, "LYExecv: Called inappropriately!\n")); #else #if defined(_WINDOWS) if (!strcmp(path, TOUCH_PATH)) { #if defined(__BORLANDC__) || defined(__MINGW32__) int fd = _creat(argv[1], S_IREAD | S_IWRITE); #else /* Visual C++ */ int fd = _creat(argv[1], _S_IREAD | _S_IWRITE); #endif if (fd >= 0) { close(fd); return(1); } } else if (!strcmp(path, RM_PATH)) { rc = remove(argv[2]); } else { CTRACE((tfp, "LYExecv: Called inappropriately! (path=%s)\n", path)); } #else int n; char *tmpbuf = 0; #ifdef __DJGPP__ stop_curses(); HTSprintf0(&tmpbuf, "%s", path); for (n = 1; argv[n] != 0; n++) HTSprintf(&tmpbuf, " %s", argv[n]); HTSprintf(&tmpbuf, "\n"); rc = LYSystem(tmpbuf) ? 0 : 1; #else pid_t pid; #ifdef HAVE_TYPE_UNIONWAIT union wait wstatus; #else int wstatus; #endif if (TRACE) { CTRACE((tfp, "LYExecv path='%s'\n", path)); for (n = 0; argv[n] != 0; n++) CTRACE((tfp, "argv[%d] = '%s'\n", n, argv[n])); } rc = 1; /* It will work */ stop_curses(); pid = fork(); /* fork and execute command */ switch (pid) { case -1: HTSprintf0(&tmpbuf, gettext("Unable to %s due to system error!"), msg); rc = 0; break; /* don't fall thru! - KW */ case 0: /* child */ #ifdef USE_EXECVP execvp(path, argv); /* this uses our $PATH */ #else execv(path, argv); #endif exit(EXIT_FAILURE); /* execv failed, give wait() something to look at */ /*NOTREACHED*/ default: /* parent */ #if !HAVE_WAITPID while (wait(&wstatus) != pid) ; /* do nothing */ #else while (-1 == waitpid(pid, &wstatus, 0)) { /* wait for child */ #ifdef EINTR if (errno == EINTR) continue; #endif /* EINTR */ #ifdef ERESTARTSYS if (errno == ERESTARTSYS) continue; #endif /* ERESTARTSYS */ break; } #endif /* !HAVE_WAITPID */ if (WEXITSTATUS(wstatus) != 0 || WTERMSIG(wstatus) > 0) { /* error return */ HTSprintf0(&tmpbuf, gettext("Probable failure to %s due to system error!"), msg); rc = 0; } } #endif /* __DJGPP__ */ if (rc == 0) { /* * Screen may have message from the failed execv'd command. * Give user time to look at it before screen refresh. */ LYSleepAlert(); } start_curses(); if (tmpbuf != 0) { if (rc == 0) HTAlert(tmpbuf); FREE(tmpbuf); } #endif /* _WINDOWS */ #endif /* VMS */ return(rc); } PRIVATE int move_file ARGS2(char *, source, char *, target) { int code; #ifdef WIN_EX /* 1999/01/02 (Sat) 23:24:20 */ if ((code = rename(source, target)) != 0) if ((code = LYCopyFile(source, target)) >= 0) code = remove(source); if (code == 0) code = 1; #else char *msg = 0; char *args[5]; HTSprintf0(&msg, gettext("move %s to %s"), source, target); args[0] = "mv"; args[1] = source; args[2] = target; args[3] = (char *) 0; code = (LYExecv(MV_PATH, args, msg) <= 0) ? -1 : 1; FREE(msg); #endif return code; } PRIVATE BOOLEAN not_already_exists ARGS1(char *, name) { struct stat dir_info; if (!OK_STAT(name, &dir_info)) { if (errno != ENOENT) { cannot_stat(name); } else { return TRUE; } } else if (S_ISDIR(dir_info.st_mode)) { HTAlert(gettext("There is already a directory with that name! Request ignored.")); } else if (S_ISREG(dir_info.st_mode)) { HTAlert(gettext("There is already a file with that name! Request ignored.")); } else { HTAlert(gettext("The specified name is already in use! Request ignored.")); } return FALSE; } PRIVATE BOOLEAN dir_has_same_owner ARGS2(struct stat *, info, int, owner) { if (S_ISDIR(info->st_mode)) { if ((int) info->st_uid == owner) { return TRUE; } else { HTAlert(gettext("Destination has different owner! Request denied.")); } } else { HTAlert(gettext("Destination is not a valid directory! Request denied.")); } return FALSE; } /* * Remove all tagged files and directories. */ PRIVATE int remove_tagged NOARGS { int ans; BOOL will_clear = TRUE; char *cp; char *tmpbuf = NULL; char *testpath = NULL; struct stat dir_info; int count; HTList *tag; char *args[5]; if (HTList_isEmpty(tagged)) /* should never happen */ return 0; ans = HTConfirm(gettext("Remove all tagged files and directories?")); count = 0; tag = tagged; while (ans == YES && (cp = (char *)HTList_nextObject(tag)) != NULL) { if (is_url(cp) == FILE_URL_TYPE) { /* unnecessary check */ testpath = HTfullURL_toFile(cp); LYTrimPathSep(testpath); will_clear = TRUE; /* * Check the current status of the path to be deleted. */ if (!ok_stat(testpath, &dir_info)) { will_clear = FALSE; break; } else { args[0] = "rm"; args[1] = "-rf"; args[2] = testpath; args[3] = (char *) 0; HTSprintf0(&tmpbuf, gettext("remove %s"), testpath); if (LYExecv(RM_PATH, args, tmpbuf) <= 0) { if (count == 0) count = -1; will_clear = FALSE; break; } ++count; FREE(testpath); } } } FREE(testpath); FREE(tmpbuf); if (will_clear) clear_tags(); return count; } /* * Move all tagged files and directories to a new location. * Input is current directory. * The tests in this function can, at best, prevent some user mistakes - * anybody who relies on them for security is seriously misguided. * If a user has enough permissions to move a file somewhere, the same * uid with Lynx & dired can do the same thing. */ PRIVATE int modify_tagged ARGS1( char *, testpath) { char *cp; dev_t dev; ino_t inode; int owner; char tmpbuf[1024]; char *savepath; char *srcpath = NULL; struct stat dir_info; int count = 0; HTList *tag; if (HTList_isEmpty(tagged)) /* should never happen */ return 0; _statusline(gettext("Enter new location for tagged items: ")); tmpbuf[0] = '\0'; LYgetstr(tmpbuf, VISIBLE, sizeof(tmpbuf), NORECALL); if (strlen(tmpbuf)) { /* * Determine the ownership of the current location. */ /* * This test used to always fail from the dired menu... * changed to something that hopefully makes more sense - KW */ if (testpath && *testpath && 0!=strcmp(testpath,"/")) { /* * testpath passed in and is not empty and not a single "/" * (which would probably be bogus) - use it. */ cp = testpath; } else { /* * Prepare to get directory path from one of the tagged files. */ cp = HTList_lastObject(tagged); testpath = NULL; /* Won't be needed any more in this function, set to NULL as a flag. */ } if (testpath == NULL) { /* * Get the directory containing the file or subdir. */ if (cp) { cp = strip_trailing_slash(cp); cp = HTParse(".", cp, PARSE_PATH+PARSE_PUNCTUATION); savepath = HTURLPath_toFile(cp, TRUE); FREE(cp); } else { /* Last resort, should never happen. */ savepath = HTURLPath_toFile(".", TRUE); } } else { if (!strncmp(cp, "file://localhost", 16)) { cp += 16; } else if (!strncmp(cp, "file:", 5)) { cp += 5; } savepath = HTURLPath_toFile(cp, TRUE); } if (!ok_stat(savepath, &dir_info)) { FREE(savepath); return 0; } /* * Save the owner of the current location for later use. * Also save the device and inode for location checking/ */ dev = dir_info.st_dev; inode = dir_info.st_ino; owner = dir_info.st_uid; /* * Replace ~/ references to the home directory. */ if (!strncmp(tmpbuf, "~/", 2)) { char *cp1 = NULL; StrAllocCopy(cp1, Home_Dir()); StrAllocCat(cp1, (tmpbuf + 1)); if (strlen(cp1) > (sizeof(tmpbuf) - 1)) { HTAlert(gettext("Path too long")); FREE(savepath); FREE(cp1); return 0; } LYstrncpy(tmpbuf, cp1, sizeof(tmpbuf)-1); FREE(cp1); } /* * If path is relative, prefix it with current location. */ if (!LYIsPathSep(tmpbuf[0])) { LYAddPathSep(&savepath); StrAllocCat(savepath,tmpbuf); } else { StrAllocCopy(savepath,tmpbuf); } /* * stat() the target location to determine type and ownership. */ if (!ok_stat(savepath, &dir_info)) { FREE(savepath); return 0; } /* * Make sure the source and target locations are not the same place. */ if (dev == dir_info.st_dev && inode == dir_info.st_ino) { HTAlert(gettext("Source and destination are the same location - request ignored!")); FREE(savepath); return 0; } /* * Make sure the target location is a directory which is owned * by the same uid as the owner of the current location. */ if (dir_has_same_owner(&dir_info, owner)) { count = 0; tag = tagged; /* * Move all tagged items to the target location. */ while ((cp = (char *)HTList_nextObject(tag)) != NULL) { srcpath = HTfullURL_toFile(cp); if (move_file(srcpath, savepath) < 0) { if (count == 0) count = -1; break; } FREE(srcpath); ++count; } clear_tags(); FREE(srcpath); } FREE(savepath); return count; } return 0; } /* * Modify the name of the specified item. */ PRIVATE int modify_name ARGS1( char *, testpath) { char *cp; char tmpbuf[DIRED_MAXBUF]; char *newpath = NULL; struct stat dir_info; int code = 0; /* * Determine the status of the selected item. */ testpath = strip_trailing_slash(testpath); if (ok_stat(testpath, &dir_info)) { /* * Change the name of the file or directory. */ if (S_ISDIR(dir_info.st_mode)) { cp = gettext("Enter new name for directory: "); } else if (S_ISREG(dir_info.st_mode)) { cp = gettext("Enter new name for file: "); } else { return ok_file_or_dir(&dir_info); } if (get_filename(cp, tmpbuf, sizeof(tmpbuf)) == NULL) return 0; /* * Do not allow the user to also change the location at this time. */ if (LYLastPathSep(tmpbuf) != 0) { HTAlert(gettext("Illegal character (path-separator) found! Request ignored.")); } else if (strlen(tmpbuf)) { if ((cp = LYLastPathSep(testpath)) != NULL) HTSprintf0(&newpath, "%.*s%s", (cp - testpath + 1), testpath, tmpbuf); else StrAllocCopy(newpath, tmpbuf); /* * Make sure the destination does not already exist. */ if (not_already_exists(newpath)) { code = move_file(testpath, newpath); } FREE(newpath); } } return code; } /* * Change the location of a file or directory. */ PRIVATE int modify_location ARGS1( char *, testpath) { char *cp; dev_t dev; ino_t inode; int owner; char tmpbuf[1024]; char *newpath = NULL; char *savepath = NULL; struct stat dir_info; int code = 0; /* * Determine the status of the selected item. */ testpath = strip_trailing_slash(testpath); if (!ok_stat(testpath, &dir_info)) { return 0; } /* * Change the location of the file or directory. */ if (S_ISDIR(dir_info.st_mode)) { cp = gettext("Enter new location for directory: "); } else if (S_ISREG(dir_info.st_mode)) { cp = gettext("Enter new location for file: "); } else { return ok_file_or_dir(&dir_info); } if (get_filename(cp, tmpbuf, sizeof(tmpbuf)) == NULL) return 0; if (strlen(tmpbuf)) { StrAllocCopy(savepath, testpath); StrAllocCopy(newpath, testpath); /* * Allow ~/ references to the home directory. */ if (!strncmp(tmpbuf, "~/", 2) || !strcmp(tmpbuf,"~")) { StrAllocCopy(newpath, Home_Dir()); StrAllocCat(newpath, (tmpbuf + 1)); LYstrncpy(tmpbuf, newpath, sizeof(tmpbuf)-1); } if (LYisAbsPath(tmpbuf)) { StrAllocCopy(newpath, tmpbuf); } else if ((cp = LYLastPathSep(newpath)) != NULL) { *++cp = '\0'; StrAllocCat(newpath, tmpbuf); } else { HTAlert(gettext("Unexpected failure - unable to find trailing path separator")); FREE(newpath); FREE(savepath); return 0; } /* * Make sure the source and target have the same owner (uid). */ dev = dir_info.st_dev; inode = dir_info.st_ino; owner = dir_info.st_uid; if (!ok_stat(newpath, &dir_info)) { code = 0; } /* * Make sure the source and target are not the same location. */ else if (dev == dir_info.st_dev && inode == dir_info.st_ino) { HTAlert(gettext("Source and destination are the same location! Request ignored!")); code = 0; } else if (dir_has_same_owner(&dir_info, owner)) { code = move_file(savepath,newpath); } FREE(newpath); FREE(savepath); } return code; } /* * Modify name or location of a file or directory on localhost. */ PUBLIC int local_modify ARGS2( document *, doc, char **, newpath) { int ans; char *cp; char testpath[DIRED_MAXBUF]; /* a bit ridiculous */ int count; if (!HTList_isEmpty(tagged)) { cp = HTpartURL_toFile(doc->address); count = modify_tagged(cp); FREE(cp); if (doc->link > (nlinks-count - 1)) doc->link = (nlinks-count - 1); doc->link = (doc->link < 0) ? 0 : doc->link; return count; } else if (doc->link < 0 || doc->link > nlinks) { /* * Added protection. */ return 0; } /* * Do not allow simultaneous change of name and location as in Unix. * This reduces functionality but reduces difficulty for the novice. */ #ifdef OK_PERMIT _statusline(gettext("Modify name, location, or permission (n, l, or p): ")); #else _statusline(gettext("Modify name or location (n or l): ")); #endif /* OK_PERMIT */ ans = LYgetch_single(); if (strchr("NLP", ans) != NULL) { cp = HTfullURL_toFile(links[doc->link].lname); if (strlen(cp) >= DIRED_MAXBUF) { FREE(cp); return 0; } LYstrncpy(testpath, cp, sizeof(testpath)-1); FREE(cp); if (ans == 'N') { return(modify_name(testpath)); } else if (ans == 'L') { if (modify_location(testpath)) { if (doc->link == (nlinks-1)) --doc->link; return 1; } #ifdef OK_PERMIT } else if (ans == 'P') { return(permit_location(NULL, testpath, newpath)); #endif /* OK_PERMIT */ } else { /* * Code for changing ownership needed here. */ HTAlert(gettext("This feature not yet implemented!")); } } return 0; } /* * Create a new empty file in the current directory. */ PRIVATE int create_file ARGS1( char *, current_location) { int code = FALSE; char tmpbuf[DIRED_MAXBUF]; char *testpath = NULL; char *args[5]; char *bad_chars = ".~/"; if (get_filename(gettext("Enter name of file to create: "), tmpbuf, sizeof(tmpbuf)) != NULL) { if (!no_dotfiles && show_dotfiles) { bad_chars = "~/"; } if (strstr(tmpbuf, "//") != NULL) { HTAlert(gettext("Illegal redirection \"//\" found! Request ignored.")); } else if (strlen(tmpbuf) && strchr(bad_chars, tmpbuf[0]) == NULL) { StrAllocCopy(testpath, current_location); LYAddPathSep(&testpath); /* * Append the target filename to the current location. */ StrAllocCat(testpath, tmpbuf); /* * Make sure the target does not already exist */ if (not_already_exists(testpath)) { char *msg = 0; HTSprintf0(&msg,gettext("create %s"),testpath); args[0] = "touch"; args[1] = testpath; args[2] = (char *) 0; code = (LYExecv(TOUCH_PATH, args, msg) <= 0) ? -1 : 1; FREE(msg); } FREE(testpath); } } return code; } /* * Create a new directory in the current directory. */ PRIVATE int create_directory ARGS1( char *, current_location) { int code = FALSE; char tmpbuf[DIRED_MAXBUF]; char *testpath = NULL; char *args[5]; char *bad_chars = ".~/"; if (get_filename(gettext("Enter name for new directory: "), tmpbuf, sizeof(tmpbuf)) != NULL) { if (!no_dotfiles && show_dotfiles) { bad_chars = "~/"; } if (strstr(tmpbuf, "//") != NULL) { HTAlert(gettext("Illegal redirection \"//\" found! Request ignored.")); } else if (strlen(tmpbuf) && strchr(bad_chars, tmpbuf[0]) == NULL) { StrAllocCopy(testpath, current_location); LYAddPathSep(&testpath); StrAllocCat(testpath, tmpbuf); /* * Make sure the target does not already exist. */ if (not_already_exists(testpath)) { char *msg = 0; HTSprintf0(&msg,"make directory %s",testpath); args[0] = "mkdir"; args[1] = testpath; args[2] = (char *) 0; code = (LYExecv(MKDIR_PATH, args, msg) <= 0) ? -1 : 1; FREE(msg); } FREE(testpath); } } return code; } /* * Create a file or a directory at the current location. */ PUBLIC int local_create ARGS1( document *, doc) { int ans; char *cp; char testpath[DIRED_MAXBUF]; cp = HTfullURL_toFile(doc->address); if (strlen(cp) >= DIRED_MAXBUF) { FREE(cp); return 0; } strcpy(testpath,cp); FREE(cp); _statusline(gettext("Create file or directory (f or d): ")); ans = LYgetch_single(); if (ans == 'F') { return(create_file(testpath)); } else if (ans == 'D') { return(create_directory(testpath)); } else { return 0; } } /* * Remove a single file or directory. */ PRIVATE int remove_single ARGS1( char *, testpath) { int code = 0; char *cp; char *tmpbuf = 0; struct stat dir_info; char *args[5]; if (!ok_lstat(testpath, &dir_info)) { return 0; } /* * Locate the filename portion of the path. */ if ((cp = LYLastPathSep(testpath)) != NULL) { ++cp; } else { cp = testpath; } if (S_ISDIR(dir_info.st_mode)) { /*** This strlen stuff will probably screw up intl translations /jes ***/ /*** Course, it's probably broken for screen sizes other 80, too ***/ if (strlen(cp) < 37) { HTSprintf0(&tmpbuf, gettext("Remove '%s' and all of its contents?"), cp); } else { HTSprintf0(&tmpbuf, gettext("Remove directory and all of its contents?")); } } else if (S_ISREG(dir_info.st_mode)) { if (strlen(cp) < 60) { HTSprintf0(&tmpbuf, gettext("Remove file '%s'?"), cp); } else { HTSprintf0(&tmpbuf, gettext("Remove file?")); } #ifdef S_IFLNK } else if (S_ISLNK(dir_info.st_mode)) { if (strlen(cp) < 50) { HTSprintf0(&tmpbuf, gettext("Remove symbolic link '%s'?"), cp); } else { HTSprintf0(&tmpbuf, gettext("Remove symbolic link?")); } #endif } else { cannot_stat(testpath); FREE(tmpbuf); return 0; } if (HTConfirm(tmpbuf) == YES) { HTSprintf0(&tmpbuf,"remove %s",testpath); args[0] = "rm"; args[1] = "-rf"; args[2] = testpath; args[3] = (char *) 0; code = (LYExecv(RM_PATH, args, tmpbuf) <= 0) ? -1 : 1; } FREE(tmpbuf); return code; } /* * Remove a file or a directory. */ PUBLIC int local_remove ARGS1( document *, doc) { char *cp, *tp; char testpath[DIRED_MAXBUF]; int count, i; if (!HTList_isEmpty(tagged)) { count = remove_tagged(); if (doc->link > (nlinks-count - 1)) doc->link = (nlinks-count - 1); doc->link = (doc->link < 0) ? 0 : doc->link; return count; } else if (doc->link < 0 || doc->link > nlinks) { return 0; } cp = links[doc->link].lname; if (is_url(cp) == FILE_URL_TYPE) { tp = HTfullURL_toFile(cp); if (strlen(tp) >= DIRED_MAXBUF) { FREE(tp); return 0; } strcpy(testpath, tp); FREE(tp); if ((i = strlen(testpath)) && testpath[i - 1] == '/') testpath[(i - 1)] = '\0'; if (remove_single(testpath)) { if (doc->link == (nlinks - 1)) --doc->link; return 1; } } return 0; } #ifdef OK_PERMIT PRIVATE char LYValidPermitFile[LY_MAXPATH] = "\0"; PRIVATE long permit_bits ARGS1(char *, string_mode) { if (!strcmp(string_mode, "IRUSR")) return S_IRUSR; if (!strcmp(string_mode, "IWUSR")) return S_IWUSR; if (!strcmp(string_mode, "IXUSR")) return S_IXUSR; if (!strcmp(string_mode, "IRGRP")) return S_IRGRP; if (!strcmp(string_mode, "IWGRP")) return S_IWGRP; if (!strcmp(string_mode, "IXGRP")) return S_IXGRP; if (!strcmp(string_mode, "IROTH")) return S_IROTH; if (!strcmp(string_mode, "IWOTH")) return S_IWOTH; if (!strcmp(string_mode, "IXOTH")) return S_IXOTH; /* Don't include setuid and friends; use shell access for that. */ return 0; } /* * Handle DIRED permissions. */ PRIVATE int permit_location ARGS3( char *, destpath, char *, srcpath, char **, newpath) { #ifndef UNIX HTAlert(gettext("Sorry, don't know how to permit non-UNIX files yet.")); return(0); #else static char tempfile[LY_MAXPATH] = "\0"; char *cp; char *tmpbuf = NULL; char tmpdst[LY_MAXPATH]; struct stat dir_info; if (srcpath) { /* * Create form. */ FILE *fp0; char * user_filename; char * group_name; srcpath = strip_trailing_slash(srcpath); /* * A couple of sanity tests. */ if (!ok_lstat(srcpath, &dir_info) || !ok_file_or_dir(&dir_info)) return 0; user_filename = LYPathLeaf(srcpath); LYRemoveTemp(tempfile); if ((fp0 = LYOpenTemp(tempfile, HTML_SUFFIX, "w")) == NULL) { HTAlert(gettext("Unable to open permit options file")); return(0); } /* * Make the tempfile a URL. */ LYLocalFileToURL(newpath, tempfile); LYRegisterUIPage(*newpath, UIP_PERMIT_OPTIONS); group_name = HTAA_GidToName (dir_info.st_gid); LYstrncpy(LYValidPermitFile, srcpath, (sizeof(LYValidPermitFile) - 1)); fprintf(fp0, "\n%s\n\n\n", PERMIT_OPTIONS_TITLE); fprintf(fp0,"

%s%s

\n", PERMISSIONS_SEGMENT, user_filename); { /* * Prevent filenames which include '#' or '?' from messing it up. */ char * srcpath_url = HTEscape(srcpath, URL_PATH); fprintf(fp0, "
\n", srcpath_url); FREE(srcpath_url); } fprintf(fp0, "
  1. %s

    \n", gettext("Specify permissions below:")); fprintf(fp0, "%s:
    \n", gettext("Owner:")); fprintf(fp0, " Read
    \n", (dir_info.st_mode & S_IRUSR) ? "checked" : ""); fprintf(fp0, " Write
    \n", (dir_info.st_mode & S_IWUSR) ? "checked" : ""); /* * If restricted, only change eXecute permissions on directories. */ if (!no_change_exec_perms || S_ISDIR(dir_info.st_mode)) fprintf(fp0, " %s
    \n", (dir_info.st_mode & S_IXUSR) ? "checked" : "", S_ISDIR(dir_info.st_mode) ? "Search" : "Execute"); fprintf(fp0, "%s %s:
    \n", gettext("Group"), group_name); fprintf(fp0, " Read
    \n", (dir_info.st_mode & S_IRGRP) ? "checked" : ""); fprintf(fp0, " Write
    \n", (dir_info.st_mode & S_IWGRP) ? "checked" : ""); /* * If restricted, only change eXecute permissions on directories. */ if (!no_change_exec_perms || S_ISDIR(dir_info.st_mode)) fprintf(fp0, " %s
    \n", (dir_info.st_mode & S_IXGRP) ? "checked" : "", S_ISDIR(dir_info.st_mode) ? "Search" : "Execute"); fprintf(fp0, "%s
    \n", gettext("Others:")); fprintf(fp0, " Read
    \n", (dir_info.st_mode & S_IROTH) ? "checked" : ""); fprintf(fp0, " Write
    \n", (dir_info.st_mode & S_IWOTH) ? "checked" : ""); /* * If restricted, only change eXecute permissions on directories. */ if (!no_change_exec_perms || S_ISDIR(dir_info.st_mode)) fprintf(fp0, " %s
    \n", (dir_info.st_mode & S_IXOTH) ? "checked" : "", S_ISDIR(dir_info.st_mode) ? "Search" : "Execute"); fprintf(fp0, "
    \n
  2. %s %s %s.\n
\n
\n", gettext("form to permit"), S_ISDIR(dir_info.st_mode) ? "directory" : "file", user_filename); fprintf(fp0, ""); LYCloseTempFP(fp0); LYforce_no_cache = TRUE; return(PERMIT_FORM_RESULT); /* Special flag for LYMainLoop */ } else { /* The form being activated. */ mode_t new_mode = 0; char *args[5]; char amode[10]; /* * Make sure we have a valid set-permission * file comparison string loaded via a previous * call with srcpath != NULL. - KW */ if (LYValidPermitFile[0] == '\0') { if (LYCursesON) HTAlert(INVALID_PERMIT_URL); else fprintf(stderr, "%s\n", INVALID_PERMIT_URL); CTRACE((tfp, "permit_location: called for <%s>.\n", (destpath ? destpath : "NULL URL pointer"))); return 0; } cp = destpath; while (*cp != '\0' && *cp != '?') { /* Find filename */ cp++; } if (*cp == '\0') { return(0); /* Nothing to permit. */ } *cp++ = '\0'; /* Null terminate file name and start working on the masks. */ /* Will now operate only on filename part. */ if ((destpath = HTURLPath_toFile(destpath, TRUE)) == 0) return(0); if (strlen(destpath) >= LY_MAXPATH) { FREE(destpath); return(0); } strcpy(tmpdst, destpath); FREE(destpath); destpath = tmpdst; /* * Make sure that the file string is the one from * the last displayed File Permissions menu. - KW */ if (strcmp(destpath, LYValidPermitFile)) { if (LYCursesON) HTAlert(INVALID_PERMIT_URL); else fprintf(stderr, "%s\n", INVALID_PERMIT_URL); CTRACE((tfp, "permit_location: called for file '%s'.\n", destpath)); return 0; } /* * A couple of sanity tests. */ destpath = strip_trailing_slash(destpath); if (!ok_stat(destpath, &dir_info) || !ok_file_or_dir(&dir_info)) { return 0; } /* * Cycle over permission strings. */ while(*cp != '\0') { char *cr = cp; while(*cr != '\0' && *cr != '&') { /* GET data split by '&'. */ cr++; } if (*cr != '\0') { *cr++ = '\0'; } if (strncmp(cp, "mode=", 5) == 0) { /* Magic string. */ long mask = permit_bits(cp + 5); if (mask != 0) { /* * If restricted, only change eXecute * permissions on directories. */ if (!no_change_exec_perms || strchr(cp+5, 'X') == NULL || S_ISDIR(dir_info.st_mode)) new_mode |= mask; } else { HTAlert(gettext("Invalid mode format.")); return 0; } } else { HTAlert(gettext("Invalid syntax format.")); return 0; } cp = cr; } #ifdef UNIX /* * Call chmod(). */ HTSprintf0(&tmpbuf, "chmod %.4o %s", (unsigned int)new_mode, destpath); sprintf(amode, "%.4o", (unsigned int)new_mode); args[0] = "chmod"; args[1] = amode; args[2] = destpath; args[3] = (char *) 0; if (LYExecv(CHMOD_PATH, args, tmpbuf) <= 0) { FREE(tmpbuf); return (-1); } FREE(tmpbuf); #endif /* UNIX */ LYforce_no_cache = TRUE; /* Force update of dired listing. */ return 1; } #endif /* !UNIX */ } #endif /* OK_PERMIT */ /* * Display or remove a tag from a given link. */ PUBLIC void tagflag ARGS2( int, flag, int, cur) { if (nlinks > 0) { LYmove(links[cur].ly, 2); stop_reverse(); if (flag == ON) { LYaddch('+'); } else { LYaddch(' '); } #if defined(FANCY_CURSES) || defined(USE_SLANG) if (!LYShowCursor) LYHideCursor(); /* get cursor out of the way */ else #endif /* FANCY CURSES || USE_SLANG */ /* * Never hide the cursor if there's no FANCY CURSES. */ LYmove(links[cur].ly, links[cur].lx); LYrefresh(); } } /* * Handle DIRED tags. */ PUBLIC void showtags ARGS1( HTList *, t) { int i; HTList *s; char *name; for (i = 0; i < nlinks; i++) { s = t; while ((name = HTList_nextObject(s)) != NULL) { if (!strcmp(links[i].lname, name)) { tagflag(ON, i); break; } } } } PRIVATE char * DirectoryOf ARGS1( char *, pathname) { char *result = 0; char *result1 = 0; char *leaf; StrAllocCopy(result, pathname); leaf = LYPathLeaf(result); if (leaf != result) { *leaf = '\0'; if (!LYisRootPath(result)) LYTrimPathSep(result); result1 = wwwName(result); StrAllocCopy (result, result1); } return result; } #ifdef __DJGPP__ /* * Convert filenames to acceptable 8+3 names when necessary. Make a copy of * the parameter if we must modify it. */ PRIVATE char * LYonedot ARGS1( char *, line) { char *dot; static char line1[LY_MAXPATH]; if (pathconf (line, _PC_NAME_MAX) <= 12) { LYstrncpy(line1, line, sizeof(line1)-1); for (;;) { if ((dot = strrchr(line1, '.')) == 0 || LYLastPathSep(dot) != 0) { break; } else if (strlen(dot) == 1) { *dot = 0; } else { *dot = '_'; } } return(line1); } return(line); } #else #define LYonedot(path) path #endif /* __DJGPP__ */ PRIVATE char * match_op ARGS2( CONST char *, prefix, char *, data) { int len = strlen(prefix); if (!strncmp("LYNXDIRED://", data, 12) && !strncmp(prefix, data + 12, (unsigned)len)) { len += 12; #if defined(DOSPATH) || defined(__EMX__) if (data[len] == '/') { /* this is normal */ len++; } #endif return data + len; } return 0; } /* * Perform file management operations for LYNXDIRED URL's. * Attempt to be consistent. These are (pseudo) URLs - i.e., they should * be in URL syntax: some bytes will be URL-escaped with '%'. This is * necessary because these (pseudo) URLs will go through some of the same * kinds of interpretations and mutilations as real ones: HTParse, stripping * off #fragments etc. (Some access schemes currently have special rules * about not escaping parsing '#' "the URL way" built into HTParse, but that * doesn't look like a clean way.) */ PUBLIC int local_dired ARGS1( document *, doc) { char *line_url; /* will point to doc's address, which is a URL */ char *line = NULL; /* same as line_url, but HTUnEscaped, will be alloced */ char *arg = NULL; /* ...will point into line[] */ char *tp = NULL; char *tmpbuf = NULL; char *buffer = NULL; char *dirname = NULL; BOOL do_pop_doc = TRUE; line_url = doc->address; CTRACE((tfp, "local_dired: called for <%s>.\n", (line_url ? line_url : gettext("NULL URL pointer")))); HTUnEscapeSome(line_url, "/"); /* don't mess too much with *doc */ StrAllocCopy(line, line_url); HTUnEscape(line); /* _file_ (not URL) syntax, for those functions that need it. Don't forget to FREE it. */ if ((arg = match_op("CHDIR", line)) != 0) { #ifdef SUPPORT_CHDIR handle_LYK_CHDIR(); do_pop_doc = FALSE; #endif arg = "blah"; /* do something to avoid cc's complaints */ } else if ((arg = match_op("NEW_FILE", line)) != 0) { if (create_file(arg) > 0) LYforce_no_cache = TRUE; } else if ((arg = match_op("NEW_FOLDER", line)) != 0) { if (create_directory(arg) > 0) LYforce_no_cache = TRUE; #ifdef OK_INSTALL } else if ((arg = match_op("INSTALL_SRC", line)) != 0) { local_install(NULL, arg, &tp); if (tp) { FREE(doc->address); doc->address = tp; } FREE(line); return 0; } else if ((arg = match_op("INSTALL_DEST", line)) != 0) { local_install(arg, NULL, &tp); LYpop(doc); #endif /* OK_INSTALL */ } else if ((arg = match_op("MODIFY_NAME", line)) != 0) { if (modify_name(arg) > 0) LYforce_no_cache = TRUE; } else if ((arg = match_op("MODIFY_LOCATION", line)) != 0) { if (modify_location(arg) > 0) LYforce_no_cache = TRUE; } else if ((arg = match_op("MOVE_TAGGED", line_url)) != 0) { if (modify_tagged(arg) > 0) LYforce_no_cache = TRUE; #ifdef OK_PERMIT } else if ((arg = match_op("PERMIT_SRC", line)) != 0) { permit_location(NULL, arg, &tp); if (tp) { /* * One of the checks may have failed. */ FREE(doc->address); doc->address = tp; } FREE(line); return 0; } else if ((arg = match_op("PERMIT_LOCATION", line_url)) != 0) { permit_location(arg, NULL, &tp); #endif /* OK_PERMIT */ } else if ((arg = match_op("REMOVE_SINGLE", line)) != 0) { if (remove_single(arg) > 0) LYforce_no_cache = TRUE; } else if ((arg = match_op("REMOVE_TAGGED", line)) != 0) { if (remove_tagged()) LYforce_no_cache = TRUE; } else if ((arg = match_op("CLEAR_TAGGED", line)) != 0) { clear_tags(); } else if ((arg = match_op("UPLOAD", line)) != 0) { /* * They're written by LYUpload_options() HTUnEscaped; * don't want to change that for now... so pass through * without more unescaping. Directory names containing * '#' will probably fail. */ if (LYUpload(line_url)) LYforce_no_cache = TRUE; } else { LYTrimPathSep(line); if (LYLastPathSep(line) == NULL) { FREE(line); return 0; } /* * Construct the appropriate system command taking care to * escape all path references to avoid spoofing the shell. */ if ((arg = match_op("DECOMPRESS", line)) != 0) { #define FMT_UNCOMPRESS "%s %s" HTAddParam(&buffer, FMT_UNCOMPRESS, 1, UNCOMPRESS_PATH); HTAddParam(&buffer, FMT_UNCOMPRESS, 2, arg); HTEndParam(&buffer, FMT_UNCOMPRESS, 2); #if defined(OK_UUDECODE) && !defined(ARCHIVE_ONLY) } else if ((arg = match_op("UUDECODE", line)) != 0) { #define FMT_UUDECODE "%s %s" HTAddParam(&buffer, FMT_UUDECODE, 1, UUDECODE_PATH); HTAddParam(&buffer, FMT_UUDECODE, 2, arg); HTEndParam(&buffer, FMT_UUDECODE, 2); HTAlert(gettext("Warning! UUDecoded file will exist in the directory you started Lynx.")); #endif /* OK_UUDECODE && !ARCHIVE_ONLY */ #ifdef OK_TAR # ifndef ARCHIVE_ONLY # ifdef OK_GZIP } else if ((arg = match_op("UNTAR_GZ", line)) != 0) { #define FMT_UNTAR_GZ "cd %s; %s -qdc %s | %s -xf -" dirname = DirectoryOf(arg); HTAddParam(&buffer, FMT_UNTAR_GZ, 1, dirname); HTAddParam(&buffer, FMT_UNTAR_GZ, 2, GZIP_PATH); HTAddParam(&buffer, FMT_UNTAR_GZ, 3, arg); HTAddParam(&buffer, FMT_UNTAR_GZ, 4, TAR_PATH); HTEndParam(&buffer, FMT_UNTAR_GZ, 4); # endif /* OK_GZIP */ } else if ((arg = match_op("UNTAR_Z", line)) != 0) { #define FMT_UNTAR_Z "cd %s; %s %s | %s -xf -" dirname = DirectoryOf(arg); HTAddParam(&buffer, FMT_UNTAR_Z, 1, dirname); HTAddParam(&buffer, FMT_UNTAR_Z, 2, ZCAT_PATH); HTAddParam(&buffer, FMT_UNTAR_Z, 3, arg); HTAddParam(&buffer, FMT_UNTAR_Z, 4, TAR_PATH); HTEndParam(&buffer, FMT_UNTAR_Z, 4); } else if ((arg = match_op("UNTAR", line)) != 0) { #define FMT_UNTAR "cd %s; %s -xf %s" dirname = DirectoryOf(arg); HTAddParam(&buffer, FMT_UNTAR, 1, dirname); HTAddParam(&buffer, FMT_UNTAR, 2, TAR_PATH); HTAddParam(&buffer, FMT_UNTAR, 3, arg); HTEndParam(&buffer, FMT_UNTAR, 3); # endif /* !ARCHIVE_ONLY */ # ifdef OK_GZIP } else if ((arg = match_op("TAR_GZ", line)) != 0) { #define FMT_TAR_GZ "cd %s; %s -cf - %s | %s -qc >%s%s" dirname = DirectoryOf(arg); HTAddParam(&buffer, FMT_TAR_GZ, 1, dirname); HTAddParam(&buffer, FMT_TAR_GZ, 2, TAR_PATH); HTAddParam(&buffer, FMT_TAR_GZ, 3, LYPathLeaf(arg)); HTAddParam(&buffer, FMT_TAR_GZ, 4, GZIP_PATH); HTAddParam(&buffer, FMT_TAR_GZ, 5, LYonedot(LYPathLeaf(arg))); HTAddParam(&buffer, FMT_TAR_GZ, 6, EXT_TAR_GZ); HTEndParam(&buffer, FMT_TAR_GZ, 6); # endif /* OK_GZIP */ } else if ((arg = match_op("TAR_Z", line)) != 0) { #define FMT_TAR_Z "cd %s; %s -cf - %s | %s >%s%s" dirname = DirectoryOf(arg); HTAddParam(&buffer, FMT_TAR_Z, 1, dirname); HTAddParam(&buffer, FMT_TAR_Z, 2, TAR_PATH); HTAddParam(&buffer, FMT_TAR_Z, 3, LYPathLeaf(arg)); HTAddParam(&buffer, FMT_TAR_Z, 4, COMPRESS_PATH); HTAddParam(&buffer, FMT_TAR_Z, 5, LYonedot(LYPathLeaf(arg))); HTAddParam(&buffer, FMT_TAR_Z, 6, EXT_TAR_Z); HTEndParam(&buffer, FMT_TAR_Z, 6); } else if ((arg = match_op("TAR", line)) != 0) { #define FMT_TAR "cd %s; %s -cf %s.tar %s" dirname = DirectoryOf(arg); HTAddParam(&buffer, FMT_TAR, 1, dirname); HTAddParam(&buffer, FMT_TAR, 2, TAR_PATH); HTAddParam(&buffer, FMT_TAR, 3, LYonedot(LYPathLeaf(arg))); HTAddParam(&buffer, FMT_TAR, 4, LYPathLeaf(arg)); HTEndParam(&buffer, FMT_TAR, 4); #endif /* OK_TAR */ #ifdef OK_GZIP } else if ((arg = match_op("GZIP", line)) != 0) { #define FMT_GZIP "%s -q %s" HTAddParam(&buffer, FMT_GZIP, 1, GZIP_PATH); HTAddParam(&buffer, FMT_GZIP, 2, arg); HTEndParam(&buffer, FMT_GZIP, 2); #ifndef ARCHIVE_ONLY } else if ((arg = match_op("UNGZIP", line)) != 0) { #define FMT_UNGZIP "%s -d %s" HTAddParam(&buffer, FMT_UNGZIP, 1, GZIP_PATH); HTAddParam(&buffer, FMT_UNGZIP, 2, arg); HTEndParam(&buffer, FMT_UNGZIP, 2); #endif /* !ARCHIVE_ONLY */ #endif /* OK_GZIP */ #ifdef OK_ZIP } else if ((arg = match_op("ZIP", line)) != 0) { #define FMT_ZIP "cd %s; %s -rq %s.zip %s" dirname = DirectoryOf(arg); HTAddParam(&buffer, FMT_ZIP, 1, dirname); HTAddParam(&buffer, FMT_ZIP, 2, ZIP_PATH); HTAddParam(&buffer, FMT_ZIP, 3, LYonedot(LYPathLeaf(arg))); HTAddParam(&buffer, FMT_ZIP, 4, LYPathLeaf(arg)); HTEndParam(&buffer, FMT_ZIP, 4); #ifndef ARCHIVE_ONLY } else if ((arg = match_op("UNZIP", line)) != 0) { #define FMT_UNZIP "cd %s; %s -q %s" dirname = DirectoryOf(arg); HTAddParam(&buffer, FMT_UNZIP, 1, dirname); HTAddParam(&buffer, FMT_UNZIP, 2, UNZIP_PATH); HTAddParam(&buffer, FMT_UNZIP, 3, arg); HTEndParam(&buffer, FMT_UNZIP, 3); # endif /* !ARCHIVE_ONLY */ #endif /* OK_ZIP */ } else if ((arg = match_op("COMPRESS", line)) != 0) { #define FMT_COMPRESS "%s %s" HTAddParam(&buffer, FMT_COMPRESS, 1, COMPRESS_PATH); HTAddParam(&buffer, FMT_COMPRESS, 2, arg); HTEndParam(&buffer, FMT_COMPRESS, 2); } if (buffer != 0) { if ((int) strlen(buffer) < LYcols - 15) { HTSprintf0(&tmpbuf, gettext("Executing %s "), buffer); } else { HTSprintf0(&tmpbuf, gettext("Executing system command. This might take a while.")); } _statusline(tmpbuf); stop_curses(); printf("%s\r\n", tmpbuf); LYSystem(buffer); #ifdef VMS HadVMSInterrupt = FALSE; #endif /* VMS */ start_curses(); LYforce_no_cache = TRUE; } } FREE(dirname); FREE(tmpbuf); FREE(buffer); FREE(line); FREE(tp); if (do_pop_doc) LYpop(doc); return 0; } /* * Provide a menu of file management options. */ PUBLIC int dired_options ARGS2( document *, doc, char **, newfile) { static char tempfile[LY_MAXPATH]; char *path; char *dir; lynx_list_item_type *nxt; struct stat dir_info; FILE *fp0; char *dir_url; char *path_url; BOOLEAN nothing_tagged; int count; struct dired_menu *mp; char buf[2048]; LYRemoveTemp(tempfile); if ((fp0 = LYOpenTemp(tempfile, HTML_SUFFIX, "w")) == NULL) { HTAlert(gettext("Unable to open file management menu file.")); return(0); } /* * Make the tempfile a URL. */ LYLocalFileToURL(newfile, tempfile); LYRegisterUIPage(*newfile, UIP_DIRED_MENU); if (doc->link > -1 && doc->link < (nlinks+1)) { path = HTfullURL_toFile(links[doc->link].lname); LYTrimPathSep(path); if (!ok_lstat(path, &dir_info)) { LYCloseTempFP(fp0); FREE(path); return 0; } } else { StrAllocCopy(path, ""); } dir = HTfullURL_toFile(doc->address); LYTrimPathSep(dir); nothing_tagged = (BOOL) (HTList_isEmpty(tagged)); BeginInternalPage(fp0, DIRED_MENU_TITLE, DIRED_MENU_HELP); fprintf(fp0, "%s %s
\n", gettext("Current directory:"), dir); if (nothing_tagged) { fprintf(fp0, "%s ", gettext("Current selection:")); if (strlen(path)) { fprintf(fp0, "%s

\n", path); } else { fprintf(fp0, "%s.

\n", gettext("Nothing currently selected.")); } } else { /* * Write out number of tagged items, and names of first * few of them relative to current (in the DIRED sense) * directory. */ int n = HTList_count(tagged); char *cp1 = NULL; char *cd = NULL; int i, m; #define NUM_TAGS_TO_WRITE 10 fprintf(fp0, "%s %d %s", gettext("Current selection:"), n, ((n == 1) ? gettext("tagged item:") : gettext("tagged items:"))); StrAllocCopy(cd, doc->address); HTUnEscapeSome(cd, "/"); LYAddHtmlSep(&cd); m = (n < NUM_TAGS_TO_WRITE) ? n : NUM_TAGS_TO_WRITE; for (i = 1; i <= m; i++) { cp1 = HTRelative(HTList_objectAt(tagged, i-1), (*cd ? cd : "file://localhost")); HTUnEscape(cp1); LYEntify(&cp1, TRUE); /* _should_ do this everywhere... */ fprintf(fp0, "%s
\n   %s", (i == 1 ? "" : " ,"), cp1); FREE(cp1); } if (n > m) { fprintf(fp0," , ..."); } fprintf(fp0, "

\n"); FREE(cd); } /* * If menu_head is NULL then use defaults and link them together now. */ if (menu_head == NULL) { for (mp = defmenu; mp->href != NULL; mp++) mp->next = (mp + 1); (--mp)->next = NULL; menu_head = defmenu; } for (mp = menu_head; mp != NULL; mp = mp->next) { if (mp->cond != DE_TAG && !nothing_tagged) continue; if (mp->cond == DE_TAG && nothing_tagged) continue; if (mp->cond == DE_DIR && (!*path || !S_ISDIR(dir_info.st_mode))) continue; if (mp->cond == DE_FILE && (!*path || !S_ISREG(dir_info.st_mode))) continue; #ifdef S_IFLNK if (mp->cond == DE_SYMLINK && (!*path || !S_ISLNK(dir_info.st_mode))) continue; #endif if (*mp->sfx && (strlen(path) < strlen(mp->sfx) || strcmp(mp->sfx, &path[(strlen(path) - strlen(mp->sfx))]) != 0)) continue; dir_url = HTEscape(dir, URL_PATH); path_url = HTEscape(path, URL_PATH); fprintf(fp0, "href, path_url, dir_url, buf,sizeof(buf), YES)); fprintf(fp0, "\">%s ", render_item(mp->link, path, dir, buf,sizeof(buf), NO)); fprintf(fp0, "%s
\n", render_item(mp->rest, path, dir, buf,sizeof(buf), NO)); FREE(dir_url); FREE(path_url); } FREE(path); if (uploaders != NULL) { fprintf(fp0, "

Upload to current directory:

\n"); for (count = 0, nxt = uploaders; nxt != NULL; nxt = nxt->next, count++) { fprintf(fp0, " %s
\n", count, dir, nxt->name); } } FREE(dir); EndInternalPage(fp0); LYCloseTempFP(fp0); LYforce_no_cache = TRUE; return(0); } /* * Check DIRED filename. */ PRIVATE char *get_filename ARGS3( char *, prompt, char *, buf, size_t, bufsize) { char *cp; _statusline(prompt); *buf = '\0'; LYgetstr(buf, VISIBLE, bufsize, NORECALL); if (strstr(buf, "../") != NULL) { HTAlert(gettext("Illegal filename; request ignored.")); return NULL; } if (no_dotfiles || !show_dotfiles) { cp = LYLastPathSep(buf); /* find last slash */ if (cp) cp += 1; else cp = buf; if (*cp == '.') { HTAlert(gettext("Illegal filename; request ignored.")); return NULL; } } return buf; } #ifdef OK_INSTALL #define LYEXECV_MAX_ARGC 15 /* these are quasi-constant once they have been allocated: */ static char ** install_argp = NULL; /* args for execv install */ static char * install_path = NULL; /* auxiliary */ #ifdef LY_FIND_LEAKS PRIVATE void clear_install_path NOARGS { FREE(install_argp); FREE(install_path); } #endif /* LY_FIND_LEAKS */ /* * Fill in args array for execv (or execvp etc.) call, after first * allocating it if necessary. No fancy parsing, cmd_args is just * split at spaces. Leave room for reserve additional args to be * added by caller. * On success *argvp points to new args vector, *pathp is auxiliary. * On success returns index of next argument, else -1. * This is generic enough that it could be used for other calls than * install, except the atexit call. Go through this trouble for install * because INSTALL_ARGS may be significant, and someone may configure it * with more than one significant flags. - kw */ PRIVATE int fill_argv_for_execv ARGS5( char ***, argvp, char **, pathp, char *, cmd_path, CONST char *, cmd_args, int, reserve) { int n = 0; char **args; char *cp; if (*argvp == NULL) { *argvp = typecallocn(char *, LYEXECV_MAX_ARGC+1); if (!*argvp) return(-1); #ifdef LY_FIND_LEAKS atexit(clear_install_path); #endif } args = *argvp; args[n++] = cmd_path; if (cmd_args) { StrAllocCopy(*pathp, cmd_args); cp = strtok(*pathp, " "); if (cp) { while (cp && (n < LYEXECV_MAX_ARGC - reserve)) { args[n++] = cp; cp = strtok(NULL, " "); } if (cp && (n >= LYEXECV_MAX_ARGC - reserve)) { CTRACE((tfp, "Too many args for '%s' in '%s'!\n", NONNULL(cmd_path), cmd_args)); return(-1); } } else { args[n++] = *pathp; } } args[n] = (char *)0; return(n); } /* * Install the specified file or directory. */ PUBLIC BOOLEAN local_install ARGS3( char *, destpath, char *, srcpath, char **, newpath) { char *tmpbuf = NULL; static char savepath[DIRED_MAXBUF]; /* This will be the link that is to be installed. */ struct stat dir_info; char **args; HTList *tag; char *cp = NULL; char *tmpdest = NULL; int count = 0; int n = 0; /* indices into 'args[]' */ static int src = -1; /* * Determine the status of the selected item. */ if (srcpath) { srcpath = strip_trailing_slash(srcpath); if (is_url(srcpath)) { char *local_src = HTfullURL_toFile(srcpath); if (!ok_localname(savepath, local_src)) { FREE(local_src); return 0; } FREE(local_src); } else if (!HTList_isEmpty(tagged) && srcpath[0] == '\0') { savepath[0] = '\0'; /* will always use tagged list - kw */ } else if (!ok_localname(savepath, srcpath)) { return 0; } LYforce_no_cache = TRUE; LYLocalFileToURL(newpath, Home_Dir()); LYAddHtmlSep(newpath); StrAllocCat(*newpath, INSTALLDIRS_FILE); LYRegisterUIPage(*newpath, UIP_INSTALL); return 0; } /* deal with ~/ or /~/ at the beginning - kw */ if (destpath[0] == '~' && (destpath[1] == '/' || destpath[1] == '\0')) { cp = &destpath[1]; } else if (destpath[0] == '/' && destpath[1] == '~' && (destpath[2] == '/' || destpath[2] == '\0')) { cp = &destpath[2]; } if (cp) { /* If found, allocate new string, make destpath point to it - kw */ StrAllocCopy(tmpdest, Home_Dir()); if (cp[0] && cp[1]) { LYAddPathSep(&tmpdest); StrAllocCat(tmpdest, cp + 1); } destpath = tmpdest; } destpath = strip_trailing_slash(destpath); if (!ok_stat(destpath, &dir_info)) { FREE(tmpdest); return 0; } else if (!S_ISDIR(dir_info.st_mode)) { HTAlert(gettext("The selected item is not a directory! Request ignored.")); FREE(tmpdest); return 0; } else if (0 /*directory not writable*/) { HTAlert(gettext("Install in the selected directory not permitted.")); FREE(tmpdest); return 0; } statusline(gettext("Just a moment, ...")); /* fill in the fixed args, if not already done - kw */ if (src > 0 && install_argp) { n = src; n++; } else { n = fill_argv_for_execv(&install_argp, &install_path, "install", #ifdef INSTALL_ARGS INSTALL_ARGS, #else NULL, #endif /* INSTALL_ARGS */ 2); if (n <= 0) { src = 0; HTAlert(gettext("Error buiding install args")); FREE(tmpdest); return 0; } src = n++; } args = install_argp; args[n++] = destpath; args[n] = (char *)0; tag = tagged; if (HTList_isEmpty(tagged)) { /* simplistic detection of identical src and dest - kw */ if (!strcmp(savepath, destpath)) { HTUserMsg2(gettext("Source and target are the same: %s"), savepath); FREE(tmpdest); return(-1); /* don't do it */ } else if (!strncmp(savepath, destpath, strlen(destpath)) && LYIsPathSep(savepath[strlen(destpath)]) && #ifdef DOSPATH !strchr(savepath + strlen(destpath) + 1, '\\') && #endif !strchr(savepath + strlen(destpath) + 1, '/')) { HTUserMsg2(gettext("Already in target directory: %s"), savepath); FREE(tmpdest); return 0; /* don't do it */ } args[src] = savepath; HTSprintf0(&tmpbuf, "install %s in %s", savepath, destpath); if (LYExecv(INSTALL_PATH, args, tmpbuf) <= 0) { FREE(tmpbuf); FREE(tmpdest); return (-1); } count++; } else { char *name; HTSprintf0(&tmpbuf, "install in %s", destpath); while ((name = (char *)HTList_nextObject(tag))) { int err; args[src] = HTfullURL_toFile(name); /* simplistic detection of identical src and dest - kw */ if (!strcmp(args[src], destpath)) { HTUserMsg2(gettext("Source and target are the same: %s"), args[src]); FREE(args[src]); continue; /* skip this source file */ } else if (!strncmp(args[src], destpath, strlen(destpath)) && LYIsPathSep(args[src][strlen(destpath)]) && #ifdef DOSPATH !strchr(args[src] + strlen(destpath) + 1, '\\') && #endif !strchr(args[src] + strlen(destpath) + 1, '/')) { HTUserMsg2(gettext("Already in target directory: %s"), args[src]); FREE(args[src]); continue; /* skip this source file */ } err = (LYExecv(INSTALL_PATH, args, tmpbuf) <= 0); FREE(args[src]); if (err) { FREE(tmpbuf); FREE(tmpdest); return ((count == 0) ? -1 : count); } count++; } clear_tags(); } FREE(tmpbuf); FREE(tmpdest); HTInfoMsg(gettext("Installation complete")); return count; } #endif /* OK_INSTALL */ /* * Clear DIRED tags. */ PUBLIC void clear_tags NOARGS { char *cp = NULL; while ((cp = HTList_removeLastObject(tagged)) != NULL) { FREE(cp); } if (HTList_isEmpty(tagged)) FREE(tagged); } /* * Handle DIRED menu item. */ PUBLIC void add_menu_item ARGS1( char *, str) { struct dired_menu *new, *mp; char *cp; /* * First custom menu definition causes entire default menu to be * discarded. */ if (menu_head == defmenu) menu_head = NULL; new = typecalloc(struct dired_menu); if (new == NULL) outofmem(__FILE__, "add_menu_item"); /* * Conditional on tagged != NULL ? */ cp = strchr(str, ':'); *cp++ = '\0'; if (strcasecomp(str, "tag") == 0) { new->cond = DE_TAG; } else if (strcasecomp(str, "dir") == 0) { new->cond = DE_DIR; } else if (strcasecomp(str, "file") == 0) { new->cond = DE_FILE; #ifdef S_IFLNK } else if (strcasecomp(str, "link") == 0) { new->cond = DE_SYMLINK; #endif /* S_IFLNK */ } /* * Conditional on matching suffix. */ str = cp; cp = strchr(str, ':'); *cp++ = '\0'; StrAllocCopy(new->sfx, str); str = cp; cp = strchr(str, ':'); *cp++ = '\0'; StrAllocCopy(new->link, str); str = cp; cp = strchr(str, ':'); *cp++ = '\0'; StrAllocCopy(new->rest, str); StrAllocCopy(new->href, cp); if (menu_head) { for (mp = menu_head; mp && mp->next != NULL; mp = mp->next) ; mp->next = new; } else menu_head = new; } PUBLIC void reset_dired_menu NOARGS { if (menu_head != defmenu) { struct dired_menu *mp, *mp_next = NULL; for (mp = menu_head; mp != NULL; mp = mp_next) { FREE(mp->sfx); FREE(mp->link); FREE(mp->rest); FREE(mp->href); mp_next = mp_next; FREE(mp); } menu_head = NULL; } } /* * Create URL for DIRED HREF value. */ PRIVATE char * render_item ARGS6( CONST char *, s, CONST char *, path, CONST char *, dir, char *, buf, int, bufsize, BOOLEAN, url_syntax) { CONST char *cp; char *bp; char overrun = '\0'; char *taglist = NULL; #define BP_INC (bp>buf+bufsize-2 ? &overrun : bp++) /* Buffer overrun could happen for very long tag list, if %l or %t are used */ bp = buf; while (*s && !overrun) { if (*s == '%') { s++; switch (*s) { case '%': *BP_INC = '%'; break; case 'p': cp = path; if (!LYIsHtmlSep(*cp)) *BP_INC = '/'; while (*cp) *BP_INC = *cp++; break; case 'd': cp = dir; if (!LYIsHtmlSep(*cp)) *BP_INC = '/'; while (*cp) *BP_INC = *cp++; break; case 'f': cp = LYLastPathSep(path); if (cp) cp++; else cp = path; while (*cp) *BP_INC = *cp++; break; case 'l': case 't': if (!HTList_isEmpty(tagged)) { HTList *cur = tagged; char *name; while (!overrun && (name = (char *)HTList_nextObject(cur))!=NULL) { if (*s == 'l' && (cp = strrchr(name, '/'))) cp++; else cp = name; StrAllocCat(taglist, cp); StrAllocCat(taglist, " "); /* should this be %20?*/ } } if (taglist) { /* could HTUnescape here... */ cp = taglist; while (*cp) *BP_INC = *cp++; FREE(taglist); } break; default: *BP_INC = '%'; *BP_INC = *s; break; } } else { /* * Other chars come from the lynx.cfg or * the default. Let's assume there isn't * anything weird there that needs escaping. */ *BP_INC =*s; } s++; } if (overrun & url_syntax) { HTAlert(gettext("Temporary URL or list would be too long.")); bp = buf; /* set to start, will return empty string as URL */ } *bp = '\0'; return buf; } #endif /* DIRED_SUPPORT */