Lines Matching refs:afile
93 $afile = $arg;
97 if (!($afile)) {
101 if (!( -e $afile)) {
102 printf (STDERR "\"%s\" not found.\n", $afile);
108 $abspath = File::Spec->rel2abs($afile);
113 } elsif ( -f $afile ) {
125 if (!open(INFILE, "<$afile")) {
126 printf (STDERR "cannot open %s\n", $afile);
135 printf ("\"%s\" is not AppleSingle/AppleDouble format.\n", $afile);
141 $afile = $netatalkfile;
143 $afile = $osxfile;
155 } elsif ( -d $afile) {
156 printf ("\"%s\" is a directory.\n", $afile);
162 $afile = $netatalkfile;
164 $afile = $osxfile;
176 printf (STDERR "unknown error: %s\n", $afile);
180 if (!open(INFILE, "<$afile")) {
181 printf (STDERR "cannot open %s\n", $afile);
184 printf ("%s:\n\n", $afile);