Lines Matching refs:file
72 my $file = $_[1];
77 my $xmlfile = "$directory/$file.$extension";
101 while (-f "$pdbdir/$file-Sheet$i.pdb")
103 my $pdbfile = "$pdbdir/$file-Sheet$i.pdb";
121 if (-f "$pdbdir/$file.pdb")
125 if (-f "$pdbdir/$file.pdb.old")
127 print "Removing $pdbdir/$file.pdb.old\n";
128 `/bin/rm -f $pdbdir/$file.pdb.old`;
131 print "Moving $pdbdir/$file.pdb file to $pdbdir/$file.pdb.old\n";
132 `mv "$pdbdir/$file.pdb" "$pdbdir/$file.pdb.old"`
144 print "Moving $file-Sheet*.pdb files to $pdbdir\n";
145 `mv $file-Sheet*.pdb $pdbdir`;
146 `chmod 666 $pdbdir/$file-*.pdb`;
150 print "Moving $file.pdb file to $pdbdir\n";
151 `mv $file.pdb $pdbdir`;
152 `chmod 666 $pdbdir/$file.pdb`;
264 my $file = $_[2];
275 &print_debug (" $em_script_home/rd -from $from -to $to $file\n");
277 `$em_script_home/rd -from $from -to $to $file`;
281 &print_debug (" $em_script_home/rd -from $from -to $to -merge $merge $file\n");
283 `$em_script_home/rd -from $from -to $to -merge $merge $file`;