#!/usr/bin/perl

# Create lists for all video files in folder
# Parameter: "FolderWithVideoFiles"
# Example: screengen "/mnt/stor/video"
# Lists saved in "/mnt/stor/video/scr" folder

$folder="@ARGV[0]"."/";
$outfolder="$folder"."scr";

$presets1=`screengen --presetsList`;
@presets=split ("\n",$presets1);

$all_presets="";

for ($i=3;$i<@presets;$i++){
  $all_presets=$all_presets." \"".@presets[$i]."\" \"".@presets[$i]."\"";
  }
$selected=`kdialog --title "Select preset for screengen." --menu "Preset" $all_presets`;
if ($selected eq "") {exit;}

chomp $selected;

@files=`ls "$folder" -1`;

foreach $file (@files){
  chomp $file;
  $filename="$folder"."$file";
  $vid=`xdg-mime query filetype "$filename"`;
  if ((split ("/", $vid))[0] eq "video") {
    if (-e "$outfolder"){}
    else {mkdir ("$outfolder");}

    $cmd="nice -n 19 screengen \"$filename\" --preset \"$selected\" --outFolder \"$outfolder\"";
    `$cmd`;
	}
  }

`kdialog --title "Done create lists in folder." --msgbox "$folder\nwith preset $selected"`;
