#!/usr/local/bin/perl -- -*- perl -*-
#
# $Id: ipc_clean,v 1.2 1994/02/02 14:36:39 ejb Exp $
# $Source: /home/ejb/scripts/RCS/ipc_clean,v $
# $Author: ejb $
#

{
    local(@whoami) = split('/', $0);
    $whoami = pop(@whoami);
};

open(IPCS, "ipcs|") || die "$whoami: can't run ipcs: $?\n";

while (<IPCS>)
{
    chop;
    s/^(.)//;
    $ch = $1;
    ($id, $key, @trash) = split(' ');
    if ($ch eq "q")
    {
	while (msgrcv($id, $junk, 1000, 0, 0004000)) {};
	msgctl($id, 0, 0);
    }
    elsif ($ch eq "m")
    {
	shmctl($id, 0, 0);
    }
    elsif ($ch eq "s")
    {
	semctl($id, $key, 0, 0);
    }
}