#!/usr/bin/perl
if($>!=0){ 
  exec("gksudo '$0'"); 
}
`zenity --question --text "Wollen sie ein TruecryptVolume mounten (OK) oder auswerfen (Abbrechen)?"`;
if($?==0){
  chomp($CONTAINER=`zenity --entry --title='Welches Volume?' --entry-text='/home/lionstarr/Dokumente/krimskrams/zeugs.pdf' --text='Bitte geben sie den Pfad zum TrueCrypt Volume/Container ein'`);
  chomp($MOUNTPUNKT=`zenity --entry --title='Wo Mounten?' --entry-text='/media/zeugs' --text='Bitte geben sie den Pfad zum Mountordner ein (wird erstellt, falls er nicht existiert)'`);
   if(!-e $MOUNTPUNKT){
     system("mkdir '$MOUNTPUNKT'");
   }
   if(-e $MOUNPUNKT && !-d $MOUNTPUNKT){
     system('zenity --warning --text="Datei existiert und ist kein Verzeichnis... Beende das Programm!');
     exit 0;
   }
  chomp($PASSWORT=`zenity --entry --title='Passwort' --hide-text='' --text='Bitte geben sie das Passwort für das TrueCrypt Volume/Container ein...'`);
    $MELDUNG=`truecrypt -v -u -p '$PASSWORT' '$CONTAINER' '$MOUNTPUNKT' 2>&1`;
   system("zenity --info --text='$MELDUNG' --title='Ausgabe von Truecrypt'");
   `nautilus /media/zeugs`;
}
else{
 chomp($MOUNTPUNKT=`zenity --entry --title='Wo gemounted?' --entry-text='/media/zeugs' --text='Bitte geben sie den Pfad zum Mountordner ein... (dieser wird danach gelöscht)'`);
  $MELDUNG=`truecrypt -v -d '$MOUNTPUNKT' 2>&1`;
  system("zenity --info --text='$MELDUNG' --title='Ausgabe von Truecrypt'");
  system("rmdir $MOUNTPUNKT");
}