/*
 * webutlcmd.c --- webshell utility commands
 * nca-073-9
 * 
 * Copyright (c) 1996-2000 by Netcetera AG.
 * Copyright (c) 2001 by Apache Software Foundation.
 * All rights reserved.
 *
 * See the file "license.terms" for information on usage and
 * redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * @(#) $Id$
 *
 */

#include <tcl.h>
#include "webutl.h"
#include "webutlcmd.h"
#include "filelock.h"

/* --------------------------------------------------------------------
 * Init --
 * -------------------------------------------------------------------- */
int webutlcmd_Init(Tcl_Interp * interp)
{


    Tcl_CreateObjCommand(interp, "web::lockfile",
			 Web_LockChannel,
			 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

    Tcl_CreateObjCommand(interp, "web::unlockfile",
			 Web_UnLockChannel,
			 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

    Tcl_CreateObjCommand(interp, "web::truncatefile",
			 Web_TruncateFile,
			 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

    return TCL_OK;
}