aboutsummaryrefslogtreecommitdiff
path: root/Tools
diff options
context:
space:
mode:
authorErwin Lansing <erwin@FreeBSD.org>2006-11-23 11:59:04 +0000
committerErwin Lansing <erwin@FreeBSD.org>2006-11-23 11:59:04 +0000
commit6e65d26f6e82e2ac8035942b62135525bcf1aed7 (patch)
treeb51843d968beed79e9ad51820220000430ad4ec6 /Tools
parent42f0d80e1e9755610896fa8530e8afbddfe5ffd3 (diff)
downloadports-6e65d26f6e82e2ac8035942b62135525bcf1aed7.tar.gz
ports-6e65d26f6e82e2ac8035942b62135525bcf1aed7.zip
Notes
Diffstat (limited to 'Tools')
-rwxr-xr-xTools/scripts/chkversion.pl21
1 files changed, 16 insertions, 5 deletions
diff --git a/Tools/scripts/chkversion.pl b/Tools/scripts/chkversion.pl
index 252358583b12..8caac541f3ee 100755
--- a/Tools/scripts/chkversion.pl
+++ b/Tools/scripts/chkversion.pl
@@ -103,6 +103,8 @@ $portsdir = abs_path($portsdir);
my $versionfile = "$versiondir/VERSIONS";
my $useindex = !-w $versiondir;
+my $starttime = localtime();
+
sub readfrom {
my $dir = shift;
@@ -319,7 +321,7 @@ sub blame {
}
sub template {
- my ($from, $rcpt, $replyto, $ports) = @_;
+ my ($from, $rcpt, $replyto, $starttime, $ports) = @_;
my $portlist = join ', ', sort keys %{$ports};
substr($portlist, 32) = '...'
@@ -350,6 +352,7 @@ sub template {
$_ =~ s/%%CC%%/$cc/og;
$_ =~ s/%%REPLYTO%%/$replyto/og;
$_ =~ s/%%SUBJECT%%/$portlist/og;
+ $_ =~ s/%%STARTTIME%%/$starttime/og;
$header .= $_;
}
return $header;
@@ -377,16 +380,16 @@ sub mail {
my $tmpl;
-$tmpl = template $h_from, $rcpt_orig, $h_replyto, \%pkgorigin;
+$tmpl = template $h_from, $rcpt_orig, $h_replyto, $starttime, \%pkgorigin;
mail $tmpl, $rcpt_orig, \%pkgorigin;
-$tmpl = template $h_from, $rcpt_vers, $h_replyto, \%backwards;
+$tmpl = template $h_from, $rcpt_vers, $h_replyto, $starttime, \%backwards;
mail $tmpl, $rcpt_vers, \%backwards;
-$tmpl = template $h_from, $rcpt_watch, $h_replyto, \%watched;
+$tmpl = template $h_from, $rcpt_watch, $h_replyto, $starttime, \%watched;
mail $tmpl, $rcpt_watch, \%watched;
-$tmpl = template $h_from, $rcpt_watch, $h_replyto, \%watchedm;
+$tmpl = template $h_from, $rcpt_watch, $h_replyto, $starttime, \%watchedm;
mail $tmpl, $rcpt_watchm, \%watchedm;
exit((%pkgorigin || %backwards) ? 1 : 0);
@@ -408,6 +411,8 @@ X-FreeBSD-Chkversion: PKGORIGIN
Please fix any errors as soon as possible.
+ The ports tree was updated at %%STARTTIME%%.
+
.
From: %%FROM%%
To: %%RCPT%%
@@ -426,6 +431,8 @@ X-FreeBSD-Chkversion: backwards
Please fix any errors as soon as possible.
+ The ports tree was updated at %%STARTTIME%%.
+
.
From: %%FROM%%
To: %%RCPT%%
@@ -438,6 +445,8 @@ X-FreeBSD-Chkversion: vwatch
You have requested to be notified of version changes in the following
ports:
+ The ports tree was updated at %%STARTTIME%%.
+
.
From: %%FROM%%
To: %%RCPT%%
@@ -450,4 +459,6 @@ X-FreeBSD-Chkversion: mwatch
You have requested to be notified of maintainer changes in the following
ports:
+ The ports tree was updated at %%STARTTIME%%.
+
.