Lines Matching refs:service
44 my $service;
59 foreach $service (keys(%SERVICES)) {
61 if (sysopen(FILE, $service, O_RDONLY)) {
69 sysopen(FILE, $service, O_RDWR|O_CREAT|O_TRUNC)
70 or die("$service: $!\n");
74 print(FILE "# PAM configuration for the \"$service\" service\n");
77 next unless exists($SERVICES{$service}->{$type});
80 print(FILE join("\n", @{$SERVICES{$service}->{$type}}, ""));
83 warn("$service\n");