genorg.pl
changeset 17 d0fdfd1030aa
parent 16 be331e8c8caf
--- a/genorg.pl	Wed Dec 18 18:55:33 2024 +1000
+++ b/genorg.pl	Wed Dec 18 19:06:27 2024 +1000
@@ -168,8 +168,7 @@
 <rss version=\"2.0\">
  <channel>
   <title>TITLE</title>
-  <link>BLINK</link>
-   <description>RDESC</description>"
+  <link>BLINK</link>"
 END
   
 my %config_vars =
@@ -302,9 +301,9 @@
 
 sub main {
   -d $cdir or help_and_bye;
-  mkdir $outdir;
   chdir $cdir or die "Couldn't access $cdir\n";
   read_config $config_file;
+  mkdir $outdir;
   s!/*$!/! for ($outdir, $dir);
   my @navify_files = map {"$dir$_"} ($about, $home, $etc_files ? split(/[ \t]+/, $etc_files) : ());
   -d $dir or die "$dir doesn't exist \n";