1 #!/usr/local/bin/perl -w
3 ( $bookPath, $textColor, $backgroundColor, $linkColor, $alinkColor ) = @ARGV;
5 open( CSSFILE, ">${bookPath}/main.css" ) or die( "Can\'t output to file: \"${bookPath}/main.css\"\n\t$!" );
7 print CSSFILE << "(END OF CSS)";
9 background-color: ${backgroundColor};
11 font-family: Souvenir, Times, serif;
18 p, ol, ul, dl, blockquote { text-align: justify }
20 ul.unbulleted { list-style-type: none }
22 b { font-weight: bold }
24 h1, h2, h3, h4, h5, h6 {
31 :link:focus, :visited:focus {
35 background-color: transparent;
37 /* text-decoration: none;*/
41 :link:hover, :visited:hover {
44 :link:active, :visited:active {
45 background-color: transparent;
47 /* text-decoration: none;*/
55 .navigation, .signpost, .illustraion, .caption, .center {