Changeset f9c43ae for util.c

Timestamp:

Sep 21, 2002, 7:52:22 PM (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:

bde7714

Parents:

1583c90

Message:

Fixed up the normal scrolling code.  Now it should always
  land on a message, but it's still not optimal.
Added the variable 'smartstrip' which will strip kerberos
  instances out for the 'reply' command.
Added -R/usr/athena/lib to the build for Athena

File:

• util.c (modified) (2 diffs)

util.c

@@ -411 +411 @@
 }
 
+
 char *long_zuser(char *in) {
   char *ptr;
@@ -421 +422 @@
   }
 }
-                  
+
+
+char *smartstripped_user(char *in) {
+  /* strip out the instance from a zsender's principal.
+   * Preserves the realm if present.
+   * the caller must free the return */
+
+  char *ptr, *realm, *out;
+
+  out=owl_strdup(in);
+
+  /* bail immeaditly if we don't have to do any work */
+  ptr=strchr(in, '.');
+  if (!strchr(in, '/') && !ptr) {
+    return(out);
+  }
+  if (ptr && strchr(in, '@') && (ptr > strchr(in, '@'))) {
+    return(out);
+  }
+
+  /* remove the realm from ptr, but hold on to it */
+  realm=strchr(out, '@');
+  if (realm) realm[0]='\0';
+
+  /* strip */
+  ptr=strchr(out, '.');
+  if (!ptr) ptr=strchr(out, '/');
+  ptr[0]='\0';
+
+  /* reattach the realm if we had one */
+  if (realm) {
+    strcat(out, "@");
+    strcat(out, realm+1);
+  }
+
+  return(out);
+}
 
 char *owl_getquoting(char *line) {