#!/usr/bin/perl                               

# You can access your bundled files at the following paths:      
# 
# "$ARGV[0]/Contents/Resources/irext"         
# "$ARGV[0]/Contents/Resources/irext.1"       
# "$ARGV[0]/Contents/Resources/ism"           
# "$ARGV[0]/Contents/Resources/ism.1"         
# "$ARGV[0]/Contents/Resources/libsqlite3.0.8.6.dylib"                                    
# "$ARGV[0]/Contents/Resources/libncurses.5.dylib"                                        
# 
# 
@files = @ARGV ; shift @files ;
$CD="CocoaDialog.app/Contents/MacOS/CocoaDialog" ;


if( $#files < 0 ) {
    print "Please select files\n" ;
$rv=`$ARGV[0]/Contents/Resources/$CD fileselect     --text "Pick pdf files, directories or metadata.db"     --with-directory $HOME/Documents/     --select-directories     --select-multiple` ;
@files = split /\n/, $rv ;
}

$processed_pdf = 0 ;
while( $#files >= 0 ) {
        print "processing $files[0]\n\n" ;

        $files[0] =~ /^(.*)\/([^\/]+)$/ ;

        $path = $1 ;
        $file = $2 ;


        $type = `file \'$files[0]\'` ;

        if( $type =~ /SQLite/ ) {
         print "sqlite\n" ;
         system("cd \'$path\'; \'$ARGV[0]/Contents/Resources/irext\' ls") ;
        }

        if( $type =~ /directory/ ) {
         print "dir\n" ;
         system("cd \'$files[0]\'; \'$ARGV[0]/Contents/Resources/irext\' ls") ;
        }


        if( $type =~ /PDF/ ) {
         system("cd \'$path\'; \'$ARGV[0]/Contents/Resources/ism\' -all \'$file\'");
		$processed_pdf = 1 ;

        }
        print "\n" ;
        shift @files ;
}

if( $processed_pdf != 0) {print "done!\n" ;}

