FM / proc

/usr/share/usermin/proc

Name	Size	Mode	Actions
help/	-	0755	rm
images/	-	0755	rm
lang/	-	0755	rm
config-aix	70	0644	edit dl rm
config-ALL-linux	71	0644	edit dl rm
config-freebsd	73	0644	edit dl rm
config-hpux	70	0644	edit dl rm
config-irix	70	0644	edit dl rm
config-macos	71	0644	edit dl rm
config-netbsd	73	0644	edit dl rm
config-openbsd	73	0644	edit dl rm
config-openserver	70	0644	edit dl rm
config-osf1	69	0644	edit dl rm
config-qnx	71	0644	edit dl rm
config-solaris	70	0644	edit dl rm
config-unixware	70	0644	edit dl rm
config.info	449	0644	edit dl rm
config.info.ca	545	0644	edit dl rm
config.info.de	538	0644	edit dl rm
config.info.es	341	0644	edit dl rm
config.info.fr	382	0644	edit dl rm
config.info.hu	436	0644	edit dl rm
config.info.nl	524	0644	edit dl rm
config.info.no	512	0644	edit dl rm
config.info.pl	439	0644	edit dl rm
config.info.ru	744	0644	edit dl rm
config.info.sv	320	0644	edit dl rm
config.info.tr	486	0644	edit dl rm
config.info.zh	253	0644	edit dl rm
config.info.zh_TW	303	0644	edit dl rm
edit_proc.cgi	4271	0755	edit dl rm
freebsd-lib.pl	5789	0755	edit dl rm
hpux-lib.pl	2836	0755	edit dl rm
index.cgi	466	0755	edit dl rm
index_cpu.cgi	1342	0755	edit dl rm
index_run.cgi	1092	0755	edit dl rm
index_search.cgi	7063	0755	edit dl rm
index_size.cgi	1452	0755	edit dl rm
index_tree.cgi	1536	0755	edit dl rm
index_user.cgi	1135	0755	edit dl rm
kill_proc.cgi	738	0755	edit dl rm
kill_proc_list.cgi	859	0755	edit dl rm
linux-lib.pl	24345	0755	edit dl rm
log_parser.pl	1077	0755	edit dl rm
macos-lib.pl	6210	0755	edit dl rm
module.info	286	0644	edit dl rm
module.info.af	0	0644	edit dl rm
module.info.af.auto	144	0644	edit dl rm
module.info.ar	0	0644	edit dl rm
module.info.ar.auto	212	0644	edit dl rm
module.info.be	0	0644	edit dl rm
module.info.be.auto	254	0644	edit dl rm
module.info.bg	0	0644	edit dl rm
module.info.bg.auto	265	0644	edit dl rm
module.info.ca	31	0644	edit dl rm
module.info.ca.auto	147	0644	edit dl rm
module.info.cs	27	0644	edit dl rm
module.info.cs.auto	139	0644	edit dl rm
module.info.da	0	0644	edit dl rm
module.info.da.auto	138	0644	edit dl rm
module.info.de	96	0644	edit dl rm
module.info.el	0	0644	edit dl rm
module.info.el.auto	292	0644	edit dl rm
module.info.es	0	0644	edit dl rm
module.info.es.auto	161	0644	edit dl rm
module.info.eu	0	0644	edit dl rm
module.info.eu.auto	144	0644	edit dl rm
module.info.fa	0	0644	edit dl rm
module.info.fa.auto	278	0644	edit dl rm
module.info.fi	0	0644	edit dl rm
module.info.fi.auto	186	0644	edit dl rm
module.info.fr	34	0644	edit dl rm
module.info.he	0	0644	edit dl rm
module.info.he.auto	189	0644	edit dl rm
module.info.hr	0	0644	edit dl rm
module.info.hr.auto	156	0644	edit dl rm
module.info.hu	25	0644	edit dl rm
module.info.hu.auto	131	0644	edit dl rm
module.info.it	0	0644	edit dl rm
module.info.it.auto	166	0644	edit dl rm
module.info.ja	37	0644	edit dl rm
module.info.ja.auto	196	0644	edit dl rm
module.info.ko	0	0644	edit dl rm
module.info.ko.auto	197	0644	edit dl rm
module.info.lt	0	0644	edit dl rm
module.info.lt.auto	160	0644	edit dl rm
module.info.lv	0	0644	edit dl rm
module.info.lv.auto	152	0644	edit dl rm
module.info.ms	0	0644	edit dl rm
module.info.ms.auto	155	0644	edit dl rm
module.info.mt	0	0644	edit dl rm
module.info.mt.auto	160	0644	edit dl rm
module.info.nl	27	0644	edit dl rm
module.info.no	28	0644	edit dl rm
module.info.no.auto	110	0644	edit dl rm
module.info.pl	0	0644	edit dl rm
module.info.pl.auto	155	0644	edit dl rm
module.info.pt	0	0644	edit dl rm
module.info.pt.auto	159	0644	edit dl rm
module.info.pt_BR	0	0644	edit dl rm
module.info.pt_BR.auto	168	0644	edit dl rm
module.info.ro	0	0644	edit dl rm
module.info.ro.auto	167	0644	edit dl rm
module.info.ru	0	0644	edit dl rm
module.info.ru.auto	266	0644	edit dl rm
module.info.sk	0	0644	edit dl rm
module.info.sk.auto	154	0644	edit dl rm
module.info.sl	0	0644	edit dl rm
module.info.sl.auto	150	0644	edit dl rm
module.info.sv	0	0644	edit dl rm
module.info.sv.auto	134	0644	edit dl rm
module.info.th	0	0644	edit dl rm
module.info.th.auto	310	0644	edit dl rm
module.info.tr	0	0644	edit dl rm
module.info.tr.auto	169	0644	edit dl rm
module.info.uk	0	0644	edit dl rm
module.info.uk.auto	242	0644	edit dl rm
module.info.ur	0	0644	edit dl rm
module.info.ur.auto	240	0644	edit dl rm
module.info.vi	0	0644	edit dl rm
module.info.vi.auto	205	0644	edit dl rm
module.info.zh	0	0644	edit dl rm
module.info.zh.auto	139	0644	edit dl rm
module.info.zh_TW	0	0644	edit dl rm
module.info.zh_TW.auto	148	0644	edit dl rm
old-proc-lib.pl	6132	0755	edit dl rm
openbsd-lib.pl	1967	0755	edit dl rm
open_files.cgi	2631	0755	edit dl rm
osf-lib.pl	2655	0755	edit dl rm
proc-lib.pl	18462	0755	edit dl rm
renice_proc.cgi	617	0755	edit dl rm
run.cgi	1412	0755	edit dl rm
sysv-lib.pl	6482	0755	edit dl rm

