Changeset 11090 for trunk/gsdl/perllib/plugins/OggVorbisPlug.pm
- Timestamp:
- 2006-01-24T10:29:34+13:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/OggVorbisPlug.pm
r10254 r11090 87 87 my $outhandle = $self->{'outhandle'}; 88 88 89 # filename is the full pathname of the file 90 my $filename = &util::filename_cat($base_dir, $file); 91 return 0 if $self->{block_exp} ne "" && $filename =~ /$self->{'block_exp'}/; 92 if ($filename !~ /$self->{'process_exp'}/ || !-f $filename) { 93 return undef; 94 } 89 #check process and block exps, smart block, etc 90 my ($block_status,$filename) = $self->read_block(@_); 91 return $block_status if ((!defined $block_status) || ($block_status==0)); 95 92 96 # Report that we're processing the file93 # Report that we're processing the file 97 94 print STDERR "<Processing n='$file' p='OggVorbisPlug'>\n" if ($gli); 98 95 print $outhandle "OggVorbisPlug: processing $file\n"
Note:
See TracChangeset
for help on using the changeset viewer.