Added ability to put new-lines in changelog entry.

Added -p to locate destination directory.
This commit is contained in:
Eric Pouech 2000-04-09 18:39:08 +00:00 committed by Alexandre Julliard
parent a4729b0b21
commit e1885d17f2

View file

@ -58,7 +58,6 @@ my %options; # command line options
my @modified_files; # optional list of files that were modified
my @added_files; # added files as an array
my $added_file; # added file being considered
my $patches_dir; # location of the patch file
my $cvs_line; # line of output from CVS
my $mod_files_str; # string that describes the modified files
@ -67,19 +66,21 @@ my $mod_files_str; # string that describes the modified files
$options{n} = strftime "%Y%m%d%H%M", gmtime;
$gen_date = strftime "%Y/%m/%d %H:%M:%S UTC", gmtime;
unless(getopts("vn:f:c:m:a:", \%options))
unless(getopts("vn:f:c:m:a:p:", \%options))
{
print STDERR "Usage: $0 [-v] [-n patch_name] [-f patch_file] " .
"[-c change_log] [-m modified_files] [-a added_files]\n";
"[-c change_log] [-m modified_files] [-a added_files] [-p path_to_patches]\n";
exit 1;
}
$options{f} = "patches/$options{n}.diff" unless(exists $options{f});
$patches_dir = dirname $options{f};
$options{p} = "patches" unless(exists $options{p});
$options{f} = "$options{p}/$options{n}.diff" unless(exists $options{f});
$options{p} = dirname $options{f};
@added_files = split ' ', $options{a};
@modified_files = split ' ', $options{m};
$options{c} =~ s/\\n/\n\t/g;
if(-d $patches_dir)
if(-d $options{p})
{
if(-e $options{f})
{
@ -89,8 +90,8 @@ if(-d $patches_dir)
}
else
{
mkdir $patches_dir, (0777 & ~umask) or
die "Unable to mkdir $patches_dir: $!";
mkdir $options{p}, (0777 & ~umask) or
die "Unable to mkdir $options{p}: $!";
}
$mod_files_str = exists($options{m}) ? $options{m} : "<see cvs diff>";