view release on metacpan or  search on metacpan

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

     }
   }
  push @html, <<END;
</table>
</body>
END

  if (1)                                                                        # Create index
   {my $target = fpe($wwwClient, qw(index html));
    my $source = owf($tempFile, join "\n", @html);
    xxx qq(sudo cp $source $target; sudo chmod -R ugo+r $wwwClient), qr();
   }
  unlink $tempFile;
 }

sub copyFilesToWeb                                                              #P Copy files into position so that they can be web served
 {if (mimajen)
   {lll "Copy file to server for viewing with mimajen";
    copyFilesToWeb2;
   }
  else