#!/usr/bin/perl

# Create list for one video file
# Parameters: "VideoFile" "OutputFolderForList"
# Example: screengen "/mnt/stor/video/test.avi" "/mnt/stor/video"

$file="@ARGV[0]";
$out_folder="@ARGV[1]";

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

$all_presets="";

for ($i=3;$i<@presets;$i++){
  $all_presets=$all_presets." \"".@presets[$i]."\" \"".@presets[$i]."\"";
  }
print $all_presets."\n";

$selected=`kdialog --title "Select preset for screengen." --menu "Presets" $all_presets`;
if ($selected eq "") {exit;}

chomp $selected;

$cmd="nice -n 19 screengen \"$file\" --preset \"$selected\" --outFolder \"$out_folder\"";
print $cmd."\n";
`$cmd`;

`kdialog --title "Done create list for video." --msgbox "File:\t $file\nFolder:\t $out_folder\nPreset:\t $selected"`;
