[3] Check and set given options

Signed-off-by: DoesntMatter <jaed1@gmx.net>

gitlog_to_rss.pl

@@ -21,20 +21,47 @@
 
 use strict;
 use Getopt::Long;
+use Cwd;
 
 my %options;
 
+#
+# Get options
+#
+
 GetOptions (
     \%options,
     "repo=s",
     "outfile=s",
     "help|?",
 );
 
+#
+# Check and set options
+#
+
 if ($options{'help'}) {
     ShowHelp();
 }
 
+if ($options{'repo'} and $options{'repo'} ne '') {
+   unless (-d $options{'repo'}) {
+       print "Repository does not exist in given path!\n";
+       exit;
+   }
+   unless (-d ($options{'repo'} . "/.git")) {
+       print "Given directory is not a Git repository!\n";
+       exit;
+   }
+}
+else {
+    ShowHelp();
+}
+
+unless ($options{'outfile'} and $options{'outfile'} ne '') {
+    $options{'outfile'} = cwd();
+}
+
 exit;
 
 #