# now do one for the alias
while ($ref = DXUser->get($myalias)) {
- print "old call $mycall deleted\n";
+ print "old call $myalias deleted\n";
$ref->del();
}
# write it away
$self->close();
- print "new call $mycall added\n";
+ print "new call $myalias added\n";
}