#!/usr/bin/perl -w

#       CopyLeft
#
#       Paolo Lulli paolo@lulli.net
#          
#       www.lulli.net



if ( $#ARGV == -1 ) 
	{
	print "\e[1;31m \tInserisci il nome del file su cui scrivere \e[00m\n\t";
	$nomefile = <STDIN>;
	}
else	{
	$nomefile = $ARGV[0];
	}


# < Definizione variabili >

print"\t\e[6;35mInserire il titolo\e[00m\n\t";
$titolo = <STDIN>;
chomp($titolo);

print"\t\e[6;35mInserire il valore dal sostituire nel campo autore\e[00m\n\t";
$autore = <STDIN>;
chomp($autore);

print"\t\e[6;35mInserire il dcocumentclass\e[00m\n\t";
$documentclass = <STDIN>;
chomp($documentclass);

print"\t\e[6;35mInserire argomento del testo\e[00m\n\t";
$oggetto = <STDIN>;
chomp($oggetto);

print"\t\e[6;35mDimensione caratteri:\e[00m\n\t";
$dimcarattere = <STDIN>;
chomp($dimcarattere);

print"\t\e[6;35mFormato carta:\e[00m\n\t";
$dimcarta = <STDIN>;
chomp($dimcarta);

# < / Definizione variabili >

($preambolo)=<<EOT;
\\ifx\\pdfoutput\\undefined % We are not running pdftex
\\documentclass[$dimcarattere,$dimcarta]{$documentclass}
\\usepackage[dvips]{graphicx}
%\\usepackage{psfig}
%\\usepackage{epsfig}
\\RequirePackage[dvipdfm,hyperindex]{hyperref}
%\\RequirePackage[dvipdfm,colorlinks,hyperindex]{hyperref}
\\else
\\documentclass[pdftex,$dimcarattere,$dimcarta]{$documentclass}
\\usepackage[pdftex]{graphicx}
\\DeclareGraphicsExtensions{.pdf,.png,.jpg,.mps}
%\\RequirePackage[hyperindex]{hyperref}
\\RequirePackage[colorlinks,hyperindex]{hyperref}
\\usepackage{thumbpdf}
\\fi

\\hypersetup{
pdftitle={$titolo},
pdfsubject={$oggetto},
pdfauthor={$autore},
pdfkeywords={}
}

\\usepackage[italian]{babel}
\\usepackage[latin1]{inputenc}
\\frenchspacing

\\title{\\textbf{$titolo\\\\ 
{\\small $oggetto} 
}\\\\
\\rule{10cm}{1mm}}
\\author{$autore \\\\
} 

\\vspace{1cm}
\\date{\\today}

\\RequirePackage{fancyheadings}
\\pagestyle{fancyplain}
\\renewcommand{\\sectionmark}[1]{\\markright{\\thesection{} #1}}
\\lhead[\\fancyplain{}{\\thepage}]
    {\\fancyplain{}{\\it\\rightmark}}
\\rhead[\\fancyplain{}{\\sc\\leftmark}]
    {\\fancyplain{}{ $titolo  pag. \\thepage}}
\\cfoot[]{}
%\\addtolength{\\headheight}{1.6pt}

\\begin{document}
\\pagenumbering{Roman}
\\maketitle
\\thispagestyle{empty}
\\newpage
\\tableofcontents
\\newpage
\\pagenumbering{arabic}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%
%
%       Il mio documento ...
%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\\end{document}
EOT

open( MIO_TEX, ">$nomefile");
print MIO_TEX "$preambolo";
close( MIO_TEX ); 
print"Il file $nomefile  stato creato nella dir. corrente.\n\n";
