Perl script to list replicas

Question

Hello,
i have written a perl script which lists all the replicas that reside on
the eDirectory server. I use the function 'ListReplicas' in
Net::LDAP::Extensions::eDirectory - but not all replicas are listed,
from 6 replicas that reside on the server only 4 are listed in the script.
any ideas or another solution?
config:
nw6.5/sp6
perl v5.8.4
Pete

Answer 1

I was thinking about the following if you're just wanting services:
systemctl list-units -t service --no-pager --no-legend | grep active
edit: While I'm here, here's a script I wrote which allows you to manipulate services using a function and dmenu. The final output is piped in monospace font to gxmessage, but of course you can hack this around in lots of ways.
#!/bin/bash
services()
sm="dmenu -l 20 -fn Monospace-8 -p"
s1=$(systemctl list-unit-files -t service --no-legend | $sm Service); s1=${s1/%service*/service}; [[ -z $s1 ]] && exit
s2=$(echo -e "status\nstart\nstop\nrestart\nenable\ndisable" | $sm "Action"); [[ -z $s2 ]] && exit
if [[ $s2 == "status" ]]; then unset s3; else s3="gksudo --"; fi
eval $s3 systemctl --no-pager $s2 $s1 2>&1 | gxmessage -file - -title Services -center -fn "Monospace 8"
services
Last edited by ninian (2012-11-23 00:46:46)