#!/bin/sh
#$Revision: 1.1 $

INTERFACES=`/bin/cat /proc/net/dev|/usr/bin/perl -n -e 'if (s/^.*(ippp\w+).*$/$1/) { print }'`

for i in $INTERFACES; do
   /sbin/isdnctrl savebudgets $i > /var/isdn/saved-budget.$i
done