|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T d
Length: 955 (0x3bb)
Types: TextFile
Names: »dsaping«
└─⟦2d1937cfd⟧ Bits:30007241 EUUGD22: P.P 5.0
└─⟦35176feda⟧ »EurOpenD22/isode/isode-6.tar.Z«
└─⟦de7628f85⟧
└─⟦this⟧ »isode-6.0/others/quipu/uips/dish/dsaping«
#!/bin/sh
#Calculate unique TCP port based on PID
start=${1-c=GB}
ppid=$$
gooddsa=0
baddsa=0
ditsize=0
if ( test $ppid-lt10000 )
then
ppid=`expr $ppid + 10000`
fi
DISHPROC="127.0.0.1 $ppid"
export DISHPROC
if ( bind -noa )
then
echo -n
else
exit 1
fi
moveto @
if [ $start != "root" ]
then
moveto $start
fi
for j in `search -filter objectclass=quipuDSA -nosize -time 500 -type presentationaddress -noname`
do
echo -n "Trying "
moveto -nocheck -pwd $j
if ( bind -c `showentry -type presentationaddress -nokey` -noa 2>/dev/null )
then
gooddsa=`expr $gooddsa + 1`
if ( dsacontrol -info > /tmp/dsainfo 2>/dev/null )
then
dsasize=`awk < /tmp/dsainfo '{ printf $1 }'`
echo Size $dsasize
ditsize=`expr $ditsize + $dsasize`
else
echo Contacted
fi
else
echo Failed
baddsa=`expr $baddsa + 1`
fi
done
echo
echo $gooddsa DSAs contacted
echo $baddsa connections failed
echo
echo Counted $ditsize entries
rm -f /tmp/dsainfo
unbind