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 (21 years 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>
![[BACK]](/icons/back.gif){kind=icon}
Return to getties.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / debugging_tools