#! /usr/bin/perl 
 
 ### mp3 and wma to ogg by darklinux presents

use warnings;

$dir=`pwd`;

chomp($dir);

opendir(CHECKDIR,"$dir");

 while ($file=readdir(CHECKDIR)) { 
 $orig_file=$file; 

if($orig_file =~ m/\.mp3$/i)
{
 print "Checking file: $orig_file\n"; 
 $new_wav_file=$orig_file;$new_wav_file=~s/\.mp3/\.wav/; 
 $new_ogg_file=$orig_file;$new_ogg_file=~s/\.mp3/\.ogg/; 
 $convert_to_wav="mplayer \"./$orig_file\" -ao pcm -aofile \"./$new_wav_file\""; 
 $convert_to_ogg="oggenc -q 4 \"./$new_wav_file\" \"./$new_ogg_file\""; 
 $remove_wav="rm -rf \"./$new_wav_file\""; 
 $remove_mp3="rm -rf \"./$orig_file\"";
 print "EXEC 1: $convert_to_wav\n"; 
 $cmd=`$convert_to_wav`; 
 print "EXEC 2: $convert_to_ogg\n"; 
 $cmd=`$convert_to_ogg`; 
 print "REMOVE WAV: $remove_wav\n"; 
 $cmd=`$remove_wav`; 
  print "REMOVE MP3: $remove_mp3\n"; 
 $cmd=`$remove_mp3`; 
 print "\n\n"; 
} 

elsif($orig_file =~ m/\.wma$/i)
{
 print "Checking file: $orig_file\n"; 
 $new_wav_file=$orig_file;$new_wav_file=~s/\.wma/\.wav/; 
 $new_ogg_file=$orig_file;$new_ogg_file=~s/\.wma/\.ogg/; 
 $convert_to_wav="mplayer \"./$orig_file\" -ao pcm -aofile \"./$new_wav_file\""; 
 $convert_to_ogg="oggenc -q5 \"./$new_wav_file\" \"./$new_ogg_file\""; 
 $remove_wav="rm -rf \"./$new_wav_file\""; 
 $remove_wma="rm -rf \"./$orig_file\"";
 print "EXEC 1: $convert_to_wav\n"; 
 $cmd=`$convert_to_wav`; 
 print "EXEC 2: $convert_to_ogg\n"; 
 $cmd=`$convert_to_ogg`; 
 print "REMOVE WAV: $remove_wav\n"; 
 $cmd=`$remove_wav`; 
 print "REMOVE WMA: $remove_wma\n"; 
 $cmd=`$remove_wma`;
 print "\n\n";
}

}

use Gtk;
use strict;
set_locale Gtk;
init Gtk;
my $false = 0;
my $true = 1;
my $window = new Gtk::Window( "toplevel" );
my $button = new Gtk::Button( "Fertig" );
$window->signal_connect( "delete_event", \&CloseAppWindow );   
$button->signal_connect( "clicked", \&CloseAppWindow );
$button->show();
$window->border_width( 15 );
$window->add( $button );
$window->show();
main Gtk;
exit( 0 );
sub CloseAppWindow
{
   Gtk->exit( 0 );
   system('exit');
   return $false;
   exit
   }