Permalink
Browse files

[39] Improved the setting of outfile option

Signed-off-by: DoesntMatter <jaed1@gmx.net>
  • Loading branch information...
DoesntMatter committed Jan 23, 2012
1 parent 809d937 commit 2a05aaed36568376d42df904b97e336c7c8ee136
Showing with 7 additions and 8 deletions.
  1. +4 −4 scripts/gitlog_to_rss.pl
  2. +3 −4 scripts/gitlog_to_sql.pl
View
@@ -30,13 +30,16 @@
use Parser;
use RSS;
my %options;
my ($gitlog, $giturl);
my %options = (
outfile => cwd() . "/feed.rss",
);
#
# Get options
#
GetOptions (
\%options,
"repo=s",
@@ -66,9 +69,6 @@
else {
RSS::ShowHelp();
}
unless ($options{'outfile'} and $options{'outfile'} ne '') {
$options{'outfile'} = cwd() . "/feed.rss";
}
if ($options{'title'} and $options{'title'} ne '') {
$RSS::rss{'title'} = $options{'title'};
}
View
@@ -29,8 +29,10 @@
use Parser;
use SQL;
my %options;
my $gitlog;
my %options = (
outfile => cwd() . "/log.sql",
);
#
# Get options
@@ -62,9 +64,6 @@
else {
SQL::ShowHelp();
}
unless ($options{'outfile'} and $options{'outfile'} ne '') {
$options{'outfile'} = cwd() . "/log.sql";
}
}
else {
$options{'repo'} = Generic::GetInput("Please enter repository path: ", 1);

0 comments on commit 2a05aae

Please sign in to comment.