<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_bqv22od25h8130u266t42s79a9, O_RDWR) failed: No space left on device (28) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
<br />
<b>Warning</b>:  session_start(): Failed to read session data: files (path: /var/lib/php/sessions) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
!7

module BurnDVD {
  S directory, tempISOFile, dvdDrive;
  
  start {
    if (empty(tempISOFile)) setField(tempISOFile := f2s(javaxCaches("temp.iso"));
    if (empty(dvdDrive)) setField(dvdDrive := "/dev/dvd");
  }
  
  visualize {
    ret makeForm3(
      "Directory:", dm_fieldTextField('directory),
      "Temp ISO file:", dm_fieldTextField('tempISOFile),
      "DVD drive:", dm_fieldTextField('dvdDrive),
      "", jbutton("Step 1 (Make ISO)", rThread step1),
      "", jbutton("Step 2 (Burn to DVD)", rThread step2));
  }
  
  void step1 enter {
    assertLinux();
    assertNempty(directory);
    assertAbsolutePath(directory);
    backtickToConsole("mkisofs -r -o " + bashQuote(tempISOFile) + " "
      + bashQuote(addSlash(directory) + "*"));
    infoBox("ISO made! " + fileInfo(tempISOFile));
  }
  
  void step2 enter {
    assertLinux();
    if (!fileExists(tempISOFile))
      ret with infoBox("ISO doesn't exist: " + tempISOFile);
    backtickToConsole("growisofs -Z " + bashQuote("/dev/dvd=" + tempISOFile));
    infoBox("DVD made!");
  }
}