#!/usr/bin/perl -w

sub linha {
  print "\n";
  print "#" x 70 . "\n";
}

if ($#ARGV < 1) {
  linha;
  print "\nUse:\n\tqueimar -d <lista de diretórios>\n\tou\n\tqueimar -o <imagem.iso>\n";
  linha;
} else {
  $flag = shift();
  $valor = shift();
  linha;
  if ($flag eq "-d") {
    while ($tmp = shift()) {
      $valor = $valor . " $tmp";
    }          
    print "Preparando para queimar $valor...\n\n";
    print "mkisofs -r -J $valor | cdrecord -v dev=0,0,0 speed=8 -eject -data -";
    system("mkisofs -r -J $valor | cdrecord -v dev=0,0,0 speed=8 -eject -data -");
  } elsif ($flag eq "-o") {
    print "Preparando para queimar $valor...\n\n";
    print "cdrecord -v dev=0,0,0 speed=8 -data $valor";
    system("cdrecord -v dev=0,0,0 speed=8 -data $valor");
  } else {
    print "Ops, opção inválida $flag ! Abortando...\n\n";
    exit(0);    
  }    
  print "\n\nTerminei com minha tarefa!\n";
  system("eject /dev/cdrom");
  linha;
}