home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / sys / hp / 12646 < prev    next >
Encoding:
Text File  |  1992-11-08  |  15.9 KB  |  541 lines
  1. Newsgroups: comp.sys.hp
  2. Path: sparky!uunet!charon.amdahl.com!pacbell.com!ames!agate!stanford.edu!rock!concert!sas!mozart.unx.sas.com!gorgon.unx.sas.com!mcm
  3. From: mcm@gorgon.unx.sas.com (Mike Mitchell)
  4. Subject: AMD mods
  5. Sender: news@unx.sas.com (Noter of Newsworthy Events)
  6. Message-ID: <BxBHy2.3u4@unx.sas.com>
  7. Date: Fri, 6 Nov 1992 23:15:37 GMT
  8. Nntp-Posting-Host: gorgon.unx.sas.com
  9. Organization: SAS Institute Inc.
  10. Lines: 529
  11.  
  12. We've been running AMD 5.3 beta for some time, and have patched some bugs
  13. and made other changes to better support our environment of HP 700 machines
  14. running 8.07.  
  15.  
  16. We had problems with NFS RPC timeout values being set incorrectly, mounts
  17. failing while an unmount was in progress, and most recently, a mount failing
  18. within 5 minutes of an unmount.  I'm including here some patches we received
  19. to convert AMD to HPUX 8.07.
  20.  
  21. We've been using AMD for some time now, and a situation came up where I needed
  22. a selector equivalent to '${.key}'.  The key in our case contains a fully
  23. qualified hostname, i.e. 'qa.pc.sas.com' or 'warlock.dev.sas.com'.
  24. I needed to strip the hostname off and select on the domain of the key.
  25.  
  26. I added two new selectors, named '.key' and 'key.', and initialized them
  27. to the same as ${.key} and ${key.}, respectivly.  I then ran into some
  28. trouble, because sometimes ${.key} was a null string.  To correct for
  29. those cases, I set the selector .key to be "<NULL>", so I can check
  30. for it.  These changes let me use different NFS rsize and wsize parameters
  31. depending on what domain the destination machine is in.
  32. Here is an example from one of our map files:
  33.  
  34. #----------------------------------------------------------------
  35. # Wildcard match - Can't have more than 2000 bytes in this file!
  36. #
  37. *   -opts:=rw,soft,grpid,suid,rsize=1024,wsize=1024,retrans=20,timeo=10 \
  38.     hostd==${key};type:=link;fs:=.. \
  39.     host==${key};type:=link;fs:=.. \
  40.     .key==<NULL>;host!=${key};type:=host;rhost:=${key};fs:=/remote/${key.};\
  41.     opts:=rw,soft,grpid,suid,rsize=4096,wsize=4096,retrans=20,timeo=10 \
  42.     .key!=<NULL>;domain==${.key};hostd!=${key};host!=${key};type:=host;\
  43.     rhost:=${key};fs:=/remote/${key.};\
  44.     opts:=rw,soft,grpid,suid,rsize=4096,wsize=4096,retrans=20,timeo=10 \
  45.     .key!=<NULL>;.key==unx;hostd!=${key};type:=host;\
  46.     rhost:=${key};fs:=/remote/${key.};\
  47.     opts:=rw,soft,grpid,suid,rsize=4096,wsize=4096,retrans=20,timeo=10 \
  48.     .key!=<NULL>;.key==dev.sas.com;hostd!=${key};type:=host;\
  49.     rhost:=${key};fs:=/remote/${key};\
  50.     opts:=rw,soft,grpid,suid,rsize=8192,wsize=8192,retrans=20,timeo=10 \
  51.     .key!=<NULL>;.key==dev;hostd!=${key};type:=host;\
  52.     rhost:=${key};fs:=/remote/${key};\
  53.     opts:=rw,soft,grpid,suid,rsize=8192,wsize=8192,retrans=20,timeo=10 \
  54.     .key!=<NULL>;domain!=${.key};hostd!=${key};host!=${key};type:=host;\
  55.     rhost:=${key};fs:=/remote/${key};delay:=3
  56. #--------------------------------------------------------------
  57.  
  58. I don't need the 'key.' selector, but I added it for completeness.
  59. Someone might like the same approach for the 'path' selector, adding
  60. '/path' and 'path/'.
  61.  
  62. We also have many Apollos here, and need two slashes ('//') left on the
  63. end of strings.  I'm including a patch Kevin Bond added.
  64.  
  65. I've tried to send these patches off, but the mail bounces back.  Can
  66. anyone suggest the appropriate news group?  Anyway, since we deal
  67. primarily with HP's, I thought this would be a good place to start.
  68.  
  69. We are running amd.5.2.2.1 1992/02/09 15:11:18 5.3 beta #7, and here
  70. are the context diffs:
  71.  
  72. *** amd/afs_ops.c    Tue Oct  6 15:46:03 1992
  73. --- amd/afs_ops.c.orig    Sun Feb  9 10:07:53 1992
  74. ***************
  75. *** 185,196 ****
  76.       if (strlen(fs_hostname) >= HOSTNAMESZ)
  77.           strcpy(fs_hostname + HOSTNAMESZ - 3, "..");
  78.   #endif /* HOSTNAMESZ */
  79. - #ifdef NFSMNT_FSNAME
  80. -     nfs_args.fsname = pid_fsname;
  81. -     nfs_args.flags |= NFSMNT_FSNAME;
  82. - #endif /* NFSMNT_FSNAME */
  83.   
  84. - 
  85.       /*
  86.        * Parse a subset of the standard nfs options.  The
  87.        * others are probably irrelevant for this application
  88. --- 185,191 ----
  89. ***************
  90. *** 905,913 ****
  91.            * Note whether this is a real mount attempt
  92.            */
  93.           if (p == &efs_ops) {
  94. - #ifdef DEBUG
  95.               plog(XLOG_MAP, "Map entry %s for %s failed to match", *cp->ivec, mp->am_path);
  96. - #endif
  97.               if (this_error <= 0)
  98.                   this_error = ENOENT;
  99.               continue;
  100. --- 900,906 ----
  101. ***************
  102. *** 1271,1277 ****
  103.                   continue;
  104.               }
  105.   
  106. !             if (!(mf->mf_flags & MFF_MOUNTED) || (mf->mf_flags & MFF_UNMOUNTING)) {
  107.   in_progrss:
  108.                   /*
  109.                    * If the fs is not mounted or it is unmounting then there
  110. --- 1264,1270 ----
  111.                   continue;
  112.               }
  113.   
  114. !             if (!(mf->mf_flags & MFF_MOUNTED) /*|| (mf->mf_flags & MFF_UNMOUNTING)*/) {
  115.   in_progrss:
  116.                   /*
  117.                    * If the fs is not mounted or it is unmounting then there
  118. ***************
  119. *** 1284,1292 ****
  120.                   dlog("ignoring mount of %s in %s -- in progress",
  121.                       fname, mf->mf_mount);
  122.   #endif /* DEBUG */
  123. - if (mf->mf_flags & MFF_UNMOUNTING){
  124. - plog(XLOG_WARNING, "ignoring mount of %s in %s -- unmount in progress", fname,
  125. - mf->mf_mount);}
  126.                   in_progress++;
  127.                   continue;
  128.               }
  129. --- 1277,1282 ----
  130. *** amd/host_ops.c    Mon Sep 28 11:41:27 1992
  131. --- amd/host_ops.c.orig    Sun Feb  9 10:08:05 1992
  132. ***************
  133. *** 247,262 ****
  134.       char fs_name[MAXPATHLEN], *rfs_dir;
  135.       char mntpt[MAXPATHLEN];
  136.       struct timeval tv;
  137. ! /*
  138. !  * The original 10 second per try timeout is WAY too large, especially
  139. !  * if we're only waiting 10 or 20 seconds max for the response.
  140. !  * That would mean we'd try only once in 10 seconds, and we could
  141. !  * lose the transmitt or receive packet, and never try again.
  142. !  * A 2-second per try timeout here is much more reasonable.
  143. !  * 09/28/92 Mike Mitchell, mcm@unx.sas.com
  144. !  *    tv.tv_sec = 10; tv.tv_usec = 0;
  145. !  */
  146. !      tv.tv_sec = 2; tv.tv_usec = 0;
  147.   
  148.       /*
  149.        * Read the mount list
  150. --- 247,253 ----
  151.       char fs_name[MAXPATHLEN], *rfs_dir;
  152.       char mntpt[MAXPATHLEN];
  153.       struct timeval tv;
  154. !     tv.tv_sec = 10; tv.tv_usec = 0;
  155.   
  156.       /*
  157.        * Read the mount list
  158. ***************
  159. *** 306,314 ****
  160.       tv2.tv_sec = 10; tv2.tv_usec = 0;
  161.       clnt_stat = clnt_call(client, MOUNTPROC_EXPORT, xdr_void, 0, xdr_exports, &exlist, tv2);
  162.       if (clnt_stat != RPC_SUCCESS) {
  163. -         extern char *clnt_sperrno();
  164. -         char *msg = clnt_sperrno(clnt_stat);
  165. -         plog(XLOG_ERROR, "host_fmount rpc failed: %s", msg);
  166.           /*clnt_perror(client, "rpc");*/
  167.           error = EIO;
  168.           goto out;
  169. --- 297,302 ----
  170. *** amd/info_hes.c    Fri May  8 10:29:52 1992
  171. --- amd/info_hes.c.orig    Sun Feb  9 10:08:09 1992
  172. ***************
  173. *** 459,465 ****
  174.           cp += sizeof(u_short);
  175.           /* Check to see if key is in our domain */
  176.           if (type == T_TXT && hs_strip_our_domain(key)) {
  177. !             value = hs_make_value((unsigned char *)cp, len);
  178.               if (value == NULL)
  179.                   return(-1);
  180.               key_cpy = strdup(key);
  181. --- 459,465 ----
  182.           cp += sizeof(u_short);
  183.           /* Check to see if key is in our domain */
  184.           if (type == T_TXT && hs_strip_our_domain(key)) {
  185. !             value = hs_make_value(cp, len);
  186.               if (value == NULL)
  187.                   return(-1);
  188.               key_cpy = strdup(key);
  189. ***************
  190. *** 500,510 ****
  191.   
  192.   char *
  193.   hs_make_value(cp, len)
  194. ! unsigned char *cp;
  195.   int len;
  196.   {
  197. !     char *value, *valuep;
  198. !     unsigned char *cpcpy;
  199.       int cnt, nextcnt, totalcnt, lencpy;
  200.   #ifdef DEBUG
  201.       char *dbgname;
  202. --- 500,509 ----
  203.   
  204.   char *
  205.   hs_make_value(cp, len)
  206. ! char *cp;
  207.   int len;
  208.   {
  209. !     char *value, *cpcpy, *valuep;
  210.       int cnt, nextcnt, totalcnt, lencpy;
  211.   #ifdef DEBUG
  212.       char *dbgname;
  213. *** amd/mntfs.c    Wed Sep 23 17:46:39 1992
  214. --- amd/mntfs.c.orig    Sun Feb  9 10:08:22 1992
  215. ***************
  216. *** 175,187 ****
  217.                    */
  218.                   if (mf->mf_ops != &efs_ops)
  219.                       continue;
  220. -             /*
  221. -              * following two lines added to prevent AMD
  222. -              * from hanging.  Suggested by:
  223. -              * cagney@cs.adelaide.edu.au (Andrew Cagney)
  224. -              */
  225. -                 else
  226. -                     return dup_mntfs(mf);
  227.               } else /* ops != &efs_ops */ {
  228.                   /*
  229.                    * If the existing ops are efs_ops
  230. --- 175,180 ----
  231. *** amd/nfs_ops.c    Fri Mar 27 12:41:00 1992
  232. --- amd/nfs_ops.c.orig    Sun Feb  9 10:08:27 1992
  233. ***************
  234. *** 530,540 ****
  235.       if (strlen(host) >= HOSTNAMESZ)
  236.           strcpy(host + HOSTNAMESZ - 3, "..");
  237.   #endif /* HOSTNAMESZ */
  238. - #ifdef NFSMNT_FSNAME
  239. -     nfs_args.fsname = fs_name;
  240. -     nfs_args.flags |= NFSMNT_FSNAME;
  241. - #endif /* NFSMNT_FSNAME */
  242. - 
  243.   
  244.       if (nfs_args.rsize = hasmntval(&mnt, "rsize"))
  245.           nfs_args.flags |= NFSMNT_RSIZE;
  246. --- 530,535 ----
  247. *** amd/opts.c    Wed Jul 15 14:21:50 1992
  248. --- amd/opts.c.orig    Sun Feb  9 10:08:35 1992
  249. ***************
  250. *** 43,49 ****
  251.   
  252.   #include "am.h"
  253.   
  254. ! extern char *getenv P((Const char *));
  255.   
  256.   /*
  257.    * static copy of the options with
  258. --- 43,49 ----
  259.   
  260.   #include "am.h"
  261.   
  262. ! extern char *getenv P((const char *));
  263.   
  264.   /*
  265.    * static copy of the options with
  266. ***************
  267. *** 54,63 ****
  268.   static char *opt_host = hostname;
  269.   static char *opt_hostd = hostd;
  270.   static char nullstr[] = "";
  271. - static char NullStr[] = "<NULL>";
  272.   static char *opt_key = nullstr;
  273. - static char *opt_dkey = NullStr;
  274. - static char *opt_keyd = nullstr;
  275.   static char *opt_map = nullstr;
  276.   static char *opt_path = nullstr;
  277.   
  278. --- 54,60 ----
  279. ***************
  280. *** 103,110 ****
  281.       { S("cache"), &fs_static.opt_cache, 0 },
  282.       { S("user"), &fs_static.opt_user, 0 },
  283.       { S("group"), &fs_static.opt_group, 0 },
  284. -     { S(".key"), 0, &opt_dkey },
  285. -     { S("key."), 0, &opt_keyd },
  286.       { S("var0"), &vars[0], 0 },
  287.       { S("var1"), &vars[1], 0 },
  288.       { S("var2"), &vars[2], 0 },
  289. --- 100,105 ----
  290. ***************
  291. *** 245,254 ****
  292.               /*
  293.                * No value, just continue
  294.                */
  295. ! #ifdef DEBUG
  296. !             plog(XLOG_USER, "key %s: No value component in \"%s\"",
  297. !                     mapkey, f);
  298. ! #endif
  299.               continue;
  300.           }
  301.   
  302. --- 240,246 ----
  303.               /*
  304.                * No value, just continue
  305.                */
  306. !             plog(XLOG_USER, "key %s: No value component in \"%s\"", mapkey, f);
  307.               continue;
  308.           }
  309.   
  310. ***************
  311. *** 302,315 ****
  312.                   case SelEQ:
  313.                   case SelNE:
  314.                       if (op->sel_p && (STREQ(*op->sel_p, opt) == (vs_opt == SelNE))) {
  315. - #ifdef DEBUG
  316.                           plog(XLOG_MAP, "key %s: map selector %s (=%s) did not %smatch %s",
  317.                               mapkey,
  318.                               op->name,
  319.                               *op->sel_p,
  320. !                             vs_opt == SelNE ? "(not) " : "",
  321.                               opt);
  322. - #endif
  323.                           return 0;
  324.                       }
  325.                       break;
  326. --- 294,305 ----
  327.                   case SelEQ:
  328.                   case SelNE:
  329.                       if (op->sel_p && (STREQ(*op->sel_p, opt) == (vs_opt == SelNE))) {
  330.                           plog(XLOG_MAP, "key %s: map selector %s (=%s) did not %smatch %s",
  331.                               mapkey,
  332.                               op->name,
  333.                               *op->sel_p,
  334. !                             vs_opt == SelNE ? "not " : "",
  335.                               opt);
  336.                           return 0;
  337.                       }
  338.                       break;
  339. ***************
  340. *** 746,752 ****
  341.   /*
  342.    * Remove trailing /'s from a string
  343.    * unless the string is a single / (Steven Glassman)
  344. -  * or unless it is two slashes // (Kevin D. Bond)
  345.    */
  346.   void deslashify P((char *s));
  347.   void deslashify(s)
  348. --- 736,741 ----
  349. ***************
  350. *** 754,761 ****
  351.   {
  352.       if (s && *s) {
  353.           char *sl = s + strlen(s);
  354. -         if ( *s == '/' && s[1] == '/' )
  355. -             s++;
  356.           while (*--sl == '/' && sl > s)
  357.               *sl = '\0';
  358.       }
  359. --- 743,748 ----
  360. ***************
  361. *** 783,801 ****
  362.       opt_map = map;
  363.       opt_path = path;
  364.   
  365. -     opt_dkey = strchr(key, '.');
  366. -     if (!opt_dkey) {
  367. -         opt_dkey = NullStr;
  368. -         opt_keyd = key;
  369. -     }
  370. -     else {
  371. -         opt_keyd = strnsave(key, opt_dkey - key);
  372. -         opt_dkey++;
  373. -         if (*opt_dkey == '\0')    /* check for 'host.' */
  374. -         opt_dkey = NullStr;
  375. -     }
  376. - 
  377. - 
  378.       /*
  379.        * Expand global options
  380.        */
  381. --- 770,775 ----
  382. ***************
  383. *** 853,862 ****
  384.       /*
  385.        * Clear defined options
  386.        */
  387. -     if (opt_keyd != key && opt_keyd != nullstr)
  388. -         free(opt_keyd);
  389. -     opt_keyd = nullstr;
  390. -     opt_dkey = NullStr;
  391.       opt_key = opt_map = opt_path = nullstr;
  392.   
  393.       return ok;
  394. --- 827,832 ----
  395. *** amd/srvr_nfs.c    Tue Nov  3 19:40:00 1992
  396. --- amd/srvr_nfs.c.orig    Sun Feb  9 10:08:47 1992
  397. ***************
  398. *** 641,667 ****
  399.   
  400.       ITER(fs, fserver, &nfs_srvr_list) {
  401.           if (STREQ(host, fs->fs_host)) {
  402. -             /*
  403. -              * following if statement from Mike Mitchell
  404. -              * <mcm@unx.sas.com>
  405. -              * Initialize the ping data if we are no longer
  406. -              * pinging.  The np_ttl and np_ping fields are
  407. -              * especially important.
  408. -              */
  409. -             if (!(fs->fs_flags & FSF_PINGING)) {
  410. -                 np = (nfs_private *) fs->fs_private;
  411. -                 np->np_mountd_inval = TRUE;
  412. -                 np->np_xid = NPXID_ALLOC();
  413. -                 np->np_error = -1;
  414. -                 np->np_ping = 0;
  415. -                 /*
  416. -                  * Initially the server will be deemed dead
  417. -                  * after MAX_ALLOWED_PINGS of the fast variety
  418. -                  * have failed.
  419. -                  */
  420. -                 np->np_ttl = MAX_ALLOWED_PINGS * FAST_NFS_PING +
  421. -                         clocktime() - 1;
  422. -             }
  423.               start_nfs_pings(fs, pingval);
  424.               fs->fs_refc++;
  425.               return fs;
  426. --- 641,646 ----
  427. *** amq/amq.c    Fri Oct  2 11:53:35 1992
  428. --- amq/amq.c.orig    Sun Feb  9 10:08:57 1992
  429. ***************
  430. *** 408,419 ****
  431.       s = privsock(SOCK_STREAM);
  432.       clnt = clnttcp_create(&server_addr, AMQ_PROGRAM, AMQ_VERSION, &s, 0, 0);
  433.       if (clnt == 0) {
  434. -         struct timeval tv;
  435.           close(s);
  436.           s = privsock(SOCK_DGRAM);
  437. !         tv.tv_sec  = 2;        /* 2 seconds per retry */
  438. !         tv.tv_usec = 0;
  439. !         clnt = clntudp_create(&server_addr, AMQ_PROGRAM, AMQ_VERSION, tv, &s);
  440.       }
  441.       if (clnt == 0) {
  442.           fprintf(stderr, "%s: ", progname);
  443. --- 408,416 ----
  444.       s = privsock(SOCK_STREAM);
  445.       clnt = clnttcp_create(&server_addr, AMQ_PROGRAM, AMQ_VERSION, &s, 0, 0);
  446.       if (clnt == 0) {
  447.           close(s);
  448.           s = privsock(SOCK_DGRAM);
  449. !         clnt = clntudp_create(&server_addr, AMQ_PROGRAM, AMQ_VERSION, TIMEOUT, &s);
  450.       }
  451.       if (clnt == 0) {
  452.           fprintf(stderr, "%s: ", progname);
  453. *** config/Makefile.hpux    Fri Mar 27 12:41:23 1992
  454. --- config/Makefile.hpux.orig    Sun Feb  9 10:10:06 1992
  455. ***************
  456. *** 44,50 ****
  457.   
  458.   #CC = gcc ${GCCOPTS}
  459.   # Works only on HP300
  460. ! #CC = cc -Wc,-Nd2000
  461. ! #SYSCC = $(CC)
  462.   # Works only Hp800
  463. ! CC = cc -Aa -D_HPUX_SOURCE -Dhp9000s800 -Dhp9000s700
  464. --- 44,50 ----
  465.   
  466.   #CC = gcc ${GCCOPTS}
  467.   # Works only on HP300
  468. ! CC = cc -Wc,-Nd2000
  469. ! SYSCC = $(CC)
  470.   # Works only Hp800
  471. ! # CC = cc
  472. *** config/misc-hpux.h    Fri Mar 27 12:41:31 1992
  473. --- config/misc-hpux.h.orig    Sun Feb  9 10:10:04 1992
  474. ***************
  475. *** 77,81 ****
  476.   #define    NFSMNT_HOSTNAME    0x020    /* set hostname for error printf */
  477.   #define    NFSMNT_INT    0x040    /* set option to have interruptable mounts */
  478.   #define    NFSMNT_NODEVS   0x080   /* turn off device file access (default on) */
  479. - #define NFSMNT_FSNAME   0x100   /* provide name of server's fs to system */
  480. - 
  481. --- 77,79 ----
  482. *** config/os-hpux.h    Fri May  8 09:54:48 1992
  483. --- config/os-hpux.h.orig    Sun Feb  9 10:10:03 1992
  484. ***************
  485. *** 133,143 ****
  486.    */
  487.   #define FIXUP_MNTENT(mntp) { \
  488.       (mntp)->mnt_time = clocktime(); \
  489. -     (mntp)->mnt_cnode = 0; \
  490.   }
  491.   #define FIXUP_MNTENT_DUP(mntp, mp) { \
  492.       (mntp)->mnt_time = (mp)->mnt_time; \
  493. -     (mntp)->mnt_cnode = (mp)->mnt_cnode; \
  494.   }
  495.   
  496.   #define    bzero(ptr, len)    memset(ptr, 0, len)
  497. --- 133,141 ----
  498. *** include/config.h    Fri May  8 10:21:27 1992
  499. --- include/config.h.orig    Sun Feb  9 10:09:36 1992
  500. ***************
  501. *** 137,142 ****
  502.   extern void plog ();
  503.   /*extern void plog P((int, char*, ...));*/
  504.   extern void show_opts P((int ch, struct opt_tab*));
  505. ! extern char* strchr P((Const char*, int)); /* C */
  506.   extern voidp xmalloc P((int));
  507.   extern voidp xrealloc P((voidp, int));
  508. --- 137,142 ----
  509.   extern void plog ();
  510.   /*extern void plog P((int, char*, ...));*/
  511.   extern void show_opts P((int ch, struct opt_tab*));
  512. ! extern char* strchr P((const char*, int)); /* C */
  513.   extern voidp xmalloc P((int));
  514.   extern voidp xrealloc P((voidp, int));
  515. *** rpcx/amq.x    Fri May  8 10:25:23 1992
  516. --- rpcx/amq.x.orig    Sun Feb  9 10:09:00 1992
  517. ***************
  518. *** 45,51 ****
  519.    * Protocol description used by the amq program
  520.    */
  521.   
  522. ! Const AMQ_STRLEN = 1024;    /* Maximum length of a pathname */
  523.   
  524.   /*
  525.    * The type dirpath is the pathname of a directory
  526. --- 45,51 ----
  527.    * Protocol description used by the amq program
  528.    */
  529.   
  530. ! const AMQ_STRLEN = 1024;    /* Maximum length of a pathname */
  531.   
  532.   /*
  533.    * The type dirpath is the pathname of a directory
  534. ====================================================================
  535. End of patches.
  536. -- 
  537. ------------------------------------------------------------------------------
  538. Mike Mitchell            "There's laughter where I used to see a tear.
  539. mcm@unx.sas.com             It's all done with mirrors, have no fear."
  540. (919) 677-8000 X6793            -- Blue Oyster Cult
  541.