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.
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
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>
roqet - http://www.roqet.org
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' -