#!/usr/local/bin/perl -w
# psentry.pl -- Eintrag in der Prozessliste modifizieren
#         abhaengig vom aktuellen Zustand.
#         Beachte die Backticks!

$0 =~ s,.*/,,;                        # Entferne fuehrende Pfadnamen
$pname = $0;                          # Programmname merken

$pscommand= 'ps -ax';                 # BSD, Linux

$0 = $pname . " [initializing]";      # PS-Liste veraendern
print grep /$pname/, `$pscommand`;    # und Eintrag anzeigen

$0 = $pname . " [running]";           # Anderer Zustand
print grep /$pname/, `$pscommand`;    # und Eintrag anzeigen

$0 = $pname . " [cleaning up]";       # Wieder ein anderer Zustand
print grep /$pname/, `$pscommand`;    # und Eintrag anzeigen