Lines Matching refs:afilename
877 my ( $athreadnum, $afilename, %del_filename );
879 ( undef, undef, undef, undef, undef, undef, undef, $afilename, undef ) =
881 $del_filename{$afilename}++;
886 undef, undef, $afilename, undef
892 if ( $_ eq $afilename ) { $del = 1; last; }
902 if ( $del_filename{$afilename} == 1 ) {
903 unlink "$uploaddir/$afilename";
905 $del_filename{$afilename}--;
1396 my ( $athreadnum, $afilename, %del_filename );
1398 ( undef, undef, undef, $afilename, undef, undef ) =
1400 $del_filename{$afilename}++;
1404 $athreadnum, undef, undef, $afilename, undef, undef
1410 if ( $_ eq $afilename ) { $del = 1; last; }
1420 if ( $del_filename{$afilename} == 1 ) {
1421 unlink "$pmuploaddir/$afilename";
1423 $del_filename{$afilename}--;