[Theora] all2theora script

[salahuddin66]

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 at 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 at 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 at web.de>"'s
dvd2divx script (Under GPL).
==============================================================================================

contact us:	Salahuddin Pasha (also known as salahuddin66)
		mail: <salahuddin66 at gmail.com> or <salahuddin.debian at gmail.com>

		Abu Zaher Faridi
		mail: <zaher14 at 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