2 use OpenAFS
::CMU_copyright
;
3 use OpenAFS
::util
qw(:DEFAULT %AFS_Help);
10 my ($host, @hosts, $this, $cell, $cnt);
14 $cell = &AFS_fs_wscell();
16 &AFS_bos_removehost(localhost,"128.2.1.2",);
17 @hosts = &AFS_bos_listhosts(localhost,);
18 $this = shift(@hosts);
22 while ($this = shift(@hosts)) {