Commits

Palmer, 2E0EOL committed 2762439

Start working on a script to split up volumes for DVDs/CDs.

Comments (0)

Files changed (1)

+#!/usr/bin/perl -w
+#
+# This script reads the current directory and moves all of the files (except CHECKSUM files),
+# into numbered subdirectories, to a CD or DVD's worth of size.  It makes extensive use of
+# du (disk usage).  The CHECKSUM files (if available), are split up into the subdirectories,
+# ready for writing to DVDs or CDs.
+# -n (no-op) (don't do anything, just show what would have been done).
+# -s (size, cd, dvd5, (any value bytes, *K, *M, *G)
+#
+
+use strict;
+use warnings;
+use diagnostics;
+
+use Data::Dumper;
+use Getopt::Std;
+#----------------------------------------------------------------------------
+sub Main();
+#----------------------------------------------------------------------------
+sub Main()
+{
+	my %opts = ( );
+	getopts('ns:', \%opts);
+	print Dumper \%opts;
+}
+#----------------------------------------------------------------------------
+exit(Main());