Lines Matching refs:afile
98 $afile = $arg;
102 if (!($afile)) {
106 if (!( -e $afile)) {
107 printf (STDERR "\"%s\" not found.\n", $afile);
113 $abspath = File::Spec->rel2abs($afile);
118 } elsif ( -f $afile ) {
130 if (!open(INFILE, "<$afile")) {
131 printf (STDERR "cannot open %s\n", $afile);
140 printf ("\"%s\" is not AppleSingle/AppleDouble format.\n", $afile);
146 $afile = $netatalkfile;
148 $afile = $osxfile;
160 } elsif ( -d $afile) {
161 printf ("\"%s\" is a directory.\n", $afile);
167 $afile = $netatalkfile;
169 $afile = $osxfile;
181 printf (STDERR "unknown error: %s\n", $afile);
185 if (!open(INFILE, "<$afile")) {
186 printf (STDERR "cannot open %s\n", $afile);
189 printf ("%s:\n\n", $afile);