property internal : "Internal"
property external : "External"
property Cancel : "Cancel"

property DVDPlayback_Path : "/System/Library/Frameworks/DVDPlayback.framework/Versions/A/"
property DVDPlayback_Name : "DVDPlayback"
property DVDPlayback : DVDPlayback_Path & DVDPlayback_Name
property DVDPlayback_Backup_Name : DVDPlayback_Name & "_Backup"


set commando to ""

tell application "Finder"
    set DVDPlayback_Path_Alias to (POSIX file DVDPlayback_Path) as alias
    if (not (exists file DVDPlayback_Backup_Name of DVDPlayback_Path_Alias)) then
        set commando to "/bin/cp " & (quoted form of DVDPlayback) & " " & (quoted form of (DVDPlayback_Path & DVDPlayback_Backup_Name))
    end if
end tell

set dvd_drive to display dialog ("DVD Drive?") buttons {internal, external, Cancel} default button 2 with icon note

if button returned of dvd_drive is not equal to Cancel then
    
    set message to "Changing to " & (button returned of dvd_drive)
    if (commando is not equal to "") then
        set message to "Creating Backup & " & message
    end if
    display dialog message
    
    set perl_string to "\"s|\\x45\\x78\\x74\\x65\\x72\\x6e\\x61\\x6c|\\x49\\x6e\\x74\\x65\\x72\\x6e\\x61\\x6c|g\""
    if button returned of dvd_drive is external then
        set perl_string to "\"s|\\x49\\x6e\\x74\\x65\\x72\\x6e\\x61\\x6c|\\x45\\x78\\x74\\x65\\x72\\x6e\\x61\\x6c|g\""
    end if
    
    set commando to commando & "; /usr/bin/perl -pi -e " & perl_string & " " & (quoted form of DVDPlayback) & "; chown root:wheel " & (quoted form of DVDPlayback)
    --display dialog commando
    do shell script commando with administrator privileges
    do shell script "/usr/bin/afplay /System/Library/Sounds/Glass.aiff"
    
end if