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: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
