d/freebsd-nq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Preserve FreeBSD version strings in target files.

Browse Source
This commit is contained in:
Dag-Erling Smørgrav 2002-01-12 13:50:08 +00:00
parent a61a203e62
commit 1c6246992a
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
etc/pam.d/convert.pl
View File

@ -42,6 +42,7 @@ use vars qw(%SERVICES);
MAIN:{
my $line;
my $service;
my $version;
my $type;
local *FILE;
@ -56,10 +57,19 @@ MAIN:{
}
foreach $service (keys(%SERVICES)) {
$version = '$FreeBSD$';
if (sysopen(FILE, $service, O_RDONLY)) {
while (<FILE>) {
next unless (m/(\$FreeBSD$]+\$)/);
$version = $1;
last;
}
close(FILE);
}
sysopen(FILE, $service, O_RDWR|O_CREAT|O_TRUNC)
or die("$service: $!\n");
print(FILE "#\n");
print(FILE "# \$FreeBSD\$\n");
print(FILE "# $version\n");
print(FILE "#\n");
print(FILE "# PAM configuration for the \"$service\" service\n");
print(FILE "#\n");