A Perl script to convert text files (plain or line-wrapped at 80
characters) into manuscript for further desktop publishing modification
by concatenating the lines (unless the lines do not contain text (as in
a paragraph page)) and reformatting them into Rich Text Format (RTF),
which can be read by Microsoft Word, OpenOffice and many other
word-processors. It also does a wordcount, and prepends the name,
address and wordcount to the manuscript.
index
Roqet MakeMS requires 2 additional Perl modules to
be installed on your system, XML::Simple and RTF::Writer
Module Install;
linux/unix:
perl -MCPAN -e shell
cpan> install XML::Simple
cpan> install RTF::Writer
cpan> exit
windows (9x, NT, 2000 + XP):
ppm
PPM> install XML::Simple
PPM> install RTF::Writer
PPM> exit
index
As per the makems.xml example, create an xml file that contains the
configuration of the RTF file (author name, file names etc.). The name
of the xml file should reflect the name of the file you wish to create,
e.g. myfile.xml will create myfile.rtf.
Once the xml file has been created, run:
perl makems.pl fullpathname/filename.xml
<?xml version="1.0" encoding="UTF-8"?>
<!--
information/parameter file for the makems script
notes:
\fsx = the font size (x)
\s1480 = double spaced
-->
<parameters>
<input_file>C:\roqetman\lang\perl\rtf\testfile.txt</input_file>
<title>roqetman's Test Manuscript</title>
<author>roqetman</author>
<!--
author details (that will be prepended to the manuscript)
Name, address, phone number, draft date, word count
note: some of these are parameters that will be inserted
-->
<author_details>
<![CDATA[
Author: (*author*)
Address:
11 OverThere Road
Somewhere Forest
NY, 10333
Phone: 555-555-5555
Draft Date: Document Generated from by RoqDocBuild v3.0 on 2008-05-21 14:59:47
Word Count: (*wordcount*)
]]>
</author_details>
<header_font>Georgia</header_font>
<!-- header detail:
\fs15 is the fontsize
-->
<header_detail>\fs15</header_detail>
<!-- page number detail:
\fs15\f2 is the fontsize,
the rest is the text that prepends the page number
use <page_number_detail>.</page_number_detail> for blank
-->
<page_number_detail>\fs15\f2 roqetman's test MS, p.</page_number_detail>
<!-- font (put in quotes if it has a space)-->
<font>Georgia</font>
<!-- paragraph detail:
\s1480 is for double spaced, \fs20 is the fontsize
-->
<paragraph_detail>\sl480\fs20</paragraph_detail>
</parameters>
index
roqet - http://www.roqet.org
index
MakeMS Perl script copyright 2005 roqet - http://www.roqet.org
Deploy et al can be distributed and modified under the terms of the
GNU General Public License: http://www.gnu.org/copyleft/gpl.html
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the
GNU General Public License for more details.
Updates and other scripts and software available at:
http://www.roqet.org/software.html
~~~
'l'
-
index