1.1 --- a/backup-home	Sun May 19 14:56:11 2013 -0400
     1.2 +++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.3 @@ -1,7 +0,0 @@
     1.4 -#!/bin/sh
     1.5 -
     1.6 -tar -vcpjf /backups/home-$(date +"%F-%H:%M").tar.bz2 \
     1.7 ---one-file-system \
     1.8 --C /home  \
     1.9 ---exclude=./lost+found \
    1.10 -.

     2.1 --- a/backup-system	Sun May 19 14:56:11 2013 -0400
     2.2 +++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
     2.3 @@ -1,13 +0,0 @@
     2.4 -#!/bin/sh
     2.5 -
     2.6 -tar -vcpjf /backups/system-$(date +"%F-%H:%M").tar.bz2 \
     2.7 ---one-file-system \
     2.8 ---exclude=/proc/* \
     2.9 ---exclude=/sys/* \
    2.10 ---exclude=/dev/* \
    2.11 ---exclude=/tmp/* \
    2.12 ---exclude=/lost+found \
    2.13 ---exclude=/boot/lost+found \
    2.14 ---exclude=/root/* \
    2.15 ---exclude=/kernel/* \
    2.16 --C / /boot /  

     3.1 --- a/burn-tmp-iso-image.sh	Sun May 19 14:56:11 2013 -0400
     3.2 +++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
     3.3 @@ -1,7 +0,0 @@
     3.4 -#!/bin/sh
     3.5 -
     3.6 -TARGET=/home/r/tmp/image.iso
     3.7 -
     3.8 -cdrecord -multi -v gracetime=3 -overburn -data "$TARGET"
     3.9 -
    3.10 -#rm $TARGET

     4.1 --- a/cd-backup-parse.pl	Sun May 19 14:56:11 2013 -0400
     4.2 +++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
     4.3 @@ -1,89 +0,0 @@
     4.4 -#!/bin/perl
     4.5 -
     4.6 -$tmp_iso="/home/r/tmp/image.iso";
     4.7 -
     4.8 -
     4.9 -use File::Basename;
    4.10 -
    4.11 -$session_info = `cdrecord -minfo 2>/dev/null`;
    4.12 -$multi_sessionP = false;
    4.13 -
    4.14 -
    4.15 -# get the last 2 lines from $session_info, and use them to construct
    4.16 -# the proper flags for mkisofs.
    4.17 -
    4.18 -@session_info_lines = split("\n", $session_info);
    4.19 -
    4.20 -$session_number_line = $session_info_lines[-2];
    4.21 -$start_address_line  = $session_info_lines[-1];
    4.22 -
    4.23 -if ($session_number_line =~ m/^Last session start address:\s*(\d+)/){
    4.24 -    $session_number = $1;
    4.25 -    if ($start_address_line =~ m/^Last session leadout start address:\s*(\d+)/){
    4.26 -	$start_address = $1;
    4.27 -	$multi_sessionP = true;
    4.28 -    }
    4.29 -}
    4.30 -
    4.31 -#print "$multi_sessionP\n$session_number\n$start_address\n";
    4.32 -
    4.33 -@graft_points = ("-graft-points");
    4.34 -
    4.35 -for $graft_point(@ARGV){
    4.36 -    push(@graft_points, basename($graft_point) . "=" . $graft_point);
    4.37 -}
    4.38 -
    4.39 -@create_iso_command =  ("mkisofs", "-iso-level", "4", "-r", "-J", "-T");
    4.40 -
    4.41 -
    4.42 -if ($multi_sessionP){
    4.43 -    $C_spec = "$session_number,$start_address";
    4.44 -    @additional_args = ("-M", "/dev/cdrom", "-C", $C_spec);
    4.45 -    @create_iso_command = (@create_iso_command, @additional_args);
    4.46 -}
    4.47 -    
    4.48 -@create_iso_command = (@create_iso_command, "-o", $tmp_iso, @graft_points);
    4.49 -
    4.50 -
    4.51 -@remove_previous_iso_command = ("rm", "-f", $tmp_iso);
    4.52 -print "@remove_previous_iso_command\n";
    4.53 -system(@remove_previous_iso_command);
    4.54 -
    4.55 -print "@create_iso_command\n";
    4.56 -system(@create_iso_command);
    4.57 -
    4.58 -print "Created $tmp_iso.\n";
    4.59 -print "Use burn-tmp-iso-image to write to CD.\n";
    4.60 -if ($multi_sessionP){
    4.61 -    print "Note: this will be a multisession disk!.\n"
    4.62 -}
    4.63 -
    4.64 -# #START=`cdrecord -msinfo`
    4.65 -
    4.66 -# #echo "$START"
    4.67 -
    4.68 -# GRAFT_POINTS=''
    4.69 -
    4.70 -# for var in "$@"
    4.71 -# do 
    4.72 -#     GRAFT_POINTS="$GRAFT_POINTS \"`basename "$var"`\"=\"$var\""
    4.73 -# done
    4.74 -
    4.75 -
    4.76 -# #echo $GRAFT_POINTS
    4.77 -
    4.78 -# #if [ "$START" == "0,0" ]; then
    4.79 -#    COMMAND="mkisofs -iso-level 4 -rJT -o $TARGET -graft-points $GRAFT_POINTS"
    4.80 -# #   echo $COMMAND
    4.81 -# #   eval $COMMAND
    4.82 -# #else 
    4.83 -# #   COMMAND="mkisofs -iso-level 4 -rJT -M /dev/cdrom \
    4.84 -# #               -C $START -o $TARGET -graft-points $GRAFT_POINTS"
    4.85 -#    echo $COMMAND
    4.86 -#    eval $COMMAND
    4.87 -# #fi
    4.88 -
    4.89 -
    4.90 -# echo "files copied to $TARGET. use 'burn-tmp-iso-image' to burn it."
    4.91 -
    4.92 -# #cd-burn

     5.1 --- a/cd-backup.pl	Sun May 19 14:56:11 2013 -0400
     5.2 +++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
     5.3 @@ -1,90 +0,0 @@
     5.4 -#!/bin/perl
     5.5 -
     5.6 -$tmp_iso="/home/r/tmp/image.iso";
     5.7 -
     5.8 -
     5.9 -use File::Basename;
    5.10 -
    5.11 -$session_info = `cdrecord -minfo 2>/dev/null`;
    5.12 -$multi_sessionP = false;
    5.13 -
    5.14 -
    5.15 -# get the last 2 lines from $session_info, and use them to construct
    5.16 -# the proper flags for mkisofs.
    5.17 -
    5.18 -@session_info_lines = split("\n", $session_info);
    5.19 -
    5.20 -$session_number_line = $session_info_lines[-2];
    5.21 -$start_address_line  = $session_info_lines[-1];
    5.22 -
    5.23 -if ($session_number_line =~ m/^Last session start address:\s*(\d+)/){
    5.24 -    $session_number = $1;
    5.25 -    if ($start_address_line =~ m/^Last session leadout start address:\s*(\d+)/){
    5.26 -	$start_address = $1;
    5.27 -	$multi_sessionP = true;
    5.28 -    }
    5.29 -}
    5.30 -
    5.31 -#print "$multi_sessionP\n$session_number\n$start_address\n";
    5.32 -
    5.33 -@graft_points = ("-graft-points");
    5.34 -
    5.35 -for $graft_point(@ARGV){
    5.36 -    push(@graft_points, basename($graft_point) . "=" . $graft_point);
    5.37 -}
    5.38 -
    5.39 -@create_iso_command =  ("mkisofs", "-iso-level", "4", "-r", "-J", "-T");
    5.40 -
    5.41 -
    5.42 -if ($multi_sessionP){
    5.43 -#    $C_spec = "$session_number,$start_address";
    5.44 -    $C_spec = "1,$start_address";
    5.45 -    @additional_args = ("-M", "/dev/cdrom", "-C", $C_spec);
    5.46 -    @create_iso_command = (@create_iso_command, @additional_args);
    5.47 -}
    5.48 -    
    5.49 -@create_iso_command = (@create_iso_command, "-o", $tmp_iso, @graft_points);
    5.50 -
    5.51 -
    5.52 -@remove_previous_iso_command = ("rm", "-f", $tmp_iso);
    5.53 -print "@remove_previous_iso_command\n";
    5.54 -system(@remove_previous_iso_command);
    5.55 -
    5.56 -print "@create_iso_command\n";
    5.57 -system(@create_iso_command);
    5.58 -
    5.59 -print "Created $tmp_iso.\n";
    5.60 -print "Use burn-tmp-iso-image to write to CD.\n";
    5.61 -if ($multi_sessionP){
    5.62 -    print "Note: this will be a multisession disk!.\n"
    5.63 -}
    5.64 -
    5.65 -# #START=`cdrecord -msinfo`
    5.66 -
    5.67 -# #echo "$START"
    5.68 -
    5.69 -# GRAFT_POINTS=''
    5.70 -
    5.71 -# for var in "$@"
    5.72 -# do 
    5.73 -#     GRAFT_POINTS="$GRAFT_POINTS \"`basename "$var"`\"=\"$var\""
    5.74 -# done
    5.75 -
    5.76 -
    5.77 -# #echo $GRAFT_POINTS
    5.78 -
    5.79 -# #if [ "$START" == "0,0" ]; then
    5.80 -#    COMMAND="mkisofs -iso-level 4 -rJT -o $TARGET -graft-points $GRAFT_POINTS"
    5.81 -# #   echo $COMMAND
    5.82 -# #   eval $COMMAND
    5.83 -# #else 
    5.84 -# #   COMMAND="mkisofs -iso-level 4 -rJT -M /dev/cdrom \
    5.85 -# #               -C $START -o $TARGET -graft-points $GRAFT_POINTS"
    5.86 -#    echo $COMMAND
    5.87 -#    eval $COMMAND
    5.88 -# #fi
    5.89 -
    5.90 -
    5.91 -# echo "files copied to $TARGET. use 'burn-tmp-iso-image' to burn it."
    5.92 -
    5.93 -# #cd-burn

     6.1 --- a/cd-backup.sh	Sun May 19 14:56:11 2013 -0400
     6.2 +++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
     6.3 @@ -1,33 +0,0 @@
     6.4 -#!/bin/sh
     6.5 -
     6.6 -TARGET="/home/r/tmp/image.iso"
     6.7 -
     6.8 -#START=`cdrecord -msinfo`
     6.9 -
    6.10 -#echo "$START"
    6.11 -
    6.12 -GRAFT_POINTS=''
    6.13 -
    6.14 -for var in "$@"
    6.15 -do 
    6.16 -    GRAFT_POINTS="$GRAFT_POINTS \"`basename "$var"`\"=\"$var\""
    6.17 -done
    6.18 -
    6.19 -
    6.20 -#echo $GRAFT_POINTS
    6.21 -
    6.22 -#if [ "$START" == "0,0" ]; then
    6.23 -   COMMAND="mkisofs -iso-level 4 -rJT -o $TARGET -graft-points $GRAFT_POINTS"
    6.24 -#   echo $COMMAND
    6.25 -#   eval $COMMAND
    6.26 -#else 
    6.27 -#   COMMAND="mkisofs -iso-level 4 -rJT -M /dev/cdrom \
    6.28 -#               -C $START -o $TARGET -graft-points $GRAFT_POINTS"
    6.29 -   echo $COMMAND
    6.30 -#   eval $COMMAND
    6.31 -#fi
    6.32 -
    6.33 -
    6.34 -echo "files copied to $TARGET. use 'burn-tmp-iso-image' to burn it."
    6.35 -
    6.36 -#cd-burn

     7.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     7.2 +++ b/crvft/backup-home	Thu May 23 22:52:01 2013 -0400
     7.3 @@ -0,0 +1,7 @@
     7.4 +#!/bin/sh
     7.5 +
     7.6 +tar -vcpjf /backups/home-$(date +"%F-%H:%M").tar.bz2 \
     7.7 +--one-file-system \
     7.8 +-C /home  \
     7.9 +--exclude=./lost+found \
    7.10 +.

     8.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     8.2 +++ b/crvft/backup-system	Thu May 23 22:52:01 2013 -0400
     8.3 @@ -0,0 +1,13 @@
     8.4 +#!/bin/sh
     8.5 +
     8.6 +tar -vcpjf /backups/system-$(date +"%F-%H:%M").tar.bz2 \
     8.7 +--one-file-system \
     8.8 +--exclude=/proc/* \
     8.9 +--exclude=/sys/* \
    8.10 +--exclude=/dev/* \
    8.11 +--exclude=/tmp/* \
    8.12 +--exclude=/lost+found \
    8.13 +--exclude=/boot/lost+found \
    8.14 +--exclude=/root/* \
    8.15 +--exclude=/kernel/* \
    8.16 +-C / /boot /  

     9.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     9.2 +++ b/crvft/burn-tmp-iso-image.sh	Thu May 23 22:52:01 2013 -0400
     9.3 @@ -0,0 +1,7 @@
     9.4 +#!/bin/sh
     9.5 +
     9.6 +TARGET=/home/r/tmp/image.iso
     9.7 +
     9.8 +cdrecord -multi -v gracetime=3 -overburn -data "$TARGET"
     9.9 +
    9.10 +#rm $TARGET

    10.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
    10.2 +++ b/crvft/cd-backup-parse.pl	Thu May 23 22:52:01 2013 -0400
    10.3 @@ -0,0 +1,89 @@
    10.4 +#!/bin/perl
    10.5 +
    10.6 +$tmp_iso="/home/r/tmp/image.iso";
    10.7 +
    10.8 +
    10.9 +use File::Basename;
   10.10 +
   10.11 +$session_info = `cdrecord -minfo 2>/dev/null`;
   10.12 +$multi_sessionP = false;
   10.13 +
   10.14 +
   10.15 +# get the last 2 lines from $session_info, and use them to construct
   10.16 +# the proper flags for mkisofs.
   10.17 +
   10.18 +@session_info_lines = split("\n", $session_info);
   10.19 +
   10.20 +$session_number_line = $session_info_lines[-2];
   10.21 +$start_address_line  = $session_info_lines[-1];
   10.22 +
   10.23 +if ($session_number_line =~ m/^Last session start address:\s*(\d+)/){
   10.24 +    $session_number = $1;
   10.25 +    if ($start_address_line =~ m/^Last session leadout start address:\s*(\d+)/){
   10.26 +	$start_address = $1;
   10.27 +	$multi_sessionP = true;
   10.28 +    }
   10.29 +}
   10.30 +
   10.31 +#print "$multi_sessionP\n$session_number\n$start_address\n";
   10.32 +
   10.33 +@graft_points = ("-graft-points");
   10.34 +
   10.35 +for $graft_point(@ARGV){
   10.36 +    push(@graft_points, basename($graft_point) . "=" . $graft_point);
   10.37 +}
   10.38 +
   10.39 +@create_iso_command =  ("mkisofs", "-iso-level", "4", "-r", "-J", "-T");
   10.40 +
   10.41 +
   10.42 +if ($multi_sessionP){
   10.43 +    $C_spec = "$session_number,$start_address";
   10.44 +    @additional_args = ("-M", "/dev/cdrom", "-C", $C_spec);
   10.45 +    @create_iso_command = (@create_iso_command, @additional_args);
   10.46 +}
   10.47 +    
   10.48 +@create_iso_command = (@create_iso_command, "-o", $tmp_iso, @graft_points);
   10.49 +
   10.50 +
   10.51 +@remove_previous_iso_command = ("rm", "-f", $tmp_iso);
   10.52 +print "@remove_previous_iso_command\n";
   10.53 +system(@remove_previous_iso_command);
   10.54 +
   10.55 +print "@create_iso_command\n";
   10.56 +system(@create_iso_command);
   10.57 +
   10.58 +print "Created $tmp_iso.\n";
   10.59 +print "Use burn-tmp-iso-image to write to CD.\n";
   10.60 +if ($multi_sessionP){
   10.61 +    print "Note: this will be a multisession disk!.\n"
   10.62 +}
   10.63 +
   10.64 +# #START=`cdrecord -msinfo`
   10.65 +
   10.66 +# #echo "$START"
   10.67 +
   10.68 +# GRAFT_POINTS=''
   10.69 +
   10.70 +# for var in "$@"
   10.71 +# do 
   10.72 +#     GRAFT_POINTS="$GRAFT_POINTS \"`basename "$var"`\"=\"$var\""
   10.73 +# done
   10.74 +
   10.75 +
   10.76 +# #echo $GRAFT_POINTS
   10.77 +
   10.78 +# #if [ "$START" == "0,0" ]; then
   10.79 +#    COMMAND="mkisofs -iso-level 4 -rJT -o $TARGET -graft-points $GRAFT_POINTS"
   10.80 +# #   echo $COMMAND
   10.81 +# #   eval $COMMAND
   10.82 +# #else 
   10.83 +# #   COMMAND="mkisofs -iso-level 4 -rJT -M /dev/cdrom \
   10.84 +# #               -C $START -o $TARGET -graft-points $GRAFT_POINTS"
   10.85 +#    echo $COMMAND
   10.86 +#    eval $COMMAND
   10.87 +# #fi
   10.88 +
   10.89 +
   10.90 +# echo "files copied to $TARGET. use 'burn-tmp-iso-image' to burn it."
   10.91 +
   10.92 +# #cd-burn

    11.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
    11.2 +++ b/crvft/cd-backup.pl	Thu May 23 22:52:01 2013 -0400
    11.3 @@ -0,0 +1,90 @@
    11.4 +#!/bin/perl
    11.5 +
    11.6 +$tmp_iso="/home/r/tmp/image.iso";
    11.7 +
    11.8 +
    11.9 +use File::Basename;
   11.10 +
   11.11 +$session_info = `cdrecord -minfo 2>/dev/null`;
   11.12 +$multi_sessionP = false;
   11.13 +
   11.14 +
   11.15 +# get the last 2 lines from $session_info, and use them to construct
   11.16 +# the proper flags for mkisofs.
   11.17 +
   11.18 +@session_info_lines = split("\n", $session_info);
   11.19 +
   11.20 +$session_number_line = $session_info_lines[-2];
   11.21 +$start_address_line  = $session_info_lines[-1];
   11.22 +
   11.23 +if ($session_number_line =~ m/^Last session start address:\s*(\d+)/){
   11.24 +    $session_number = $1;
   11.25 +    if ($start_address_line =~ m/^Last session leadout start address:\s*(\d+)/){
   11.26 +	$start_address = $1;
   11.27 +	$multi_sessionP = true;
   11.28 +    }
   11.29 +}
   11.30 +
   11.31 +#print "$multi_sessionP\n$session_number\n$start_address\n";
   11.32 +
   11.33 +@graft_points = ("-graft-points");
   11.34 +
   11.35 +for $graft_point(@ARGV){
   11.36 +    push(@graft_points, basename($graft_point) . "=" . $graft_point);
   11.37 +}
   11.38 +
   11.39 +@create_iso_command =  ("mkisofs", "-iso-level", "4", "-r", "-J", "-T");
   11.40 +
   11.41 +
   11.42 +if ($multi_sessionP){
   11.43 +#    $C_spec = "$session_number,$start_address";
   11.44 +    $C_spec = "1,$start_address";
   11.45 +    @additional_args = ("-M", "/dev/cdrom", "-C", $C_spec);
   11.46 +    @create_iso_command = (@create_iso_command, @additional_args);
   11.47 +}
   11.48 +    
   11.49 +@create_iso_command = (@create_iso_command, "-o", $tmp_iso, @graft_points);
   11.50 +
   11.51 +
   11.52 +@remove_previous_iso_command = ("rm", "-f", $tmp_iso);
   11.53 +print "@remove_previous_iso_command\n";
   11.54 +system(@remove_previous_iso_command);
   11.55 +
   11.56 +print "@create_iso_command\n";
   11.57 +system(@create_iso_command);
   11.58 +
   11.59 +print "Created $tmp_iso.\n";
   11.60 +print "Use burn-tmp-iso-image to write to CD.\n";
   11.61 +if ($multi_sessionP){
   11.62 +    print "Note: this will be a multisession disk!.\n"
   11.63 +}
   11.64 +
   11.65 +# #START=`cdrecord -msinfo`
   11.66 +
   11.67 +# #echo "$START"
   11.68 +
   11.69 +# GRAFT_POINTS=''
   11.70 +
   11.71 +# for var in "$@"
   11.72 +# do 
   11.73 +#     GRAFT_POINTS="$GRAFT_POINTS \"`basename "$var"`\"=\"$var\""
   11.74 +# done
   11.75 +
   11.76 +
   11.77 +# #echo $GRAFT_POINTS
   11.78 +
   11.79 +# #if [ "$START" == "0,0" ]; then
   11.80 +#    COMMAND="mkisofs -iso-level 4 -rJT -o $TARGET -graft-points $GRAFT_POINTS"
   11.81 +# #   echo $COMMAND
   11.82 +# #   eval $COMMAND
   11.83 +# #else 
   11.84 +# #   COMMAND="mkisofs -iso-level 4 -rJT -M /dev/cdrom \
   11.85 +# #               -C $START -o $TARGET -graft-points $GRAFT_POINTS"
   11.86 +#    echo $COMMAND
   11.87 +#    eval $COMMAND
   11.88 +# #fi
   11.89 +
   11.90 +
   11.91 +# echo "files copied to $TARGET. use 'burn-tmp-iso-image' to burn it."
   11.92 +
   11.93 +# #cd-burn

    12.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
    12.2 +++ b/crvft/cd-backup.sh	Thu May 23 22:52:01 2013 -0400
    12.3 @@ -0,0 +1,33 @@
    12.4 +#!/bin/sh
    12.5 +
    12.6 +TARGET="/home/r/tmp/image.iso"
    12.7 +
    12.8 +#START=`cdrecord -msinfo`
    12.9 +
   12.10 +#echo "$START"
   12.11 +
   12.12 +GRAFT_POINTS=''
   12.13 +
   12.14 +for var in "$@"
   12.15 +do 
   12.16 +    GRAFT_POINTS="$GRAFT_POINTS \"`basename "$var"`\"=\"$var\""
   12.17 +done
   12.18 +
   12.19 +
   12.20 +#echo $GRAFT_POINTS
   12.21 +
   12.22 +#if [ "$START" == "0,0" ]; then
   12.23 +   COMMAND="mkisofs -iso-level 4 -rJT -o $TARGET -graft-points $GRAFT_POINTS"
   12.24 +#   echo $COMMAND
   12.25 +#   eval $COMMAND
   12.26 +#else 
   12.27 +#   COMMAND="mkisofs -iso-level 4 -rJT -M /dev/cdrom \
   12.28 +#               -C $START -o $TARGET -graft-points $GRAFT_POINTS"
   12.29 +   echo $COMMAND
   12.30 +#   eval $COMMAND
   12.31 +#fi
   12.32 +
   12.33 +
   12.34 +echo "files copied to $TARGET. use 'burn-tmp-iso-image' to burn it."
   12.35 +
   12.36 +#cd-burn

    13.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
    13.2 +++ b/crvft/simple-cd-backup.pl	Thu May 23 22:52:01 2013 -0400
    13.3 @@ -0,0 +1,23 @@
    13.4 +#!/bin/perl
    13.5 +use File::Basename;
    13.6 +
    13.7 +@graft_points = ("-graft-points");
    13.8 +
    13.9 +for $graft_point(@ARGV){
   13.10 +    push(@graft_points, basename($graft_point) . "=" . $graft_point);
   13.11 +}
   13.12 +
   13.13 +@create_iso_command =  ("mkisofs", "-iso-level", "4", "-r", "-J", "-T");
   13.14 +
   13.15 +@create_iso_command = (@create_iso_command, "-o", $tmp_iso, @graft_points);
   13.16 +
   13.17 +
   13.18 +@remove_previous_iso_command = ("rm", "-f", $tmp_iso);
   13.19 +print "@remove_previous_iso_command\n";
   13.20 +system(@remove_previous_iso_command);
   13.21 +
   13.22 +print "@create_iso_command\n";
   13.23 +system(@create_iso_command);
   13.24 +
   13.25 +print "Created $tmp_iso.\n";
   13.26 +print "Use burn-tmp-iso-image to write to CD.\n";

    14.1 --- a/simple-cd-backup.pl	Sun May 19 14:56:11 2013 -0400
    14.2 +++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
    14.3 @@ -1,23 +0,0 @@
    14.4 -#!/bin/perl
    14.5 -use File::Basename;
    14.6 -
    14.7 -@graft_points = ("-graft-points");
    14.8 -
    14.9 -for $graft_point(@ARGV){
   14.10 -    push(@graft_points, basename($graft_point) . "=" . $graft_point);
   14.11 -}
   14.12 -
   14.13 -@create_iso_command =  ("mkisofs", "-iso-level", "4", "-r", "-J", "-T");
   14.14 -
   14.15 -@create_iso_command = (@create_iso_command, "-o", $tmp_iso, @graft_points);
   14.16 -
   14.17 -
   14.18 -@remove_previous_iso_command = ("rm", "-f", $tmp_iso);
   14.19 -print "@remove_previous_iso_command\n";
   14.20 -system(@remove_previous_iso_command);
   14.21 -
   14.22 -print "@create_iso_command\n";
   14.23 -system(@create_iso_command);
   14.24 -
   14.25 -print "Created $tmp_iso.\n";
   14.26 -print "Use burn-tmp-iso-image to write to CD.\n";