Conference iosg::all-in-1_v30

4135.0. "Reset Unread Mail Count for entire disk" by ANGLIN::HARRISA (Touring the world for apple struedl) Wed May 04 1994 21:42

    ALL-IN-1 3.0-1, VMS 5.5-2
    
    1 of our user disks crashed and now we have about 128 users with unread
    mail counts that are off.  i need to reset this counter for all 128
    users. fortunatly, they are all on the same disk, so this doesn't
    effect the remaining 2700 users on the system.
    
    	THANKS - Ann
    
    will this work?
    
    	RESET.COM
                $allin1/user=manager/reenter/noinit
    		oa$ini_init
    		cab open
    		mail init
    		do oa$lib:get_user.scp
    		exit
    		$exit
    
    	GET_USER.SCP
    		get #cur_user = oa$user
    		for profil do -
    		.if .direct = "op15" then get oa$function = "newdir "
    .user\\-
    		do oa$lib:reset_count.scp
    		get oa$function = "newdir " #cur_user
    
    	RESET_COUNT.SCP
    		get oa$function = "cab get_pending 'mail', #unreadfolder"
    		get oa$function = "mail reset_mailcounter"