add PermitDeny to SNAC(0x01,0x03) HostOnline

This fixes the last error in perl net::oscar's "oscartest" login flow.

foodgroup/oservice.go

@@ -625,6 +625,7 @@ func (s OServiceServiceForBOS) HostOnline() wire.SNACMessage {
 				wire.Locate,
 				wire.OService,
 				wire.BART,
+				wire.PermitDeny,
 			},
 		},
 	}

foodgroup/oservice_test.go

@@ -1366,6 +1366,7 @@ func TestOServiceServiceForBOS_OServiceHostOnline(t *testing.T) {
 				wire.Locate,
 				wire.OService,
 				wire.BART,
+				wire.PermitDeny,
 			},
 		},
 	}