Changeset 908107d for gutenbach/debian
- Timestamp:
- Feb 8, 2009, 7:07:49 PM (16 years ago)
- Branches:
- master, debian, mac, no-cups, nodebathena, web
- Children:
- a041c73
- Parents:
- de4ce86
- git-author:
- geofft <geofft> (02/08/09 19:07:49)
- git-committer:
- geofft <geofft> (02/08/09 19:07:49)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gutenbach/debian/lib/sipbmp3-filter
rde4ce86 r908107d 2 2 # Play the data on STDIN as an audio file 3 3 # 4 # $Id: sipbmp3-filter,v 1.2 4 2008-11-04 04:21:19 geofft Exp $4 # $Id: sipbmp3-filter,v 1.25 2009-02-09 00:07:49 geofft Exp $ 5 5 # $Source: /tmp/tmp.UFBNno9997/RCS/sipbmp3-filter,v $ 6 6 # … … 17 17 use Image::ExifTool qw(ImageInfo); 18 18 use File::Spec::Functions; 19 use File::Temp qw{tempdir}; 20 use File::Basename qw(basename); 19 21 use LWP::UserAgent; 20 22 use Data::Dumper; … … 206 208 } 207 209 210 my $tempdir = tempdir(); 211 my $newpath = $tempdir . '/' . basename($opts{'J'}); 212 symlink($filepath, $newpath); 208 213 if ($pid) { #parent 209 214 # Check if there were any errors … … 220 225 221 226 close(ZEPHYR); 227 unlink($newpath); 228 rmdir($tempdir); 222 229 } 223 230 else { # child … … 228 235 open(STDIN, "/dev/null"); 229 236 #print STDERR Dumper([qw|/usr/bin/mplayer -nolirc -ao alsa -quiet|, $filepath]); 230 my @args = (qw|/usr/bin/mplayer -vo null -nolirc -ao alsa -cache 512 -really-quiet|, $ filepath);237 my @args = (qw|/usr/bin/mplayer -vo null -nolirc -ao alsa -cache 512 -really-quiet|, $newpath); 231 238 #print STDERR "About to exec: ", Dumper([@args]); 232 239 exec(@args) ||
Note: See TracChangeset
for help on using the changeset viewer.