Lines Matching refs:FILE
47 local *FILE;
61 if (sysopen(FILE, $service, O_RDONLY)) {
62 while (<FILE>) {
67 close(FILE);
69 sysopen(FILE, $service, O_RDWR|O_CREAT|O_TRUNC)
71 print(FILE "#\n");
72 print(FILE "# $version\n");
73 print(FILE "#\n");
74 print(FILE "# PAM configuration for the \"$service\" service\n");
75 print(FILE "#\n");
78 print(FILE "\n");
79 print(FILE "# $type\n");
80 print(FILE join("\n", @{$SERVICES{$service}->{$type}}, ""));
82 close(FILE);