Changeset 9381782 for readconfig.c

Timestamp:

Jun 22, 2003, 1:33:09 AM (22 years ago)

Author:

James M. Kretchmar <kretch@mit.edu>

Branches:

master, barnowl_perlaim, debian, owl, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

b2a91b6

Parents:

0c502e9

Message:

$owl::auth now works

File:

• readconfig.c (modified) (1 diff)

readconfig.c

@@ -170 +170 @@
   sv_setpv(perl_get_sv("owl::type", TRUE), owl_message_type_to_string(m));
 
+
+  /* set owl::auth default */
+  sv_setpv(perl_get_sv("owl::auth", TRUE), "YES");
+
   /* set owl::direction */
   if (owl_message_is_direction_in(m)) {
     sv_setpv(perl_get_sv("owl::direction", TRUE), "in");
+
+    /* Change auth value for in messages */
+    sv_setpv(perl_get_sv("owl::auth", TRUE), owl_zephyr_get_authstr(owl_message_get_notice(m)));
+
   } else if (owl_message_is_direction_out(m)) {
     sv_setpv(perl_get_sv("owl::direction", TRUE), "out");