openbsd-ports/sysutils/tkdvd/patches/patch-src-other_procedures_tcl
jasper c97a854fcb import tkdvd 4.0.4
TkDVD is a GUI to dvd+rw-tools and cdrecord. It allows burnning CDs and
DVDs easily.

Features:

    * View the current command line that will be used to burn the CD/DVD
    * Burn CD/DVD from iso images
    * Create ISO images from files and CD/DVD
    * CD/DVD Copy
    * Can overburn CD/DVD
    * Support multi session CD/DVD
    * Add/delete/exclude file/directories and show current used space
    * Can keep directory structure
    * Options to choose iso9660 filesystem extension (like Joliet or
      RockRidge extensions)
    * Prevent burning if used space > DVD+R/RW capacity
    * Show output of growisofs/mkisofs to view burned % and estimated
      remaining time

submitted by Vlad Glagolev <stelzy at gmail.com> (MAINTAINER)
2006-12-23 10:26:57 +00:00

21 lines
1.1 KiB
Plaintext

$OpenBSD: patch-src-other_procedures_tcl,v 1.1.1.1 2006/12/23 10:26:57 jasper Exp $
--- src/other_procedures.tcl.orig Sat Aug 5 20:54:23 2006
+++ src/other_procedures.tcl Mon Dec 4 17:27:40 2006
@@ -180,13 +180,13 @@ proc launch {burn_type burn_opt} {
}
} elseif { $burn_type == "create_iso" } {
# burn_opt contains destination file for ISO image
- if {[catch {open "|dd if=$burning_device of=$burn_opt |& cat"} input]} {
+ if {[catch {open "|dd bs=2048 if=$burning_device of=$burn_opt |& cat"} input]} {
#one blank line to increase readability
- .output_window.f_main.log insert end "dd if=$burning_device of=$burn_opt\n\n"
+ .output_window.f_main.log insert end "dd bs=2048 if=$burning_device of=$burn_opt\n\n"
} else {
fileevent $input readable log_proc
#one blank line to increase readability
- .output_window.f_main.log insert end "dd if=$burning_device of=$burn_opt\n\n"
+ .output_window.f_main.log insert end "dd bs=2048 if=$burning_device of=$burn_opt\n\n"
}
} elseif { $burn_type == "erase_dvd" } {
# $burn_opt= "" or "force" or "blank"