#!@perlbin@ # # Licensed to the Apache Software Foundation (ASF) under one or more # contributor license agreements. See the NOTICE file distributed with # this work for additional information regarding copyright ownership. # The ASF licenses this file to You under the Apache License, Version 2.0 # (the "License"); you may not use this file except in compliance with # the License. You may obtain a copy of the License at # # http://www.apache.org/licenses/LICENSE-2.0 # # Unless required by applicable law or agreed to in writing, software # distributed under the License is distributed on an "AS IS" BASIS, # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. # See the License for the specific language governing permissions and # limitations under the License. # # # Log Server Status # Mark J Cox, UK Web Ltd 1996, mark ukweb.com # # This script is designed to be run at a frequent interval by something # like cron. It connects to the server and downloads the status # information. It reformats the information to a single line and logs # it to a file. Make sure the directory $wherelog is writable by the # user who runs this script. # use IO::Socket; use strict; use warnings; my $wherelog = "@exp_logfiledir@/"; # Logs will be like "@exp_logfiledir@/19960312" my $server = "localhost"; # Name of server, could be "www.foo.com" my $port = "@PORT@"; # Port on server my $request = "/server-status/?auto"; # Request to send my @ltime = localtime(time); my $day = $ltime[5] + 1900 . sprintf( "%02d", $ltime[4] + 1 ) . sprintf( "%02d", $ltime[3] ); my $time = sprintf( "%02d", $ltime[2] ) . sprintf( "%02d", $ltime[1] ) . sprintf( "%02d", $ltime[0] ); open(OUT,">>$wherelog$day"); my $socket = new IO::Socket::INET( PeerAddr => $server, PeerPort => $port, Proto => "tcp", Type => SOCK_STREAM ) or do { print OUT "$time:-1:-1:-1:-1:$@\n"; close OUT; die "Couldn't connect to $server:$port : $@\n"; }; $| = 1; print $socket "GET $request HTTP/1.1\r\nHost: $server\r\nConnection: close\r\n\r\n\r\n"; my ( $requests, $idle, $number, $cpu ); while (<$socket>) { $requests = $1 if (m|^BusyWorkers:\ (\S+)|); $idle = $1 if (m|^IdleWorkers:\ (\S+)|); $number = $1 if (m|sses:\ (\S+)|); $cpu = $1 if (m|^CPULoad:\ (\S+)|); } print OUT "$time:$requests:$idle:$number:$cpu\n"; close OUT;