Skip to content
Toggle navigation
Toggle navigation
This project
Loading...
Sign in
John McEleney
/
mailutils
Go to a project
Toggle navigation
Toggle navigation pinning
Projects
Groups
Snippets
Help
Project
Activity
Repository
Pipelines
Graphs
Issues
0
Merge Requests
0
Wiki
Network
Create a new issue
Builds
Commits
Issue Boards
Files
Commits
Network
Compare
Branches
Tags
Commit
ed0ad2da
...
ed0ad2da09208f0e3900827c421928093e89bf8a
authored
1999-10-09 19:15:37 +0000
by
Sean 'Shaleh' Perry
Browse Files
Options
Browse Files
Tag
Download
Email Patches
Plain Diff
changelog.pl now outputs in GNU approved format
"Resistance is Futile"
1 parent
6c5f9466
Show whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
6 additions
and
2 deletions
ChangeLog
changelog.pl
ChangeLog
View file @
ed0ad2d
1999-10-09 Sean 'Shaleh' Perry <shaleh@debian.org>
* Made changelog.pl output in approved format -- I miss the time stamp
Sean 'Shaleh' Perry <shaleh@debian.org> Sat, 9 Oct 1999 01:13:56 -0700
* added examples/gnu-pop3d.pam
...
...
changelog.pl
View file @
ed0ad2d
...
...
@@ -88,7 +88,7 @@ if ($opt_h) { usage(); exit(0); }
$SAVETEXT
=
$TEXT
=
"@ARGV"
;
# Get the date
chomp
(
$DATE
=
`
822-date
`
);
chomp
(
$DATE
=
`
date +%Y-%m-%d
`
);
$MAINTAINER
=
$ENV
{
'CVS_FULLNAME'
}
||
$MAINTAINER
;
if
(
$MAINTAINER
eq
''
)
{
...
...
@@ -99,7 +99,7 @@ if ($EMAIL eq '') {
fatal
"Could not figure out maintainer's email address:"
.
" $!"
;
}
print
O
"$
MAINTAINER <$EMAIL> $DATE
\n\n"
;
print
O
"$
DATE $MAINTAINER <$EMAIL>
\n\n"
;
if
(
$TEXT
)
{
write
O
}
else
{
print
O
" * \n\n"
;
$line
=
3
;
}
# Rewind the current changelog to the beginning of the file
seek
S
,
0
,
0
or
fatal
"Couldn't rewind ChangeLog:"
.
" $!"
;
...
...
Please
register
or
sign in
to post a comment