Getting rid of scripts from the vsys package. These scripts can be found in the vsys...

[vsys.git] / factory / pl-ps

diff --git a/factory/pl-ps b/factory/pl-ps
deleted file mode 100755 (executable)
index eafdf5b..0000000
--- a/factory/pl-ps
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/usr/bin/perl
-use strict;
-
-###############################################
-# pl-ps for slicestat by KyoungSoo Park
-###############################################
-
-my %slice_id;
-my %slice;
-
-open THIS_PIPE, "/bin/awk -F: \'{print \$1, \$3}\' /etc/passwd |";
-while(<THIS_PIPE>) {
-   if (/(.+)\s+(\d+)/) {
-       $slice_id{$1} = $2;
-       $slice{$2} = $1;
-   }
-}
-close THIS_PIPE;
-
-open THIS_PIPE, "/usr/sbin/vps -eo pid,user | sed 1d | awk \'{print \$1, \$2}\' | sort -k 2 |";
-while(<THIS_PIPE>) {
-   if (/(\d+)\s+(.+)$/) {
-       my $pid = $1;
-       my ($id, $sl);
-
-       if (defined($slice_id{$2})) {
-           $id = $slice_id{$2};
-           $sl = $2;
-       } else {
-           $id = $2;
-           $sl = $slice{$2};
-       }
-       print sprintf("%s %s %s\n", $id, $sl, $pid);
-   }
-}
-close THIS_PIPE;