This is a patch to make amlabel take a "-a" option which adds the tape
to the tapelist file if the label is successfully written, which means
amanda will actually suggest it as the next tape to receive a backup.

Index: ChangeLog
===================================================================
RCS file: /usr/products/olsshare/cvs/amanda/src/amanda/ChangeLog,v
retrieving revision 1.2
diff -r1.2 ChangeLog
0a1,5
> 2000-02-07  Marc Mengel <mengel@fnal.gov>
> 
> 	* amlabel.c (main) -- new option -a, adds a call to add_tape to add
> 	the newly labeled tape to the tapelist file for you.
> 
Index: man/amlabel.8.in
===================================================================
RCS file: /usr/products/olsshare/cvs/amanda/src/amanda/man/amlabel.8.in,v
retrieving revision 1.1.1.1
diff -r1.1.1.1 man/amlabel.8.in
14a15
> [-a]
43a45,48
> .LP
> The 
> .B -a
> (add) option will add the tape to the configuration's tapelist file.
diff -c -r1.4 amlabel.c
Index: amlabel.c
===================================================================
RCS file: /usr/products/olsshare/cvs/amanda/src/amanda/server-src/amlabel.c,v
retrieving revision 1.4
retrieving revision 1.8
diff -c -r1.4 -r1.8
*** server-src/amlabel.c	2000/02/02 15:51:32	1.4
--- server-src/amlabel.c	2000/02/07 23:27:04	1.8
***************
*** 51,57 ****
  void usage(argv0)
  char *argv0;
  {
!     fprintf(stderr, "Usage: %s [-f] <conf> <label> [slot <slot-number>]\n",
  	    argv0);
      exit(1);
  }
--- 51,57 ----
  void usage(argv0)
  char *argv0;
  {
!     fprintf(stderr, "Usage: %s [-a] [-f] <conf> <label> [slot <slot-number>]\n",
  	    argv0);
      exit(1);
  }
***************
*** 68,73 ****
--- 68,75 ----
      unsigned long malloc_hist_2, malloc_size_2;
      int fd;
      int force, tape_ok;
+     int dashargs = 0;
+     int addtape = 0;
      tape_t *tp;
  #ifdef HAVE_LIBVTBLC
      char *rawtapedev = NULL;
***************
*** 90,109 ****
  
      erroutput_type = ERR_INTERACTIVE;
  
!     if(argc > 1 && strcmp(argv[1],"-f") == 0)
! 	 force=1;
!     else force=0;
  
!     if(argc != 3+force && argc != 5+force)
  	usage(argv[0]);
  
!     confname = argv[1+force];
!     label = argv[2+force];
  
!     if(argc == 5+force) {
! 	if(strcmp(argv[3+force], "slot"))
  	    usage(argv[0]);
! 	slotstr = argv[4+force];
  	slotcommand = 1;
      }
      else {
--- 92,119 ----
  
      erroutput_type = ERR_INTERACTIVE;
  
!     force=0;
!     while ( argc > dashargs + 1 && argv[dashargs + 1][0] == '-' ) {
! 	if( strcmp(argv[dashargs+1],"-f") == 0) {
! 	     force=1;
! 	} else if( strcmp(argv[dashargs+1],"-a") == 0) {
!              addtape=1;
!         } else {
! 	     usage(argv[0]);
!         }
!         dashargs++;
!     }
  
!     if(argc != 3+dashargs && argc != 5+dashargs)
  	usage(argv[0]);
  
!     confname = argv[1+dashargs];
!     label = argv[2+dashargs];
  
!     if(argc == 5+dashargs) {
! 	if(strcmp(argv[3+dashargs], "slot"))
  	    usage(argv[0]);
! 	slotstr = argv[4+dashargs];
  	slotcommand = 1;
      }
      else {
***************
*** 132,137 ****
--- 142,148 ----
  	    error("label %s already on a tape\n",label);
      }
  
+ 
      if(!changer_init()) {
  	if(slotcommand) {
  	    fprintf(stderr,
***************
*** 332,337 ****
--- 343,354 ----
  #endif /* HAVE_LIBVTBLC */
  	}
  #endif /* HAVE_LINUX_ZFTAPE_H */
+ 
+ 	if(addtape) {
+ 	    printf(", adding to %s", tapefilename );
+ 	    add_tapelabel(0, label);
+ 	    write_tapelist(tapefilename);
+ 	}
  
  	printf(", done.\n");
      }