Patch #:	43
Type:		update
Priority:	none
Modification:	add network numbers to contrib/atprint
Submitted:	Matthew Lewis <matthew@ooc.uva.nl>
Archived:	munnari.OZ.AU	mac/cap.patches/cap60.patch043
Application:	'cd cap60; patch -p < cap60.patches/cap60.patch043'
File:		cap60/contrib/atprint

*** contrib/atprint.orig	Mon Jul 29 00:46:21 1991
--- contrib/atprint		Mon Jul 29 00:46:53 1991
***************
*** 1,10 ****
  #!/usr/local/bin/perl
  #
  # Matthew Lewis <matthew@slice.ooc.uva.nl>
! # February 1991
  #
  # usage: atprint [zone]
  #
  open(PIPE,"/usr/local/cap/atlook '$ARGV[0]' |") || die "Cannot open atlook";
  $a = <PIPE>; $a = <PIPE>;
  while (<PIPE>) {
--- 1,11 ----
  #!/usr/local/bin/perl
  #
  # Matthew Lewis <matthew@slice.ooc.uva.nl>
! # April 1991
  #
  # usage: atprint [zone]
  #
+ 
  open(PIPE,"/usr/local/cap/atlook '$ARGV[0]' |") || die "Cannot open atlook";
  $a = <PIPE>; $a = <PIPE>;
  while (<PIPE>) {
***************
*** 14,28 ****
  	$net = substr($_,52,7);
  	$node = substr($_,65,3);
  	$socket = substr($_,73,3);
! 	$list{"$node"} .= "$name\034";
  }
! print "\n\nNode list for network $ARGV[0]:\n";
! print "Node	Names\n----	------------------------\n\n";
! while (($key, $value) = each %list) {
! 	print "$key:";
! 	@names = split(/\034/,$value);
  	@names = sort @names;
  	for ($i=0; $i <= $#names; $i++) {
  		print "	$names[$i]\n";
  	}
  	print "--------------------------------------------\n";
--- 15,30 ----
  	$net = substr($_,52,7);
  	$node = substr($_,65,3);
  	$socket = substr($_,73,3);
! 	$list{"$net:$node"} .= "$name\034";
  }
! print "\n\nNode list for network $ARGV[0]:\nNet	Node	Names\n----	---	------------------------\n\n";
! foreach (sort keys(%list)) {
! 	($net,$node) = split(/:/);
! 	print "$net	$node";
! 	@names = split(/\034/,$list{$_});
  	@names = sort @names;
  	for ($i=0; $i <= $#names; $i++) {
+ 		if ($i != 0) {print "	";}
  		print "	$names[$i]\n";
  	}
  	print "--------------------------------------------\n";
*** README.orig		Mon Jul 29 00:43:49 1991
--- README		Mon Jul 29 00:44:17 1991
***************
*** 3,9 ****
  	       (For use with AppleTalk/Ethernet bridge)
  
  	o RELEASE NOTES
! 	o CAP Distribution 6.0, Patch Level 42, July 1991
  
  Introduction
  ------------
--- 3,9 ----
  	       (For use with AppleTalk/Ethernet bridge)
  
  	o RELEASE NOTES
! 	o CAP Distribution 6.0, Patch Level 43, July 1991
  
  Introduction
  ------------