sslug-teknik team mailing list archive

[Kim Schulz <kim@xxxxxxxxx>]

Jesper Lund wrote:
> 
> > > > Jeg har forgæves prøvet at lave et perl-cgi script, der skulle kunne
> > > > afspille mp3'er lokalt på min "webserver". MEN, uanset hvad jeg gør,
> > > > spiller den ikke noget, men starter godt nok mpg123 op.
> >
> > Vil du ikke post scriptet?
> 
> Jo da... ;)
> 
> #!/usr/bin/perl
> print "Content-type: text/html\n\n";
> 
> print "Dette vil forhåbentligt starte en sang lokalt på webserveren<br>\n";
>  $mpg123 = `mpg123 -a /dev/dsp /disk1/hest.mp3`;
> 
> print "<pre>$mpg123</pre>\n";
> print "Så er kommandoen \"mpg123 hest.mp3 &\" blevet kørt !<br>Håber den siger en lyd nu<br>\n";


hvorfor ikke bare 


#!/usr/bin/perl
print "Content-type: text/html\n\n";
system('mpg123 /disk1/hest.mp3');
print "så er kommandoen kørt";


så kan du jo evt. sætte sangtitel som $var og smide den i querystring,
så du via en post kan ændre nummer.


FUT: sslug-perl


MVH
kim@xxxxxxxx
-- 
1 1 was a race-horse, 2 2 was 1 2. When 1 1 1 1 race, 2 2 1 1 2.