equal
deleted
inserted
replaced
166 my $rss_entry = <<"END" =~ s/\n\s+//gr; |
166 my $rss_entry = <<"END" =~ s/\n\s+//gr; |
167 <?xml version=\"1.0\" encoding=\"UTF-8\" ?> |
167 <?xml version=\"1.0\" encoding=\"UTF-8\" ?> |
168 <rss version=\"2.0\"> |
168 <rss version=\"2.0\"> |
169 <channel> |
169 <channel> |
170 <title>TITLE</title> |
170 <title>TITLE</title> |
171 <link>BLINK</link> |
171 <link>BLINK</link>" |
172 <description>RDESC</description>" |
|
173 END |
172 END |
174 |
173 |
175 my %config_vars = |
174 my %config_vars = |
176 ( |
175 ( |
177 'emacs-path' => \$emacs, |
176 'emacs-path' => \$emacs, |
300 my @arts; |
299 my @arts; |
301 my $cache_dom; |
300 my $cache_dom; |
302 |
301 |
303 sub main { |
302 sub main { |
304 -d $cdir or help_and_bye; |
303 -d $cdir or help_and_bye; |
305 mkdir $outdir; |
|
306 chdir $cdir or die "Couldn't access $cdir\n"; |
304 chdir $cdir or die "Couldn't access $cdir\n"; |
307 read_config $config_file; |
305 read_config $config_file; |
|
306 mkdir $outdir; |
308 s!/*$!/! for ($outdir, $dir); |
307 s!/*$!/! for ($outdir, $dir); |
309 my @navify_files = map {"$dir$_"} ($about, $home, $etc_files ? split(/[ \t]+/, $etc_files) : ()); |
308 my @navify_files = map {"$dir$_"} ($about, $home, $etc_files ? split(/[ \t]+/, $etc_files) : ()); |
310 -d $dir or die "$dir doesn't exist \n"; |
309 -d $dir or die "$dir doesn't exist \n"; |
311 find (\&wanted, $dir); |
310 find (\&wanted, $dir); |
312 for my $f (@files_to_move) { |
311 for my $f (@files_to_move) { |