proc/freebsd-lib.pl

   1 # freebsd-lib.pl
   2 # Functions for parsing freebsd ps output
   3
   4 use IO::Handle;
   5
   6 sub list_processes
   7 {
   8 local($pcmd, $line, $i, %pidmap, @plist);
   9 $pcmd = @_ ? "-p $_[0]" : "";
  10 open(PS, "ps -axwwww -o pid,ppid,user,vsz,%cpu,time,nice,tty,ruser,rgid,pgid,lstart,lim,command $pcmd |");
  11 for($i=0; $line=<PS>; $i++) {
  12         chop($line);
  13         if ($line =~ /ps -axwwww/ || $line =~ /^\s*PID/) { $i--; next; }
  14         $line =~ /^\s*(\d+)\s+(\d+)\s+(\S+)\s+(\d+)\s+([\d\.]+)\s+(\S+)\s+(-?\d+)\s+(\S+)\s+(\S+)\s+(\d+)\s+(\d+)\s+(-|\S+\s+\S+\s+\d+\s+\S+\s+\d+|\d+)\s+(\S+)\s+(.*)$/;
  15
  16         $plist[$i]->{"pid"} = $1;
  17         $plist[$i]->{"ppid"} = $2;
  18         $plist[$i]->{"user"} = $3;
  19         $plist[$i]->{"size"} = "$4 kB";
  20         $plist[$i]->{"cpu"} = $5;
  21         $plist[$i]->{"time"} = $6;
  22         $plist[$i]->{"nice"} = $7;
  23         $plist[$i]->{"_tty"} = $8;
  24         $plist[$i]->{"_ruser"} = $9;
  25         $plist[$i]->{"_rgroup"} = getgrgid($10);
  26         $plist[$i]->{"_pgid"} = $11;
  27         $plist[$i]->{"_stime"} = $12;
  28         $plist[$i]->{"_lim"} = $13 eq "-" ? "Unlimited" : $13;
  29         $plist[$i]->{"args"} = $14;
  30         }
  31 close(PS);
  32 return @plist;
  33 }
  34
  35 # renice_proc(pid, nice)
  36 sub renice_proc
  37 {
  38 return undef if (&is_readonly_mode());
  39 local $out = &backquote_logged("renice $_[1] -p $_[0] 2>&1");
  40 if ($?) { return $out; }
  41 return undef;
  42 }
  43
  44 foreach $ia (keys %text) {
  45         if ($ia =~ /^freebsd(_\S+)/) {
  46                 $info_arg_map{$1} = $text{$ia};
  47                 }
  48         }
  49
  50 @nice_range = (-20 .. 20);
  51
  52 $has_fuser_command = 0;
  53
  54 # get_new_pty()
  55 # Returns the filehandles and names for a pty and tty
  56 sub get_new_pty
  57 {
  58 local @ptys;
  59 opendir(DEV, "/dev");
  60 @ptys = map { "/dev/$_" } (grep { /^pty/ } readdir(DEV));
  61 closedir(DEV);
  62 local ($pty, $tty);
  63 foreach $pty (@ptys) {
  64         open(PTY, "+>$pty") || next;
  65         local $tty = $pty;
  66         $tty =~ s/pty/tty/;
  67         open(TTY, "+>$tty") || next;
  68         local $old = select(PTY); $| = 1;
  69         select(TTY); $| = 1; select($old);
  70         return (*PTY, *TTY, $pty, $tty);
  71         }
  72 return ();
  73 }
  74
  75 # close_controlling_pty()
  76 # Disconnects this process from it's controlling PTY, if connected
  77 sub close_controlling_pty
  78 {
  79 if (open(DEVTTY, "/dev/tty")) {
  80         # Special ioctl to disconnect (TIOCNOTTY)
  81         ioctl(DEVTTY, 536900721, 0);
  82         close(DEVTTY);
  83         }
  84 }
  85
  86 # open_controlling_pty(ptyfh, ttyfh, ptyfile, ttyfile)
  87 # Makes a PTY returned from get_new_pty the controlling TTY (/dev/tty) for
  88 # this process.
  89 sub open_controlling_pty
  90 {
  91 local ($ptyfh, $ttyfh, $pty, $tty) = @_;
  92
  93 # Call special ioctl to attach /dev/tty to this new tty (TIOCSCTTY)
  94 ioctl($ttyfh, 536900705, 0);
  95 }
  96
  97 # get_memory_info()
  98 # Returns a list containing the real mem, free real mem, swap and free swap
  99 # (In kilobytes).
 100 sub get_memory_info
 101 {
 102 my $sysctl = {};
 103 my $sysctl_output = &backquote_command("/sbin/sysctl -a 2>/dev/null");
 104 return ( ) if ($?);
 105 foreach my $line (split(/\n/, $sysctl_output)) {
 106         if ($line =~ m/^([^:]+):\s+(.+)\s*$/s) {
 107                 $sysctl->{$1} = $2;
 108                 }
 109         }
 110 return ( ) if (!$sysctl->{"hw.physmem"});
 111 my $mem_inactive = $sysctl->{"vm.stats.vm.v_inactive_count"} *
 112                    $sysctl->{"hw.pagesize"};
 113 my $mem_cache = $sysctl->{"vm.stats.vm.v_cache_count"} *
 114                 $sysctl->{"hw.pagesize"};
 115 my $mem_free = $sysctl->{"vm.stats.vm.v_free_count"} *
 116                $sysctl->{"hw.pagesize"};
 117 return ( $sysctl->{"hw.physmem"} / 1024,
 118          ($mem_inactive + $mem_cache + $mem_free) / 1024 );
 119 }
 120
 121 1;
 122