genorg.pl
changeset 12 1be91608b33c
parent 11 7d84cba88fa2
child 13 da3b9ba1a7f0
equal deleted inserted replaced
11:7d84cba88fa2 12:1be91608b33c
   156  css        : The path of the css file to use.
   156  css        : The path of the css file to use.
   157  in_dir     : The directory that contains the files.
   157  in_dir     : The directory that contains the files.
   158  out_dir    : the output directory.
   158  out_dir    : the output directory.
   159  no_name_dir: The directory for generate files.  This means in_dir/no_name_dir
   159  no_name_dir: The directory for generate files.  This means in_dir/no_name_dir
   160               cannot exist.
   160               cannot exist.
       
   161  etc_files  : Space sperated list of files to be navved up
       
   162  cache      : xml cache file
       
   163  home       : home file
       
   164  about      : about file
       
   165  domain     : domain (for rss)
       
   166  title      : title of the blog
   161 END
   167 END
   162 
   168 
   163 
   169 
   164 my $rss_entry = <<"END" =~ s/\n\s+//gr;
   170 my $rss_entry = <<"END" =~ s/\n\s+//gr;
   165 <?xml version=\"1.0\" encoding=\"UTF-8\" ?>
   171 <?xml version=\"1.0\" encoding=\"UTF-8\" ?>
   175    'emacs-path' => \$emacs,
   181    'emacs-path' => \$emacs,
   176    css => \$art_css,
   182    css => \$art_css,
   177    indir => \$dir,
   183    indir => \$dir,
   178    outdir => \$outdir,
   184    outdir => \$outdir,
   179    no_name_dir => \$no_name_dir,
   185    no_name_dir => \$no_name_dir,
   180    etc_files => \$etc_files
   186    etc_files => \$etc_files,
       
   187    cache => \$cache_file,
       
   188    home => \$home,
       
   189    about => \$about,
       
   190    domain => \$domain,
       
   191    title => \&blog_title
   181   );
   192   );
   182 
   193 
   183 
   194 
   184 sub read_config ($path) {
   195 sub read_config ($path) {
   185   open my $fh, '<', $path or die "Couldn't open config file\n";
   196   open my $fh, '<', $path or die "Couldn't open config file\n";