perl-5.22
|
Last change
on this file since b7b790b was
c5c522c,
checked in by Edwin Eefting <edwin@datux.nl>, 9 years ago
|
|
initial commit, transferred from cleaned syn3 svn tree
|
-
Property mode set to
100755
|
|
File size:
805 bytes
|
| Line | |
|---|
| 1 | #!/bin/bash |
|---|
| 2 | #(C)DatuX 2005 - all rights reserved |
|---|
| 3 | . dialoglib.sh || exit 1 |
|---|
| 4 | |
|---|
| 5 | CDROOT=$1 |
|---|
| 6 | [ "$CDROOT" ] || exit 1 |
|---|
| 7 | |
|---|
| 8 | |
|---|
| 9 | TITLE="`_CopyInstaller`" |
|---|
| 10 | |
|---|
| 11 | DISCS=`unuseddisks` |
|---|
| 12 | if ! [ "$DISCS" ]; then |
|---|
| 13 | msgbox "`_NoDisksFoundInsertDiskFirst`" |
|---|
| 14 | exit 1 |
|---|
| 15 | fi |
|---|
| 16 | |
|---|
| 17 | QUERY=`_SelectDiscToCopyInstallerOn` |
|---|
| 18 | for DISC in $DISCS; do |
|---|
| 19 | #get extra info for use to regonize disc |
|---|
| 20 | SELECT="$SELECT $DISC '`getdiskinfo $DISC`'"; |
|---|
| 21 | done |
|---|
| 22 | DISC= |
|---|
| 23 | while ! [ "$DISC" ]; do |
|---|
| 24 | DISC=`menu $SELECT` || exit 1 |
|---|
| 25 | done |
|---|
| 26 | |
|---|
| 27 | ########## confirmation for discs |
|---|
| 28 | QUERY="`_WarningDisksWillBeErased` |
|---|
| 29 | |
|---|
| 30 | `echo $DISC|sed 's/ /\n/g'` |
|---|
| 31 | |
|---|
| 32 | `_DoYouWantToContinue` |
|---|
| 33 | " |
|---|
| 34 | QUERY="`quote "$QUERY"`"; |
|---|
| 35 | if ! nextcancel $QUERY; then |
|---|
| 36 | exit 1 |
|---|
| 37 | fi; |
|---|
| 38 | |
|---|
| 39 | progress "`_CopyingInstaller`" |
|---|
| 40 | |
|---|
| 41 | if execute sh copyinstaller.sh $CDROOT $DISC; then |
|---|
| 42 | msgbox "`_CopySucceeded`" |
|---|
| 43 | else |
|---|
| 44 | msgbox "`_CopyFailed`" |
|---|
| 45 | fi |
|---|
| 46 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
