CVS: mharc/bin web-archive,1.22,1.23

Update of /cvsroot/mhonarc/mharc/bin
In directory subversions:/tmp/cvs-serv1116

Modified Files:
	web-archive 
Log Message:
Fixed problem with processing mhonarc-options: Forgot that $listdef keys
are array references.


Index: web-archive
===================================================================
RCS file: /cvsroot/mhonarc/mharc/bin/web-archive,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -r1.22 -r1.23
*** web-archive	23 May 2002 01:21:53 -0000	1.22
--- web-archive	23 May 2002 01:50:45 -0000	1.23
***************
*** 326,334 ****
        if (defined($listdef->{$list}{'mhonarc-options'})) {
  	require 'shellwords.pl';
! 	push(@mhaargs, shellwords($listdef->{$list}{'mhonarc-options'}));
        }
  
        # check is searching is disabled
!       if ($listdef->{$list}{'no-search'}) {
  	push(@mhaargs, '-definevar', "SEARCH-FORM=''");
        }
--- 326,336 ----
        if (defined($listdef->{$list}{'mhonarc-options'})) {
  	require 'shellwords.pl';
! 	push(@mhaargs,
! 	     shellwords(join(' ', @{$listdef->{$list}{'mhonarc-options'}})));
        }
  
        # check is searching is disabled
!       if (defined($listdef->{$list}{'no-search'}) &&
! 	  $listdef->{$list}{'no-search'}[0]) {
  	push(@mhaargs, '-definevar', "SEARCH-FORM=''");
        }

---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-DEV