`
cwalet
  • 浏览: 67242 次
  • 性别: Icon_minigender_1
  • 来自: 上海
文章分类
社区版块
存档分类
最新评论

CactiEZ安装tomcat监控模板

阅读更多

迁移至:http://my.oschina.net/cwalet

1
4
分享到:
评论
2 楼 cwalet 2014-01-14  
big1980 写道
在执行
引用
./tomcatstats.pl 127.0.0.1:8244 user password\"http-8280\"

出现错误:Could not find tomcatstats.xml in ./ at ./tomcatstats.pl line 30
为的脚本为:
#!/usr/bin/perl -w
#
# Tim Denike 1/4/07 - Please excuse this horriblie sloppy code...
#

use strict;
use XML::Simple;
use Data::Dumper;
use LWP::Simple;

MAIN:
{
    my $host = shift;
    my $username = shift;
    my $password = shift;
    my $connector = shift or &usage;
    my $url = "http://$username:$password"."\@$host/manager/status?XML=true";
	#Tomcat7
	#my $url = "http://$host/manager/status?XML=true";
    

    #my $xml = `GET $url`;
	my $xml = get($url);
	#my $xml = `wget -qO - $url`;
	#my $xml = `wget --tries=1 --timeout=5 -q -O - $url`;

	#Tomcat7
	#my $xml = `wget  -qO - --http-user=$username --http-password=$password $url`;

    my $status = XMLin($xml);

    print Dumper($status);

    print "jvm_memory_free:$status->{jvm}->{memory}->{free} ";
    print "jvm_memory_max:$status->{jvm}->{memory}->{max} ";
    print "jvm_memory_total:$status->{jvm}->{memory}->{total} ";
    print "connector_max_time:$status->{connector}->{$connector}->{requestInfo}->{maxTime} ";
    print "connector_error_count:$status->{connector}->{$connector}->{requestInfo}->{errorCount} ";
    print "connector_bytes_sent:$status->{connector}->{$connector}->{requestInfo}->{bytesSent} ";
    print "connector_processing_time:$status->{connector}->{$connector}->{requestInfo}->{processingTime} ";
    print "connector_request_count:$status->{connector}->{$connector}->{requestInfo}->{requestCount} ";
    print "connector_bytes_received:$status->{connector}->{$connector}->{requestInfo}->{bytesReceived} ";
    print "connector_current_thread_count:$status->{connector}->{$connector}->{threadInfo}->{currentThreadCount} ";
    print "connector_min_spare_threads:$status->{connector}->{$connector}->{threadInfo}->{minSpareThreads} ";
    print "connector_max_threads:$status->{connector}->{$connector}->{threadInfo}->{maxThreads} ";
    print "connector_max_spare_threads:$status->{connector}->{$connector}->{threadInfo}->{maxSpareThreads} ";
    print "connector_current_threads_busy:$status->{connector}->{$connector}->{threadInfo}->{currentThreadsBusy} ";
}

sub usage ()
{
   print "$0 [host:port] [username] [password] [connector]\n";
   print "   IE:  $0 app1:8081 admin password http-8080\n";
   exit 1;
}

请问该如何入手?

wget  -qO - --http-user=$username --http-password=$password $url
这是没获取到tomcat的status信息,你看看http://127.0.0.1:8080/manager/status?XML=true
有没有输出XML
1 楼 big1980 2014-01-08  
在执行
引用
./tomcatstats.pl 127.0.0.1:8244 user password\"http-8280\"

出现错误:Could not find tomcatstats.xml in ./ at ./tomcatstats.pl line 30
为的脚本为:
#!/usr/bin/perl -w
#
# Tim Denike 1/4/07 - Please excuse this horriblie sloppy code...
#

use strict;
use XML::Simple;
use Data::Dumper;
use LWP::Simple;

MAIN:
{
    my $host = shift;
    my $username = shift;
    my $password = shift;
    my $connector = shift or &usage;
    my $url = "http://$username:$password"."\@$host/manager/status?XML=true";
	#Tomcat7
	#my $url = "http://$host/manager/status?XML=true";
    

    #my $xml = `GET $url`;
	my $xml = get($url);
	#my $xml = `wget -qO - $url`;
	#my $xml = `wget --tries=1 --timeout=5 -q -O - $url`;

	#Tomcat7
	#my $xml = `wget  -qO - --http-user=$username --http-password=$password $url`;

    my $status = XMLin($xml);

    print Dumper($status);

    print "jvm_memory_free:$status->{jvm}->{memory}->{free} ";
    print "jvm_memory_max:$status->{jvm}->{memory}->{max} ";
    print "jvm_memory_total:$status->{jvm}->{memory}->{total} ";
    print "connector_max_time:$status->{connector}->{$connector}->{requestInfo}->{maxTime} ";
    print "connector_error_count:$status->{connector}->{$connector}->{requestInfo}->{errorCount} ";
    print "connector_bytes_sent:$status->{connector}->{$connector}->{requestInfo}->{bytesSent} ";
    print "connector_processing_time:$status->{connector}->{$connector}->{requestInfo}->{processingTime} ";
    print "connector_request_count:$status->{connector}->{$connector}->{requestInfo}->{requestCount} ";
    print "connector_bytes_received:$status->{connector}->{$connector}->{requestInfo}->{bytesReceived} ";
    print "connector_current_thread_count:$status->{connector}->{$connector}->{threadInfo}->{currentThreadCount} ";
    print "connector_min_spare_threads:$status->{connector}->{$connector}->{threadInfo}->{minSpareThreads} ";
    print "connector_max_threads:$status->{connector}->{$connector}->{threadInfo}->{maxThreads} ";
    print "connector_max_spare_threads:$status->{connector}->{$connector}->{threadInfo}->{maxSpareThreads} ";
    print "connector_current_threads_busy:$status->{connector}->{$connector}->{threadInfo}->{currentThreadsBusy} ";
}

sub usage ()
{
   print "$0 [host:port] [username] [password] [connector]\n";
   print "   IE:  $0 app1:8081 admin password http-8080\n";
   exit 1;
}

请问该如何入手?

相关推荐

Global site tag (gtag.js) - Google Analytics