cvs commit: p5ee/P5EEx/Blue/sbin perldocs

[spadkins]

cvsuser     02/01/28 13:57:44

  Modified:    P5EEx/Blue Makefile.PL
               P5EEx/Blue/sbin perldocs
  Log:
  fixed some doc generation problems with appended .html
  
  Revision  Changes    Path
  1.6       +5 -5      p5ee/P5EEx/Blue/Makefile.PL
  
  Index: Makefile.PL
  ===================================================================
  RCS file: /cvs/public/p5ee/P5EEx/Blue/Makefile.PL,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -w -r1.5 -r1.6
  --- Makefile.PL       11 Dec 2001 05:03:46 -0000      1.5
  +++ Makefile.PL       28 Jan 2002 21:57:43 -0000      1.6
  @@ -1,6 +1,6 @@
   
   ######################################################################
  -## File: $Id: Makefile.PL,v 1.5 2001/12/11 05:03:46 spadkins Exp $
  +## File: $Id: Makefile.PL,v 1.6 2002/01/28 21:57:43 spadkins Exp $
   ######################################################################
   
   use ExtUtils::MakeMaker;
  @@ -92,7 +92,7 @@
   
   all ::
        \@sbin/perldocs \\
  -             dir=htdocs/P5EEx \\
  +             dir=htdocs \\
                docroot=/pub/p5ee/software/htdocs \\
                   distname=\$(DISTNAME) \\
                   version=\$(VERSION) \\
  
  
  
  1.5       +11 -3     p5ee/P5EEx/Blue/sbin/perldocs
  
  Index: perldocs
  ===================================================================
  RCS file: /cvs/public/p5ee/P5EEx/Blue/sbin/perldocs,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -w -r1.4 -r1.5
  --- perldocs  25 Jan 2002 20:43:06 -0000      1.4
  +++ perldocs  28 Jan 2002 21:57:43 -0000      1.5
  @@ -1,7 +1,7 @@
   #!/usr/local/bin/perl
   
   #############################################################################
  -## $Id: perldocs,v 1.4 2002/01/25 20:43:06 spadkins Exp $
  +## $Id: perldocs,v 1.5 2002/01/28 21:57:43 spadkins Exp $
   #############################################################################
   ## (c) 2002 Stephen Adkins <[EMAIL PROTECTED]>
   ## This is free software, available under the same terms as Perl itself.
  @@ -531,7 +531,7 @@
           $htmlfile = $data{class}{$class}{podclass};
           if ($htmlfile) {
               $htmlfile =~ s!::!/!g;
  -            $htmlfile = "../$htmlfile";
  +            $htmlfile = "../${htmlfile}.html";
               $html .= <<EOF;
         <A HREF="$htmlfile" TARGET="classFrame">$classname</A><BR>
   EOF
  @@ -656,7 +656,7 @@
           $url = $data{classgroup}{$class_group}{podclass};
           if ($url) {
               $url =~ s!::!/!g;
  -            $url = "../$url" . lc("#Class Group: $class_group");
  +            $url = "../${url}.html" . lc("#Class Group: $class_group");
               $html .= <<EOF;
   <TR BGCOLOR="white" CLASS="TableRowColor">
   <TD WIDTH="20%"><B><A HREF="$url">$class_group</A></B></TD>
  @@ -1069,6 +1069,10 @@
           @data = <FILE>;
           $data = join("", @data);
           close(FILE);
  +        #print "Reading [$file] ...\n";
  +    }
  +    else {
  +        print "Failed to open file for reading [$file]: $!\n";
       }
       $data;
   }
  @@ -1079,6 +1083,10 @@
       if (open(FILE, "> $file")) {
           print FILE $data;
           close(FILE);
  +        #print "Writing [$file] ...\n";
  +    }
  +    else {
  +        print "Failed to open file for writing [$file]: $!\n";
       }
   }