folkslinux
/
rpm
mirror of https://github.com/rpm-software-management/rpm.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Improvements from Tim Powers. 

CVS patchset: 3561
CVS date: 2000/02/16 00:33:16
This commit is contained in:
jbj 2000-02-16 00:33:16 +00:00
parent 9358ab55e9
commit 7c659d5969
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scripts/cpanflute
View File

@ -10,7 +10,7 @@ my $MainDir = '/tmp/cpan';
# set default options, then get options
my %options=();
$options{'email'}=(getpwuid($<))[0] . "\@" . hostname();
$options{'email'}=(getpwuid($<))[0] . "\@redhat.com" ;
GetOptions(\%options, "email=s", "n=s", "create") || exit 1;
my $InputFile = $ARGV[0];
@ -52,7 +52,7 @@ open (FILE, "> $MainDir/$filename");
print FILE "Summary: $clm_name module for perl $class
Name: perl-$clm_name
Version: $clm_version
Release: 2
Release: 6
Copyright: distributable
Group: Applications/CPAN
Source0: $clm_name-$clm_version.tar.gz
@ -157,11 +157,14 @@ macrofiles: /usr/lib/rpm/macros:$MainDir/macros
sub get_changelog {
# generate the changelog entry from available system info
my ($name);
$name = (getpwuid($<))[6];
$name = (split(",", $name))[0];
return ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat")[(localtime)[6]] . " " .
("Jan", "Feb", "Mar", "Apr", "May", "Jun",
"Jul", "Aug", "Sep", "Oct", "Nov", "Dec")[(localtime)[4]] . " " .
(localtime)[3] . " " . (1900+(localtime)[5]) . " " .
(getpwuid($<))[6] . " <" . $options{'email'} . ">";
$name . " <" . $options{'email'} . ">";
}