i am new in this mailing list
i have written a script for theora (i am not sure that it is useful or not ? )
=========================================#!/usr/bin/perl
# ALL2theora based on Florian Schilhabel <florian.schilhabel@web.de>
dvd2divx script (was under GPL)
# we have made major changes to that script and now it can convert
almost all video format to theora
# all2theora depends on mplayer, encoder_example
#
# thanks to Florian Schilhabel
#
#
# (c) 2002-2004 by Florian Schilhabel <florian.schilhabel@web.de>
#
#
# version 0.1 initial release 22/08/2002
#
#
# If you have any comments, suggestions, etc., feel free to send me a mail ;-))
# flames and other things like that should go to /dev/null
# thankx to all the mplayer developers for this really *great* piece of software
#
#
# This script is free software; you can redistribute it and/or
# modify it under the terms of the GNU Lesser General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This script is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with this library; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
#
#
use Getopt::Long;
GetOptions( "help" => \$help,
"i=s" => \$input,
"divx=s" => \$divx, );
if ($help) {
print "Welcome to the ALL2theora Helper Script\n";
print "\n";
print "this script encodes a all file to theora\n";
print "Usage:\n";
print "--help show this text\n";
print " this will only be possible if you are
root\n";
print "--i Specify the Name of your Video file\n";
exit;
}
if ($input eq "") {
print "No Input file selected - You must specify one with: --i
filename.\n";
print "\n";
print "this script encodes a all file to theora\n";
print "Usage:\n";
print "--help show this text\n";
print " this will only be possible if you are
root\n";
print "--i Specify the Name of your Video file\n";
exit;
}
if ($divx eq "on") {
system ("mkfifo stream.yuv && chmod 777 stream.yuv &&
mencoder $input
-ovc lavc -oac copy -o tmp.avi -lavcopts
vcodec=mpeg1video:vbitrate=1200 -vf harddup -of mpeg && mplayer -vc
dummy -vo null -ao pcm:file=stream.wav tmp.avi && encoder_example
stream.wav stream.yuv > theora.ogg | mplayer -ao null -nosound -vo
yuv4mpeg tmp.avi - 1>/dev/tty7 8>/dev/tty7 && rm stream.yuv
&& rm
stream.wav && rm tmp.avi");
exit;
}
###
if ($divx eq "off") {
system ("mkfifo stream.yuv && chmod 777 stream.yuv &&
mplayer -vc
dummy -vo null -ao pcm:file=stream.wav $input && encoder_example
stream.wav stream.yuv > theora.ogg | mplayer -ao null -nosound -vo
yuv4mpeg $input - 1>/dev/tty7 8>/dev/tty7 && rm stream.yuv
&& rm
stream.wav");
exit;
}
if ($divx eq "") {
system ("mkfifo stream.yuv && chmod 777 stream.yuv &&
mplayer -vc
dummy -vo null -ao pcm:file=stream.wav $input && encoder_example
stream.wav stream.yuv > theora.ogg | mplayer -ao null -nosound -vo
yuv4mpeg $input - 1>/dev/tty7 8>/dev/tty7 && rm stream.yuv
&& rm
stream.wav");
exit;
}
print "Video Filename: $input\n";
print "working...\n";
exit;
===========================================
read me
====================================================All2theora
=========
all2theora convert almost all video to theora. it depends on mplayer,
libtheora, libogg, libvorbis and encoder_example.
links: http://www.mplayerhq.hu/
http://www.mplayerhq.hu/homepage/design7/dload.html (codecs to play
and encode wmv, real and mov);
http://www.theora.org/
http://www.xiph.org/
http://kde-apps.org/content/show.php?content=17831 (to get encoder_example)
=============================================================================================it
is based on "Florian Schilhabel
<florian.schilhabel@web.de>"'s
dvd2divx script (Under GPL).
=============================================================================================
contact us: Salahuddin Pasha (also known as salahuddin66)
mail: <salahuddin66@gmail.com> or <salahuddin.debian@gmail.com>
Abu Zaher Faridi
mail: <zaher14@gmail.com>
=============================================
--
-salahuddin_66
registered Linux user number 362610
http://counter.li.org/
-------------- next part --------------
A non-text attachment was scrubbed...
Name: encoder_example
Type: application/octet-stream
Size: 32119 bytes
Desc: not available
Url :
http://lists.xiph.org/pipermail/theora/attachments/20051028/1def91fe/encoder_example-0001.obj
