Lines Matching +full:documentation +full:- +full:service

1 #!/usr/bin/perl -w
2 #-
3 # SPDX-License-Identifier: BSD-3-Clause
10 # under DARPA/SPAWAR contract N66001-01-C-8035 ("CBOSS"), as part of the
20 #    documentation and/or other materials provided with the distribution.
45     my $service;
55 	$line .= "\t" x ((16 - length($line) + 7) / 8);
57 	push(@{$SERVICES{$2}->{$3}}, $line);
60     foreach $service (keys(%SERVICES)) {
62 	if (sysopen(FILE, $service, O_RDONLY)) {
70 	sysopen(FILE, $service, O_RDWR|O_CREAT|O_TRUNC)
71 	    or die("$service: $!\n");
75 	print(FILE "# PAM configuration for the \"$service\" service\n");
78 	    next unless exists($SERVICES{$service}->{$type});
81 	    print(FILE join("\n", @{$SERVICES{$service}->{$type}}, ""));
84 	warn("$service\n");