LogCommand.cc

Go to the documentation of this file.
00001 /*
00002  * IMPORTANT: READ BEFORE DOWNLOADING, COPYING, INSTALLING OR USING. By
00003  * downloading, copying, installing or using the software you agree to
00004  * this license. If you do not agree to this license, do not download,
00005  * install, copy or use the software.
00006  * 
00007  * Intel Open Source License 
00008  * 
00009  * Copyright (c) 2004 Intel Corporation. All rights reserved. 
00010  * 
00011  * Redistribution and use in source and binary forms, with or without
00012  * modification, are permitted provided that the following conditions are
00013  * met:
00014  * 
00015  *   Redistributions of source code must retain the above copyright
00016  *   notice, this list of conditions and the following disclaimer.
00017  * 
00018  *   Redistributions in binary form must reproduce the above copyright
00019  *   notice, this list of conditions and the following disclaimer in the
00020  *   documentation and/or other materials provided with the distribution.
00021  * 
00022  *   Neither the name of the Intel Corporation nor the names of its
00023  *   contributors may be used to endorse or promote products derived from
00024  *   this software without specific prior written permission.
00025  *  
00026  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
00027  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
00028  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
00029  * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE INTEL OR
00030  * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
00031  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
00032  * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
00033  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
00034  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
00035  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
00036  * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
00037  */
00038 
00039 #include "LogCommand.h"
00040 #include "debug/Log.h"
00041 
00042 namespace oasys {
00043 
00044 LogCommand::LogCommand()
00045     : TclCommand("log")
00046 {
00047     bind_s("logfile", &Log::instance()->logfile_,
00048            "The pathname to the logfile.");
00049 
00050     add_to_help("<path> <level> <string>", 
00051                 "Log message string with path, level");
00052     add_to_help("prefix <prefix>", "Set logging prefix");
00053     add_to_help("rotate", "Rotate the log file");
00054     add_to_help("dump_rules", "Show log filter rules");
00055     add_to_help("reparse", "Reparse the rules file");
00056 }
00057 
00058 int
00059 LogCommand::exec(int argc, const char** argv, Tcl_Interp* interp)
00060 {
00061     (void)interp;
00062         
00063     // log prefix <string>
00064     if (argc == 3 && !strcmp(argv[1], "prefix")) {
00065         Log::instance()->set_prefix(argv[2]);
00066         logf("/log", LOG_DEBUG, "set logging prefix to '%s'", argv[2]);
00067         return TCL_OK;
00068     }
00069 
00070     // log rotate
00071     if (argc == 2 && !strcmp(argv[1], "rotate")) {
00072         Log::instance()->rotate();
00073         return TCL_OK;
00074     }
00075     
00076     // dump rules
00077     if (argc == 2 && !strcmp(argv[1], "dump_rules")) {
00078         StringBuffer buf;
00079         Log::instance()->dump_rules(&buf);
00080         set_result(buf.c_str());
00081         return TCL_OK;
00082     }
00083     
00084     // log reparse_debug_file
00085     if (argc == 2 && 
00086         (strcmp(argv[1], "reparse_debug_file") == 0 ||
00087          strcmp(argv[1], "reparse") == 0))
00088     {
00089         Log::instance()->parse_debug_file();
00090         return TCL_OK;
00091     }
00092     
00093     // log path level string
00094     if (argc != 4) {
00095         wrong_num_args(argc, argv, 1, 4, 4);
00096         return TCL_ERROR;
00097     }
00098 
00099     log_level_t level = str2level(argv[2]);
00100     if (level == LOG_INVALID) {
00101         resultf("invalid log level %s", argv[2]);
00102         return TCL_ERROR;
00103     }
00104     
00105     logf(argv[1], level, argv[3]);
00106 
00107     return TCL_OK;
00108 }
00109 
00110 } // namespace oasys

Generated on Fri Dec 22 14:47:59 2006 for DTN Reference Implementation by  doxygen 1.5.1