view release on metacpan or  search on metacpan

lib/Data/Edit/Xml/To/DitaVb.pm  view on Meta::CPAN

sub copyLogFiles                                                                #P Copy log files to reports/ so they get uploaded too
 {for my $source(errorLogFile)#, logFile, logStderr)
   {my $target = swapFilePrefix($source, perl, reports);
    copyBinaryFile($source, $target) if -e $source;
   }
 }

sub chunkFile($)                                                                #P Chunk a file name to make it more readable
 {my ($file) = @_;                                                              # File to chunk
  my $f = swapFilePrefix($file, home);                                          # Remove common prefix
  join " <big><b>/</b></big> ", split m(/), $f;                                 # Chunk the file name to make it more readable
 }

sub copyFilesToWeb2                                                             #P Copy files into position so that they can be web served
 {return if develop;
  my $client        = client;
  my $reports       = reports;
  my $www           = www;
  my $wwwClient     = publications;
  my $searchFolder  = qq(<input style="display: none;" type="text" name="folder" value="$client">);
  my $date          = dateTimeStamp;

lib/Data/Edit/Xml/To/DitaVb.pm  view on Meta::CPAN

           {if (my $f = $files{$1})
             {$s = qq(<a href="$f">$s</a>);
             }
           }
         }
        join q(), @s;
       }->($S);

      my $H = sub                                                               # Expand hrefs
       {my ($text) = @_;
        my @hrefs = split m((?= href="[^"]+)), $text;
        for my $h(@hrefs)
         {if ($h =~ m(\A href="([^"]+)"(.*)\Z)s)
           {my $hrefFile = $1;
            my $rest     = $2;
            my $F = absFromAbsPlusRel($file, $hrefFile);
            if (my $f = $files{$F})
             {$h = qq( <a href="$f">$hrefFile</a> $rest);
             }
           }
         }