• Welcome to OS2World OLD-STATIC-BACKUP Forum.
 

News:

This is an old OS2World backup forum for reference only. IT IS READ ONLY!!!

If you need help with OS/2 - eComStation visit http://www.os2world.com/forum

Main Menu

Prepare file for mkisofs2 and DVDDAO

Started by jep, 2008.04.17, 21:16:07

Previous topic - Next topic

jep

Marked as: Easy
Hello,

Example on how to create a file that can be used with mkisofs2 to burn an iso-image to dvd or cd.
Just drag and drop each file one at the time or the whole folder on the rexx script or program object.

Note: Files that contain the characters "[" and "]" will trigger the input dialog where you have to enter the text right above the input field. "[" and "]" can usually be used to trigger the same dialog to appear when one want to enter additional parameters for the application to start.

/* rexx script 4 mkisofs2.exe */
'@echo off'
fName = ARG(1)
temp.1 = STRIP( TRANSLATE( fName, '', '"' ) );
t_pos = LASTPOS( '\', temp.1 );
temp.2 = SUBSTR( temp.1, 1, t_pos );
t_pos = LASTPOS( '\', temp.2 );
IF DIRECTORY( temp.1 ) \= '' THEN
  temp.2 = SUBSTR( temp.1, t_pos );
ELSE temp.2 = '';
IF DIRECTORY( temp.1 ) = temp.1 THEN DO /* Process folder */
  CALL RxFuncAdd 'SysFileTree', 'RexxUtil', 'SysFileTree';
  CALL SysFileTree temp.1||'\*', 'file', 'SFO';
  DO i = 1 TO file.0
    CALL LINEOUT LEFT(App, LASTPOS('\', App))||'trax.trx', TRANSLATE( temp.2||SUBSTR( file.i, LENGTH( temp.1 ) + 1 )||'='||file.i, '/', '\' );
  END
END
ELSE
  CALL LINEOUT LEFT(App, LASTPOS('\', App))||'trax.trx', TRANSLATE( temp.2||'/='||temp.1, '/', '\' );
CALL LINEOUT;


Example how to Burn DVD with DVDDAO
Note: You may want to change some of the parameters such as "-d 0,1,0", "--format dvdd+rw" etc. below to some other values that are valid on your system and that suit you better.

/* Burn DVD */
parse source . . app

say directory( substr( app, 1, lastpos( '\', app ) - 1 ) )
'mkisofs2 --priority 3,30 -allow-lowercase -f -hide-joliet-trans-tbl -l -iso-level 3 -J -L -path-list "'||ARG(1)||'" -R -T -udf -v| dvddao --priority 3,30 -d 0,1,0 --format dvd+rw --stopformat --verify --bufsize 1024k -e -'