/*
* mod_aolserver aolserver emulation --- Copyright 2000 Robert S. Thau.
* This file derived from the actual aolserver code, and is distributed
* in accord with its license, as follows:
*
* The contents of this file are subject to the AOLserver Public License
* Version 1.1 (the "License"); you may not use this file except in
* compliance with the License. You may obtain a copy of the License at
* http://aolserver.lcs.mit.edu/.
*
* Software distributed under the License is distributed on an "AS IS"
* basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
* the License for the specific language governing rights and limitations
* under the License.
*
* The Original Code is AOLserver Code and related documentation
* distributed by AOL.
*
* The Initial Developer of the Original Code is America Online,
* Inc. Portions created by AOL are Copyright (C) 1999 America Online,
* Inc. All Rights Reserved.
*
* Alternatively, the contents of this file may be used under the terms
* of the GNU General Public License (the "GPL"), in which case the
* provisions of GPL are applicable instead of those above. If you wish
* to allow use of your version of this file only under the terms of the
* GPL and not to allow others to use your version of this file under the
* License, indicate your decision by deleting the provisions above and
* replace them with the notice and other provisions required by the GPL.
* If you do not delete the provisions above, a recipient may use your
* version of this file under either the License or the GPL.
*/
/*
* tclfile.c --
*
* Tcl commands that do stuff to the filesystem.
*/
#include "nsd.h"
#include <http_request.h> /* for the sub_req stuff */
#ifdef WIN32
#include <sys/utime.h>
#else
#include <utime.h>
#endif
/*
*==========================================================================
* API functions
*==========================================================================
*/
/*
*----------------------------------------------------------------------
*
* Ns_TclGetOpenChannel --
*
* Return an open channel with an interface similar to the
* pre-Tcl7.5 Tcl_GetOpenFile, used throughout AOLserver.
*
* Results:
* TCL_OK or TCL_ERROR.
*
* Side effects:
* The value at chanPtr is updated with a valid open Tcl_Channel.
*
*----------------------------------------------------------------------
*/
int
Ns_TclGetOpenChannel(Tcl_Interp *interp, char *chanId, int write,
int check, Tcl_Channel *chanPtr)
{
int mode;
*chanPtr = Tcl_GetChannel(interp, chanId, &mode);
if (*chanPtr == NULL) {
return TCL_ERROR;
}
if (check &&
((write && !(mode & TCL_WRITABLE)) ||
(!write && !(mode & TCL_READABLE)))) {
Tcl_AppendResult(interp, "channel \"", chanId, "\" not open for ",
write ? "write" : "read", NULL);
return TCL_ERROR;
}
return TCL_OK;
}
/*
*----------------------------------------------------------------------
*
* NsTclCpFpCmd --
*
* Implements ns_cpfp.
*
* Results:
* Tcl result.
*
* Side effects:
* See docs.
*
*----------------------------------------------------------------------
*/
int
NsTclCpFpCmd(ClientData dummy, Tcl_Interp *interp, int argc, char **argv)
{
Tcl_Channel in, out;
char buf[2048];
char *p;
int tocopy, nread, nwrote, toread, ntotal;
if (argc != 3 && argc != 4) {
Tcl_AppendResult(interp, "wrong # args: should be \"",
argv[0], " inChan outChan ?ncopy?\"", NULL);
return TCL_ERROR;
}
if (Ns_TclGetOpenChannel(interp, argv[1], 0, 1, &in) != TCL_OK ||
Ns_TclGetOpenChannel(interp, argv[2], 1, 1, &out) != TCL_OK) {
return TCL_ERROR;
}
if (argc == 3) {
tocopy = -1;
} else {
if (Tcl_GetInt(interp, argv[3], &tocopy) != TCL_OK) {
return TCL_ERROR;
}
if (tocopy < 0) {
Tcl_AppendResult(interp, "invalid length \"", argv[3],
"\": must be >= 0", NULL);
return TCL_ERROR;
}
}
ntotal = 0;
while (tocopy != 0) {
toread = sizeof(buf);
if (tocopy > 0 && toread > tocopy) {
toread = tocopy;
}
nread = Tcl_Read(in, buf, toread);
if (nread == 0) {
break;
} else if (nread < 0) {
Tcl_AppendResult(interp, "read failed: ",
Tcl_PosixError(interp), NULL);
return TCL_ERROR;
}
if (tocopy > 0) {
tocopy -= nread;
}
p = buf;
while (nread > 0) {
nwrote = Tcl_Write(out, p, nread);
if (nwrote < 0) {
Tcl_AppendResult(interp, "write failed: ",
Tcl_PosixError(interp), NULL);
return TCL_ERROR;
}
nread -= nwrote;
ntotal += nwrote;
p += nwrote;
}
}
sprintf(interp->result, "%d", ntotal);
return TCL_OK;
}
/*
*----------------------------------------------------------------------
*
* NsTclCpCmd --
*
* Implements ns_cp.
*
* Results:
* Tcl result.
*
* Side effects:
* See docs.
*
*----------------------------------------------------------------------
*/
int
NsTclCpCmd(ClientData dummy, Tcl_Interp *interp, int argc, char **argv)
{
int nread, towrite, nwrote;
char buf[4096], *src, *dst, *p, *emsg, *efile;
int preserve, result, rfd, wfd;
struct stat st;
struct utimbuf ut;
if (argc != 3 && argc != 4) {
badargs:
Tcl_AppendResult(interp, "wrong # args: should be \"",
argv[0], " ?-preserve? srcfile dstfile\"", NULL);
return TCL_ERROR;
}
wfd = rfd = -1;
result = TCL_ERROR;
if (argc == 3) {
preserve = 0;
src = argv[1];
dst = argv[2];
} else {
if (!STREQ(argv[1], "-preserve")) {
goto badargs;
}
preserve = 1;
src = argv[2];
dst = argv[3];
if (stat(src, &st) != 0) {
emsg = "stat";
efile = src;
goto done;
}
}
emsg = "open";
rfd = open(src, O_RDONLY);
if (rfd < 0) {
efile = src;
goto done;
}
wfd = open(dst, O_WRONLY|O_CREAT|O_TRUNC, 0644);
if (wfd < 0) {
efile = dst;
goto done;
}
while ((nread = read(rfd, buf, sizeof(buf))) > 0) {
p = buf;
towrite = nread;
while (towrite > 0) {
nwrote = write(wfd, p, towrite);
if (nwrote <= 0) {
emsg = "write";
efile = dst;
goto done;
}
towrite -= nwrote;
p += nwrote;
}
}
if (nread < 0) {
emsg = "read";
efile = src;
goto done;
}
if (!preserve) {
result = TCL_OK;
} else {
efile = dst;
if (chmod(dst, st.st_mode) != 0) {
emsg = "chmod";
goto done;
}
ut.actime = st.st_atime;
ut.modtime = st.st_mtime;
if (utime(dst, &ut) != 0) {
emsg = "utime";
goto done;
}
result = TCL_OK;
}
done:
if (result != TCL_OK) {
Tcl_AppendResult(interp, "could not ", emsg, " \"",
efile, "\": ", Tcl_PosixError(interp), NULL);
}
if (rfd >= 0) {
close(rfd);
}
if (wfd >= 0) {
close(wfd);
}
return result;
}
/*
*----------------------------------------------------------------------
*
* NsTclMkdirCmd --
*
* Implements ns_mkdir
*
* Results:
* Tcl result.
*
* Side effects:
* See docs.
*
*----------------------------------------------------------------------
*/
int
NsTclMkdirCmd(ClientData dummy, Tcl_Interp *interp, int argc, char **argv)
{
if (argc != 2) {
Tcl_AppendResult(interp, "wrong # args: should be \"",
argv[0], " dir\"", (char *) NULL);
return TCL_ERROR;
}
if (mkdir(argv[1], 0755) != 0) {
Tcl_AppendResult(interp, "mkdir (\"", argv[1],
"\") failed: ", Tcl_PosixError(interp), NULL);
return TCL_ERROR;
}
return TCL_OK;
}
/*
*----------------------------------------------------------------------
*
* NsTclRmdirCmd --
*
* Implements ns_rmdir
*
* Results:
* Tcl result.
*
* Side effects:
* See docs.
*
*----------------------------------------------------------------------
*/
int
NsTclRmdirCmd(ClientData dummy, Tcl_Interp *interp, int argc, char **argv)
{
if (argc != 2) {
Tcl_AppendResult(interp, "wrong # args: should be \"",
argv[0], " dir\"", (char *) NULL);
return TCL_ERROR;
}
if (rmdir(argv[1]) != 0) {
Tcl_AppendResult(interp, "rmdir (\"", argv[1],
"\") failed: ", Tcl_PosixError(interp), NULL);
return TCL_ERROR;
}
return TCL_OK;
}
#ifdef NOTDEF
/*
*----------------------------------------------------------------------
*
* NsTclRollFileCmd --
*
* Implements ns_rollfile.
*
* Results:
* Tcl result.
*
* Side effects:
* See docs.
*
*----------------------------------------------------------------------
*/
int
NsTclRollFileCmd(ClientData arg, Tcl_Interp *interp, int argc, char **argv)
{
int max, status;
char *cmd = arg;
if (argc != 3) {
Tcl_AppendResult(interp, "wrong # args: should be \"",
argv[0], " file backupMax\"", NULL);
return TCL_ERROR;
}
if (Tcl_GetInt(interp, argv[2], &max) != TCL_OK) {
return TCL_ERROR;
}
if (max <= 0 || max > 1000) {
Tcl_AppendResult(interp, "invalid max \"", argv[2],
"\": should be > 0 and <= 1000.", NULL);
return TCL_ERROR;
}
if (*cmd == 'p') {
status = Ns_PurgeFiles(argv[1], max);
} else {
status = Ns_RollFile(argv[1], max);
}
if (status != NS_OK) {
Tcl_AppendResult(interp, "could not ", cmd, " \"", argv[1],
"\": ", Tcl_PosixError(interp), NULL);
return TCL_ERROR;
}
return TCL_OK;
}
#endif
/*
*----------------------------------------------------------------------
*
* NsTclUnlinkCmd --
*
* Implement ns_unlink.
*
* Results:
* Tcl result.
*
* Side effects:
* See docs.
*
*----------------------------------------------------------------------
*/
int
NsTclUnlinkCmd(ClientData dummy, Tcl_Interp *interp, int argc, char **argv)
{
int fComplain = NS_TRUE;
if ((argc != 2) && (argc != 3)) {
Tcl_AppendResult(interp, "wrong # of args: should be \"",
argv[0], " ?-nocomplain? filename\"", NULL);
return TCL_ERROR;
}
if (argc == 3) {
if (!STREQ(argv[1], "-nocomplain")) {
Tcl_AppendResult(interp, "unknown flag \"",
argv[1], "\": should be -nocomplain", NULL);
return TCL_ERROR;
} else {
fComplain = NS_FALSE;
}
}
if (unlink(argv[argc-1]) != 0) {
if (fComplain || errno != ENOENT) {
Tcl_AppendResult(interp, "unlink (\"", argv[argc-1],
"\") failed: ", Tcl_PosixError(interp), NULL);
return TCL_ERROR;
}
}
return TCL_OK;
}
/*
*----------------------------------------------------------------------
*
* NsTclMkTempCmd --
*
* Implements ns_mktemp.
*
* Results:
* Tcl result.
*
* Side effects:
* See docs.
*
*----------------------------------------------------------------------
*/
int
NsTclMkTempCmd(ClientData dummy, Tcl_Interp *interp, int argc, char **argv)
{
char *copy;
if (argc != 2) {
Tcl_AppendResult(interp, "wrong # of args: should be \"",
argv[0], " template\"", NULL);
return TCL_ERROR;
}
copy = ap_pstrdup (TCL_POOL(), argv[1]);
Tcl_SetResult(interp, mktemp(copy), TCL_STATIC);
return TCL_OK;
}
/*
*----------------------------------------------------------------------
*
* NsTclTmpNamCmd --
*
* Implements ns_tmpnam.
*
* Results:
* Tcl result.
*
* Side effects:
* See docs.
*
*----------------------------------------------------------------------
*/
int
NsTclTmpNamCmd(ClientData dummy, Tcl_Interp *interp, int argc, char **argv)
{
char buf[L_tmpnam];
if (tmpnam(buf) == NULL) {
interp->result = "could not generate temporary filename.";
return TCL_ERROR;
}
Tcl_SetResult(interp, buf, TCL_VOLATILE);
return TCL_OK;
}
/*
*----------------------------------------------------------------------
*
* NsTclNormalizePathCmd --
*
* Implements ns_normalizepath.
*
* Results:
* Tcl result.
*
* Side effects:
* See docs.
*
*----------------------------------------------------------------------
*/
int
NsTclNormalizePathCmd(ClientData dummy, Tcl_Interp *interp, int argc,
char **argv)
{
Ns_DString ds;
if (argc != 2) {
Tcl_AppendResult(interp, "wrong # args: should be \"",
argv[0], " path\"", (char *) NULL);
return TCL_ERROR;
}
Ns_DStringInit(&ds);
Ns_NormalizePath(&ds, argv[1]);
Tcl_SetResult(interp, ds.string, TCL_VOLATILE);
Ns_DStringFree(&ds);
return TCL_OK;
}
/*
*----------------------------------------------------------------------
*
* NsTclUrl2FileCmd --
*
* Implements ns_url2file.
*
* Results:
* Tcl result.
*
* Side effects:
* See docs.
*
*----------------------------------------------------------------------
*/
int
NsTclUrl2FileCmd(ClientData dummy, Tcl_Interp *interp, int argc, char **argv)
{
request_rec *rr;
if (argc != 2) {
Tcl_AppendResult(interp, "wrong # args: should be \"",
argv[0], " url\"", NULL);
return TCL_ERROR;
}
rr = ap_sub_req_lookup_uri (argv[1], Tcl_request_rec);
Tcl_SetResult(interp, rr->filename, TCL_VOLATILE);
ap_destroy_sub_req (rr);
return TCL_OK;
}
/* Add this here, since it's basically similar */
int
NsTclGuessTypeCmd(ClientData dummy, Tcl_Interp *interp, int argc, char **argv)
{
request_rec *rr;
char *type;
if (argc != 2) {
Tcl_AppendResult(interp, "wrong # args: should be \"",
argv[0], " url\"", NULL);
return TCL_ERROR;
}
rr = ap_sub_req_lookup_file (argv[1], Tcl_request_rec);
if ((type = rr->content_type) == NULL)
type = ap_default_type (rr);
Tcl_SetResult(interp, type, TCL_VOLATILE);
ap_destroy_sub_req (rr);
return TCL_OK;
}
/*
*----------------------------------------------------------------------
*
* NsTclKillCmd --
*
* Implements ns_kill.
*
* Results:
* Tcl result.
*
* Side effects:
* See docs.
*
*----------------------------------------------------------------------
*/
int
NsTclKillCmd(ClientData dummy, Tcl_Interp *interp, int argc, char **argv)
{
int pid, signal;
if ((argc != 3) && (argc != 4)) {
badargs:
Tcl_AppendResult(interp, "wrong # of args: should be \"",
argv[0], " ?-nocomplain? pid signal", NULL);
return TCL_ERROR;
}
if (argc == 3) {
if (Tcl_GetInt(interp, argv[1], &pid) != TCL_OK) {
return TCL_ERROR;
}
if (Tcl_GetInt(interp, argv[2], &signal) != TCL_OK) {
return TCL_ERROR;
}
if (kill(pid, signal) != 0) {
Tcl_AppendResult(interp, "kill (\"", argv[1], ",", argv[2],
"\") failed: ", Tcl_PosixError(interp), NULL);
return TCL_ERROR;
}
} else {
if (strcmp(argv[1], "-nocomplain") != 0) {
goto badargs;
}
if (Tcl_GetInt(interp, argv[2], &pid) != TCL_OK) {
return TCL_ERROR;
}
if (Tcl_GetInt(interp, argv[3], &signal) != TCL_OK) {
return TCL_ERROR;
}
kill(pid, signal);
}
return TCL_OK;
}
/*
*----------------------------------------------------------------------
*
* NsTclLinkCmd --
*
* Implements ns_link.
*
* Results:
* Tcl result.
*
* Side effects:
* See docs.
*
*----------------------------------------------------------------------
*/
int
NsTclLinkCmd(ClientData dummy, Tcl_Interp *interp, int argc, char **argv)
{
if ((argc != 3) && (argc != 4)) {
Tcl_AppendResult(interp, "wrong # of args: should be \"",
argv[0], " ?-nocomplain? filename1 filename2\"", NULL);
return TCL_ERROR;
}
if (argc == 3) {
if (link(argv[1], argv[2]) != 0) {
Tcl_AppendResult(interp, "link (\"", argv[1], "\", \"", argv[2],
"\") failed: ", Tcl_PosixError(interp), NULL);
return TCL_ERROR;
}
} else {
if (strcmp(argv[1], "-nocomplain") != 0) {
Tcl_AppendResult(interp, "wrong # of args: should be \"",
argv[0], " ?-nocomplain? filename1 filename2\"",
NULL);
return TCL_ERROR;
}
link(argv[2], argv[3]);
}
return TCL_OK;
}
/*
*----------------------------------------------------------------------
*
* NsTclSymlinkCmd --
*
* Implements ns_symlink.
*
* Results:
* Tcl result.
*
* Side effects:
* See docs.
*
*----------------------------------------------------------------------
*/
int
NsTclSymlinkCmd(ClientData dummy, Tcl_Interp *interp, int argc, char **argv)
{
if ((argc != 3) && (argc != 4)) {
badargs:
Tcl_AppendResult(interp, "wrong # of args: should be \"",
argv[0], " ?-nocomplain? filename1 filename2\"", NULL);
return TCL_ERROR;
}
if (argc == 3) {
if (symlink(argv[1], argv[2]) != 0) {
Tcl_AppendResult(interp, "symlink (\"", argv[1], "\", \"", argv[2],
"\") failed: ", Tcl_PosixError(interp), NULL);
return TCL_ERROR;
}
} else {
if (strcmp(argv[1], "-nocomplain") != 0) {
goto badargs;
}
symlink(argv[2], argv[3]);
}
return TCL_OK;
}
/*
*----------------------------------------------------------------------
*
* NsTclRenameCmd --
*
* Implements ns_rename.
*
* Results:
* Tcl result.
*
* Side effects:
* See docs.
*
*----------------------------------------------------------------------
*/
int
NsTclRenameCmd(ClientData dummy, Tcl_Interp *interp, int argc, char **argv)
{
if (argc != 3) {
Tcl_AppendResult(interp, "wrong # of args: should be \"",
argv[0], " filename1 filename2\"", NULL);
return TCL_ERROR;
}
if (rename(argv[1], argv[2]) != 0) {
Tcl_AppendResult(interp, "rename (\"", argv[1], "\", \"", argv[2],
"\") failed: ", Tcl_PosixError(interp), NULL);
return TCL_ERROR;
}
return TCL_OK;
}
#ifdef NOTDEF
/* XXX need this --- now done in tcl */
/*
*----------------------------------------------------------------------
*
* NsTclWriteFpCmd --
*
* Implements ns_writefp.
*
* Results:
* Tcl result.
*
* Side effects:
* See docs.
*
*----------------------------------------------------------------------
*/
int
NsTclWriteFpCmd(ClientData dummy, Tcl_Interp *interp, int argc, char **argv)
{
Ns_Conn *conn;
Tcl_Channel chan;
int nbytes = INT_MAX;
int result;
conn = Ns_TclGetConn (interp);
if (argc != 2 && argc != 3) {
Tcl_AppendResult(interp, "wrong # of args: should be \"",
argv[0], " fileid ?nbytes?\"", NULL);
return TCL_ERROR;
}
if (Ns_TclGetOpenChannel(interp, argv[1], 0, 1, &chan) != TCL_OK) {
return TCL_ERROR;
}
/*
* Snarf the nbytes parameter
*/
if (argc == 3) {
if (Tcl_GetInt(interp, argv[2], &nbytes) != TCL_OK) {
return TCL_ERROR;
}
}
result = Ns_ConnSendChannel(conn, chan, nbytes);
if (result != NS_OK) {
Tcl_AppendResult(interp, "i/o failed", NULL);
return TCL_ERROR;
}
return TCL_OK;
}
#endif
/*
*----------------------------------------------------------------------
*
* NsTclTruncateCmd --
*
* Implements ns_truncate.
*
* Results:
* Tcl result.
*
* Side effects:
* See docs.
*
*----------------------------------------------------------------------
*/
int
NsTclTruncateCmd(ClientData dummy,Tcl_Interp *interp, int argc, char **argv)
{
int length;
if (argc != 2 && argc != 3) {
Tcl_AppendResult(interp, "wrong # of args: should be \"",
argv[0], " file ?length?\"", NULL);
return TCL_ERROR;
}
if (argc == 2) {
length = 0;
} else if (Tcl_GetInt(interp, argv[2], &length) != TCL_OK) {
return TCL_ERROR;
}
if (truncate(argv[1], length) != 0) {
Tcl_AppendResult(interp, "truncate (\"", argv[1], "\", ",
argv[2] ? argv[2] : "0",
") failed: ", Tcl_PosixError(interp), NULL);
return TCL_ERROR;
}
return TCL_OK;
}
#ifdef NOTDEF
/*
*----------------------------------------------------------------------
*
* NsTclFTruncateCmd --
*
* Implements ns_ftruncate.
*
* Results:
* Tcl result.
*
* Side effects:
* See docs.
*
*----------------------------------------------------------------------
*/
int
NsTclFTruncateCmd(ClientData dummy,Tcl_Interp *interp, int argc, char **argv)
{
int length, fd;
if (argc != 2 && argc != 3) {
Tcl_AppendResult(interp, "wrong # of args: should be \"",
argv[0], " fileId ?length?\"", NULL);
return TCL_ERROR;
}
if (Ns_TclGetOpenFd(interp, argv[1], 1, &fd) != TCL_OK) {
return TCL_ERROR;
}
if (argc == 2) {
length = 0;
} else if (Tcl_GetInt(interp, argv[2], &length) != TCL_OK) {
return TCL_ERROR;
}
if (ftruncate(fd, length) != 0) {
Tcl_AppendResult(interp, "ftruncate (\"", argv[1], "\", ",
argv[2] ? argv[2] : "0",
") failed: ", Tcl_PosixError(interp), NULL);
return TCL_ERROR;
}
return TCL_OK;
}
#endif
/*
*----------------------------------------------------------------------
*
* NsTclChmodCmd --
*
* NsTclChmodCmd
*
* Results:
* Tcl result.
*
* Side effects:
* See docs.
*
*----------------------------------------------------------------------
*/
int
NsTclChmodCmd(ClientData dummy,Tcl_Interp *interp, int argc, char **argv)
{
int mode;
if (argc != 3) {
Tcl_AppendResult(interp, "wrong # of args: should be \"",
argv[0], " filename mode\"", NULL);
return TCL_ERROR;
}
if (Tcl_GetInt(interp, argv[2], &mode) != TCL_OK) {
return TCL_ERROR;
}
if (chmod(argv[1], mode) != 0) {
Tcl_AppendResult(interp, "chmod (\"", argv[1], "\", ", argv[2],
") failed: ", Tcl_PosixError(interp), NULL);
return TCL_ERROR;
}
return TCL_OK;
}
#ifdef NOTDEF
/*
*----------------------------------------------------------------------
*
* NsTclGetChannelsCmd --
*
* NsTclGetChannelsCmd
*
* Results:
* Tcl result.
*
* Side effects:
* See docs.
*
*----------------------------------------------------------------------
*/
int
NsTclGetChannelsCmd(ClientData dummy,Tcl_Interp *interp, int argc, char **argv)
{
if (argc != 1) {
Tcl_AppendResult(interp, "wrong # of args: should be \"",
argv[0], "\"", NULL);
return TCL_ERROR;
}
if (Tcl_GetChannelNames(interp) != TCL_OK) {
return TCL_ERROR;
}
return TCL_OK;
}
#endif