perl-docs-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-docs/lib/DocSet/DocSet HTML.pm
Date Mon, 25 Mar 2002 17:08:04 GMT
stas        02/03/25 09:08:04

  Modified:    lib/DocSet/Doc Common.pm
               lib/DocSet/DocSet HTML.pm
  Log:
  sync with DocSet:
  
  - don't gzip the source and pdf docs anymore, it makes things harder
    on the users. so what that they have to download a bit more...
  
  - a few fixes
  
  Revision  Changes    Path
  1.4       +16 -8     modperl-docs/lib/DocSet/Doc/Common.pm
  
  Index: Common.pm
  ===================================================================
  RCS file: /home/cvs/modperl-docs/lib/DocSet/Doc/Common.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- Common.pm	22 Mar 2002 02:01:51 -0000	1.3
  +++ Common.pm	25 Mar 2002 17:08:04 -0000	1.4
  @@ -52,12 +52,16 @@
       my %pdf = ();
       if (-e $pdf_path) {
           copy_file($pdf_path, $dst_path);
  -        gzip_file($dst_path);
  -        my $gzip_path = "$dst_path.gz";
           %pdf = (
  -            size => format_bytes(-s $gzip_path),
  -            link => filename($gzip_path),
  +            size => format_bytes(-s $dst_path),
  +            link => filename($dst_path),
           );
  +#        gzip_file($dst_path);
  +#        my $gzip_path = "$dst_path.gz";
  +#        %pdf = (
  +#            size => format_bytes(-s $gzip_path),
  +#            link => filename($gzip_path),
  +#        );
       }
   #dumper \%pdf;
   
  @@ -81,12 +85,16 @@
           # it's ok if the source file has the same name as the dest,
           # because the final dest file wasn't created yet.
           copy_file($src_path, $dst_path);
  -        gzip_file($dst_path);
  -        my $gzip_path = "$dst_path.gz";
           %src = (
  -            size => format_bytes(-s $gzip_path),
  -            link => filename($gzip_path),
  +            size => format_bytes(-s $dst_path),
  +            link => filename($dst_path),
           );
  +#        gzip_file($dst_path);
  +#        my $gzip_path = "$dst_path.gz";
  +#        %src = (
  +#            size => format_bytes(-s $gzip_path),
  +#            link => filename($gzip_path),
  +#        );
       }
   #dumper \%src;
   
  
  
  
  1.4       +9 -5      modperl-docs/lib/DocSet/DocSet/HTML.pm
  
  Index: HTML.pm
  ===================================================================
  RCS file: /home/cvs/modperl-docs/lib/DocSet/DocSet/HTML.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- HTML.pm	22 Mar 2002 02:01:52 -0000	1.3
  +++ HTML.pm	25 Mar 2002 17:08:04 -0000	1.4
  @@ -139,7 +139,7 @@
       DocSet::Util::write_file($dst_file, $content);
   }
   
  -# search for a pdf version in the parallel tree and copy/gzip it to
  +# search for a pdf version in the parallel tree and copy it to
   # the same dir as the html version (we link to it from the html)
   sub pdf_doc {
       my $self = shift;
  @@ -153,12 +153,16 @@
       my %pdf = ();
       if (-e $src_path) {
           copy_file($src_path, $dst_path);
  -        gzip_file($dst_path);
  -        my $gzip_path = "$dst_path.gz";
           %pdf = (
  -            size => format_bytes(-s $gzip_path),
  -            link => filename($gzip_path),
  +            size => format_bytes(-s $dst_path),
  +            link => filename($dst_path),
           );
  +#        gzip_file($dst_path);
  +#        my $gzip_path = "$dst_path.gz";
  +#        %pdf = (
  +#            size => format_bytes(-s $gzip_path),
  +#            link => filename($gzip_path),
  +#        );
       }
   #dumper \%pdf;
   
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org


Mime
View raw message