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

[Earl Hood <[EMAIL PROTECTED]>]

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