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

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

Modified Files:
	web-archive 
Log Message:
* web-archive: The "[Raw]" link on the top index page of a list
  archive is now "[mbox]".  Also, it will show the size of the mbox
  in bytes and if the mbox is gzipped.


Index: web-archive
===================================================================
RCS file: /cvsroot/mhonarc/mharc/bin/web-archive,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -r1.23 -r1.24
*** web-archive	23 May 2002 01:50:45 -0000	1.23
--- web-archive	23 May 2002 02:12:07 -0000	1.24
***************
*** 330,334 ****
        }
  
!       # check is searching is disabled
        if (defined($listdef->{$list}{'no-search'}) &&
  	  $listdef->{$list}{'no-search'}[0]) {
--- 330,334 ----
        }
  
!       # check if searching is disabled
        if (defined($listdef->{$list}{'no-search'}) &&
  	  $listdef->{$list}{'no-search'}[0]) {
***************
*** 442,451 ****
      foreach $mon (@months) {
        print INDEX qq|<li><b>$mon</b>:|;
!       print INDEX qq| <a href="$mon/index.html">[Date]</a>|
  	  if (-e join('/', $htmldir, $mon, 'index.html'));
!       print INDEX qq| <a href="$mon/threads.html">[Thread]</a>|
  	  if (-e join('/', $htmldir, $mon, 'threads.html'));
  
        if (!$listdef->{$list}{'no-raw-link'}[0]) {
  	my $mbox_file = join('/', $MBOX_DIR, $list, $mon);
  	my $mbox_url  = join('/', $MBOX_URL, $list, $mon);
--- 442,453 ----
      foreach $mon (@months) {
        print INDEX qq|<li><b>$mon</b>:|;
!       print INDEX qq|&nbsp;&nbsp;<a href="$mon/index.html">[Date]</a>|
  	  if (-e join('/', $htmldir, $mon, 'index.html'));
!       print INDEX qq|&nbsp;&nbsp;<a href="$mon/threads.html">[Thread]</a>|
  	  if (-e join('/', $htmldir, $mon, 'threads.html'));
  
        if (!$listdef->{$list}{'no-raw-link'}[0]) {
+ 	my $raw_label = '[Raw: ]';
+ 	my $compressed = 0;
  	my $mbox_file = join('/', $MBOX_DIR, $list, $mon);
  	my $mbox_url  = join('/', $MBOX_URL, $list, $mon);
***************
*** 453,459 ****
  	  $mbox_file .= ".gz";
  	  $mbox_url  .= ".gz";
  	}
  	if (-e $mbox_file) {
! 	  print INDEX qq| <a href="$mbox_url">[Raw]</a>|;
  	}
        }
--- 455,465 ----
  	  $mbox_file .= ".gz";
  	  $mbox_url  .= ".gz";
+ 	  $compressed = 1;
  	}
  	if (-e $mbox_file) {
! 	  print INDEX qq|&nbsp;&nbsp;<a href="$mbox_url">[mbox: |,
! 		      (-s _), qq| bytes|;
! 	  print INDEX qq|, gzipped|  if $compressed;
! 	  print INDEX qq|]</a>|;
  	}
        }

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