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

[Earl Hood <[EMAIL PROTECTED]>]

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 [EMAIL PROTECTED] with the
message text UNSUBSCRIBE MHONARC-DEV