Edit: /usr/share/usermin/proc/open_files.cgi (2631B)

#!/usr/bin/perl
# open_files.cgi
# Display files and network connections that a process has open

require './proc-lib.pl';
&ReadParse();
&ui_print_header(undef, $text{'open_title'}, "", "open_proc");
%pinfo = &process_info($in{'pid'});
&can_edit_process($pinfo{'user'}) || &error($text{'edit_ecannot'});
if (!%pinfo) {
	print "$text{'edit_gone'} \n";
	&ui_print_footer("", $text{'index_return'});
	exit;
	}

print "",&text('open_proc', "<tt>$pinfo{'args'}</tt>", $in{'pid'}),
 "\n";

# Show open files
print &ui_subheading($text{'open_header1'});
@files = &find_process_files($in{'pid'});
print &ui_columns_start([ $text{'open_fd'},
			  $text{'open_type'},
			  $text{'open_size'},
			  $text{'open_inode'},
			  $text{'open_file'} ], 100, 0);
foreach $f (@files) {
	print &ui_columns_row([
		     $f->{'fd'} eq 'cwd' ? $text{'open_cwd'} :
		     $f->{'fd'} eq 'rtd' ? $text{'open_rtd'} :
		     $f->{'fd'} eq 'txt' ? $text{'open_txt'} :
		     $f->{'fd'} eq 'mem' ? $text{'open_mem'} :
					   $f->{'fd'},
		     $f->{'type'} =~ /^v?dir$/ ? $text{'open_dir'} :
		     $f->{'type'} =~ /^v?reg$/ ? $text{'open_reg'} :
		     $f->{'type'} =~ /^v?chr$/ ? $text{'open_chr'} :
		     $f->{'type'} =~ /^v?blk$/ ? $text{'open_blk'} :
					     $f->{'type'},
		     $f->{'size'},
		     $f->{'inode'},
		     $f->{'file'},
		     ]);
	}
print &ui_columns_end();

# Show network connections
@nets = &find_process_sockets($in{'pid'});
if (@nets) {
	print &ui_subheading($text{'open_header2'});

print &ui_columns_start([ $text{'open_type'},
				 $text{'open_proto'},
				 $text{'open_fd'},
				 $text{'open_desc'} ], 100, 0,
				[ "", "", "", "colspan=4" ]);
	foreach $n (@nets) {
		@cols = ( uc($n->{'type'}),
			 uc($n->{'proto'}),
			 $n->{'fd'} );
		@tds = ( "", "", "" );
		if ($n->{'listen'} && $n->{'lhost'} eq '*') {
			push(@cols, &text('open_listen1',
					 "<tt>$n->{'lport'}</tt>"));
			push(@tds, "colspan=4");
			}
		elsif ($n->{'listen'}) {
			push(@cols, &text('open_listen2',
					 "<tt>$n->{'lhost'}</tt>",
				 "<tt>$n->{'lport'}</tt>"));
			push(@tds, "colspan=4");
			}
		elsif ($n->{'rhost'}) {
			push(@cols, "<tt>$n->{'lhost'}:$n->{'lport'}</tt>",
				 "<tt>-&gt;</tt>",
				 "<tt>$n->{'rhost'}:$n->{'rport'}</tt>",
				 "<tt>$n->{'state'}</tt>");
			}
		else {
			push(@cols, &text('open_recv', "<tt>$n->{'lhost'}</tt>",
				 "<tt>$n->{'lport'}</tt>"));
			push(@tds, "colspan=4");
			}
		print &ui_columns_row(\@cols, \@tds);
		}
	print &ui_columns_end();
	}

&ui_print_footer("edit_proc.cgi?$in{'pid'}", $text{'edit_return'},
		 "", $text{'index_return'});

cmd: