[BACK]Return to getties.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / debugging_tools
File:  [LON-CAPA] / loncom / debugging_tools / getties.pl
Revision 1.1: download - view: text, annotated - select for diffs
Thu Jun 12 21:00:19 2003 UTC (20 years, 10 months ago) by albertel
Branches: MAIN
CVS tags: version_2_9_X, version_2_9_99_0, version_2_9_1, version_2_9_0, version_2_8_X, version_2_8_99_1, version_2_8_99_0, version_2_8_2, version_2_8_1, version_2_8_0, version_2_7_X, version_2_7_99_1, version_2_7_99_0, version_2_7_1, version_2_7_0, version_2_6_X, version_2_6_99_1, version_2_6_99_0, version_2_6_3, version_2_6_2, version_2_6_1, version_2_6_0, version_2_5_X, version_2_5_99_1, version_2_5_99_0, version_2_5_2, version_2_5_1, version_2_5_0, version_2_4_X, version_2_4_99_0, version_2_4_2, version_2_4_1, version_2_4_0, version_2_3_X, version_2_3_99_0, version_2_3_2, version_2_3_1, version_2_3_0, version_2_2_X, version_2_2_99_1, version_2_2_99_0, version_2_2_2, version_2_2_1, version_2_2_0, version_2_1_X, version_2_1_99_3, version_2_1_99_2, version_2_1_99_1, version_2_1_99_0, version_2_1_3, version_2_1_2, version_2_1_1, version_2_1_0, version_2_10_X, version_2_10_1, version_2_10_0_RC2, version_2_10_0_RC1, version_2_10_0, version_2_0_X, version_2_0_99_1, version_2_0_2, version_2_0_1, version_2_0_0, version_1_99_3, version_1_99_2, version_1_99_1_tmcc, version_1_99_1, version_1_99_0_tmcc, version_1_99_0, version_1_3_X, version_1_3_3, version_1_3_2, version_1_3_1, version_1_3_0, version_1_2_X, version_1_2_99_1, version_1_2_99_0, version_1_2_1, version_1_2_0, version_1_1_X, version_1_1_99_5, version_1_1_99_4, version_1_1_99_3, version_1_1_99_2, version_1_1_99_1, version_1_1_99_0, version_1_1_3, version_1_1_2, version_1_1_1, version_1_1_0, version_1_0_99_3, version_1_0_99_2, version_1_0_99_1, version_1_0_99, version_1_0_3, version_1_0_2, version_1_0_1, version_1_0_0, version_0_99_5, version_0_99_4, version_0_99_3, version_0_99_2, loncapaMITrelate_1, bz6209-base, bz6209, bz5969, bz2851, PRINT_INCOMPLETE_base, PRINT_INCOMPLETE, HEAD, GCI_3, GCI_2, GCI_1, BZ5971-printing-apage, BZ5434-fox
- the requested script to find out what ties are being held and what the last command that apache child did (or is currently doing) is

    1: use strict;
    2: my $result=`ls -l /proc/*/fd/* | grep /home/httpd/perl/tmp/`;
    3: my @result=split("\n",$result);
    4: my (@pids,@files);
    5: foreach my $line (@result) {
    6: 	if ($line=~m-/proc/(\d+)/fd-) {
    7: 		push(@pids,$1);
    8: 		$line=~m-(/home/httpd/perl/tmp/.*)-;
    9: 		push(@files,$1);
   10: 	}
   11: }
   12: 
   13: $result=`wget --http-user=lonadm -q --http-passwd=litelite --output-document=- http://localhost/server-status`;
   14: 
   15: @result=split('<tr>',$result);
   16: 
   17: foreach my $line (@result) {
   18: 	if ($line =~ m -</b><td>(\d+)<td>-) {
   19: 		my $curpid=$1;
   20: 		print ("curpid is $1\n");
   21: 		for (my $i=0;$i<=$#pids;$i++) {
   22: 			my $pid=@pids[$i];
   23: 			my $file=@files[$i];
   24: 			if ($curpid == $pid) {
   25: 				$line=~m-<td nowrap>([^<]*)</tr>-;
   26: 				print("$pid has a tmp file $file, last known request is $1\n");
   27: 			}
   28: 		}
   29: 	}
   30: }
   31:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>