Gecko [ thearyasamaj.org ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	113 B	-rw-r--r--
README	287 B	-rw-r--r--
backup_config.pl	732 B	-rwxr-xr-x
config	201 B	-rw-r--r--
config-Fedora-Linux	189 B	-rw-r--r--
config.info	362 B	-rw-r--r--
config.info.ca	397 B	-rw-r--r--
config.info.cs	375 B	-rw-r--r--
config.info.de	429 B	-rw-r--r--
config.info.es	399 B	-rw-r--r--
config.info.nl	420 B	-rw-r--r--
config.info.no	381 B	-rw-r--r--
config.info.ru	506 B	-rw-r--r--
config.info.uk	511 B	-rw-r--r--
create_watch.cgi	281 B	-rwxr-xr-x
edit_auth.cgi	1.43 KB	-rwxr-xr-x
edit_global.cgi	2.01 KB	-rwxr-xr-x
edit_service.cgi	8.05 KB	-rwxr-xr-x
edit_user.cgi	1.38 KB	-rwxr-xr-x
edit_watch.cgi	2.21 KB	-rwxr-xr-x
feedback_files.pl	113 B	-rwxr-xr-x
index.cgi	1.52 KB	-rwxr-xr-x
install_check.pl	329 B	-rwxr-xr-x
list_groups.cgi	832 B	-rwxr-xr-x
list_periods.cgi	2.09 KB	-rwxr-xr-x
list_users.cgi	1.03 KB	-rwxr-xr-x
list_watches.cgi	1.26 KB	-rwxr-xr-x
module.info	181 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	108 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	136 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	166 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	171 B	-rw-r--r--
module.info.ca	117 B	-rw-r--r--
module.info.ca.auto	13 B	-rw-r--r--
module.info.cs	37 B	-rw-r--r--
module.info.cs.auto	86 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	108 B	-rw-r--r--
module.info.de	111 B	-rw-r--r--
module.info.de.auto	12 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	192 B	-rw-r--r--
module.info.es	32 B	-rw-r--r--
module.info.es.auto	91 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	121 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	168 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	105 B	-rw-r--r--
module.info.fr	0 B	-rw-r--r--
module.info.fr.auto	126 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	136 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	119 B	-rw-r--r--
module.info.hu	0 B	-rw-r--r--
module.info.hu.auto	122 B	-rw-r--r--
module.info.it	0 B	-rw-r--r--
module.info.it.auto	121 B	-rw-r--r--
module.info.ja	0 B	-rw-r--r--
module.info.ja.auto	160 B	-rw-r--r--
module.info.ko	0 B	-rw-r--r--
module.info.ko.auto	138 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	141 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	128 B	-rw-r--r--
module.info.ms	105 B	-rw-r--r--
module.info.ms.auto	12 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	132 B	-rw-r--r--
module.info.nl	28 B	-rw-r--r--
module.info.nl.auto	89 B	-rw-r--r--
module.info.no	31 B	-rw-r--r--
module.info.no.auto	82 B	-rw-r--r--
module.info.pl	0 B	-rw-r--r--
module.info.pl.auto	112 B	-rw-r--r--
module.info.pt	0 B	-rw-r--r--
module.info.pt.auto	122 B	-rw-r--r--
module.info.pt_BR	0 B	-rw-r--r--
module.info.pt_BR.auto	131 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	128 B	-rw-r--r--
module.info.ru	38 B	-rw-r--r--
module.info.ru.auto	154 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	122 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	113 B	-rw-r--r--
module.info.sv	0 B	-rw-r--r--
module.info.sv.auto	117 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	255 B	-rw-r--r--
module.info.tr	0 B	-rw-r--r--
module.info.tr.auto	123 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	214 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	158 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	155 B	-rw-r--r--
module.info.zh	0 B	-rw-r--r--
module.info.zh.auto	121 B	-rw-r--r--
module.info.zh_TW	0 B	-rw-r--r--
module.info.zh_TW.auto	130 B	-rw-r--r--
mon-lib.pl	8.96 KB	-rwxr-xr-x
mon.cgi	998 B	-rwxr-xr-x
mon_action.cgi	415 B	-rwxr-xr-x
moncmd.diff	2.52 KB	-rw-r--r--
moncmd.pl	5.66 KB	-rwxr-xr-x
monshow.cgi	564 B	-rwxr-xr-x
monshowrc	166 B	-rw-r--r--
restart.cgi	180 B	-rwxr-xr-x
save_auth.cgi	625 B	-rwxr-xr-x
save_global.cgi	1.7 KB	-rwxr-xr-x
save_groups.cgi	656 B	-rwxr-xr-x
save_periods.cgi	1.11 KB	-rwxr-xr-x
save_service.cgi	4.71 KB	-rwxr-xr-x
save_user.cgi	823 B	-rwxr-xr-x
save_watch.cgi	370 B	-rwxr-xr-x
start.cgi	226 B	-rwxr-xr-x
stop.cgi	423 B	-rwxr-xr-x

Code Editor : moncmd.pl

#!/usr/bin/perl
#
# moncmd - send a command to the mon server
#
# original file is modified to suit for the operation in this webmin module of msclinux--dt 09 Sept 2001
#
# Jim Trocki, trockij@transmeta.com
#
# $Id: moncmd 1.2 Fri, 12 Jan 2001 08:13:31 -0800 trockij $
#
#    Copyright (C) 1998, Jim Trocki
#
#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#
use Getopt::Std;
use Socket;
use English;

getopts ("ahf:l:s:p:rd");

sub usage;
sub do_cmd;

$MONSERVER = $ENV{"MONHOST"}
    if (defined ($ENV{"MONHOST"}));
$MONSERVER = $opt_s if ($opt_s);
$MONPORT   = $opt_p || getservbyname ("mon", "tcp") || 2583;

if ($opt_h) {
    usage;
}

if (!defined ($MONSERVER)) {
    die "No host specified or found in MONHOST\n";
}

$SIG{INT} = \&handle_sig;
$SIG{TERM} = \&handle_sig;

#
# does the input come from stdin or a file?
#
if ($opt_f) {
    if ($opt_f eq "-") {
    	$H = STDIN;
#print LOG "READING H from STDIN<br>";
    } else {
    	open (IN, $opt_f) ||
	    die "could not open input file: $!\n";
	$H = IN;
#print LOG "READING H from IN<br>";
    }

} elsif (!@ARGV) {
    if (-t STDIN) {
      print <<EOF
You did not give a command on the command line nor a -f flag and
the program is running interactively (e.g. reading from terminal).
This is not supported.  Exiting
EOF
    ;
        exit 1;
    }

$H = STDIN;
}

#
# get auth info
#
if ($opt_a) {
#open (LOG,">/tmp/monlog");
    if ($opt_l) {
    	$USER = $opt_l;
#print LOG "USER READ FROM -l OPTION =$USER\n";
    } else {
	die "could not determine username\n"
	    unless defined ($USER = getpwuid($EUID));
#print LOG "USER DEFAULT TAKEN=$USER\n";
    }

if (-t STDIN) {
#print LOG "READING PASSWD FROM STDIN\n";
	system "stty -echo";
	print "Password: ";
	chop ($PASS = <STDIN>);
	print "\n";
	system "stty echo";
	die "invalid password\n" if ($PASS =~ /^\s*$/);

} elsif (!@ARGV) {
	$cmd = <$H>;
#print LOG "READING CMD FROM $H\n";
#print LOG "CMD:$cmd\n";
	while (defined ($cmd) && $cmd =~ /user=|pass=/i) {
	#while (defined ($cmd) && $cmd =~ /user|pass/i) {
	    chomp $cmd;
#print LOG "CMD AFTER CHOMP:$cmd\n";
	    if ($cmd =~ /^user=(\S+)$/i) {
		$USER=$1 if (!defined ($USER));
#print LOG "READING USER FROM $H:$USER\n";
	    } elsif ($cmd =~ /^pass=(\S+)$/i) {
		$PASS=$1;
#print LOG "READING PASSWD FROM $H:$PASS\n";
	    }
	    
	    $cmd = <$H>;
	    $cmd1=$cmd;	
#print LOG "FINAL CMD: $cmd\n";
	}

}
     
    die "inadequate authentication information supplied\n"
    	if ($USER eq "" || $PASS eq "");
}

#
# set up TCP socket
#
$iaddr = inet_aton ($MONSERVER) ||
	die "Unable to find server '$MONSERVER'\n";

if ($MONPORT =~ /\D/) { $MONPORT = getservbyname ($MONPORT, 'tcp') }
$paddr = pack_sockaddr_in ($MONPORT, $iaddr);
$proto = getprotobyname ('tcp');

socket (MON, PF_INET, SOCK_STREAM, $proto) ||
    die "could not create socket: $!\n";
connect (MON, $paddr) ||
    die "could not connect: $!\n";

select (MON); $| = 1; select (STDOUT);

#if( defined(my $line = <MON>)) {
#    chomp $line;
#    unless( $line =~ /^220\s/) {
#	die "didn't receive expected welcome message\n";
#    }
#} else {
#    die "error communicating with mon server: $!\n";
#}

#
# authenticate self to the server if necessary
#
if ($opt_a) {
    ($l, @out) = do_cmd(MON, "login $USER $PASS");
    die "Could not authenticate\n"
	if ($l =~ /^530/);
}

if ($opt_f or !@ARGV) {
    #$cmd = <$H> if ($opt_f || !@ARGV);
    $cmd = (<$H>||$cmd1) if ($opt_f || !@ARGV);
    $l = "";
#print LOG "ENTERING TO SEND THE CMD:$cmd\n";
    while (defined ($cmd) && defined ($l)) {
	#
	# send the command
	#
	chomp $cmd;
#print LOG "SENDING THE CMD:$cmd\n";
	($l, @out) = do_cmd (MON, $cmd);
	last if (!defined ($l));
	for (@out) {
	    print "$_\n";
	}
	print "$l\n";

$cmd = <$H>;
    }
    close ($H);

} else {
    ($l, @out) = do_cmd (MON, "@ARGV");
    for (@out) {
	print "$_\n";
    }
    print "$l\n";
}

#
# log out
#
do_cmd (MON, "quit");

close(MON);

#close(LOG);

#
# submit a command to the server, wait for a response
#
sub do_cmd {
    my ($fd, $cmd) = @_;
    my ($l, @out);

return ("", undef) if ($cmd =~ /^\s*$/);

@out = ();
    print $fd "$cmd\n";
#print LOG "SUBMITTING CMD:$cmd\n";
    while (defined($l = <$fd>)) {
        chomp $l;
        if ($l =~ /^(\d{3}\s)/) {
            last;
        }
        push (@out, $l);
    }

($l, @out);
}

#
# usage
#
sub usage {
    print <<EOF;

usage: moncmd [-a] [-l login] [-s host] [-p port] [-f file] commands

Valid commands are:
    quit
    reset [stopped]
    term
    list group "groupname"
    list disabled
    list alerthist
    list failurehist
    list successes
    list failures
    list opstatus
    list pids
    list watch
    stop
    start
    loadstate
    savestate
    set "group" "service" "variable" "value"
    get "group" "service" "variable"
    disable service "group" "service"
    disable host "host" ["host"...]
    disable watch "watch"
    enable service "group" "service"
    enable host "host" ["host"...]
    enable watch "watch"
EOF
    exit 0;
}

#
# signal handler
#
sub handle_sig {
    system "stty echo";
    exit;
}

${this.title}

Code Editor : moncmd.pl