From: fredrik <fredrik@959494ce-11ee-0310-bf91-de5d638817bd>
Date: Sun, 24 Sep 2006 00:02:35 +0000 (+0000)
Subject: Initial import.
X-Git-Url: http://dolda2000.com/gitweb/?p=utils.git;a=commitdiff_plain;h=b16b19f3a8c8ee305c5a9035f3fef345d25beaf4

Initial import.


git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/utils@693 959494ce-11ee-0310-bf91-de5d638817bd
---

diff --git a/cdtool b/cdtool
new file mode 100755
index 0000000..769cf19
--- /dev/null
+++ b/cdtool
@@ -0,0 +1,226 @@
+#!/usr/bin/perl -w
+
+if(($#ARGV < 0) || ($ARGV[0] eq "help")) {
+    print STDERR "usage:\n";
+    print STDERR "\tcdtool add {FILES|-g GRAFTPOINT}...\n";
+    print STDERR "\tcdtool ls\n";
+    print STDERR "\tcdtool rm NAME\n";
+    print STDERR "\tcdtool szck\n";
+    print STDERR "\tcdtool setgp [GRAFTPOINT]\n";
+    print STDERR "\tcdtool setimg [IMAGE]\n";
+    print STDERR "\tcdtool mkiso\n";
+    exit 1;
+}
+
+if(-r $ENV{"HOME"} . "/.cdtool") {
+    if(open CF, $ENV{"HOME"} . "/.cdtool") {
+	while(<CF>) {
+	    next if /^\#/;
+	    if(/^(\S+)\s+(.*)$/) {
+		if($1 eq "gp") {
+		    $curgraft = $2;
+		} elsif($1 eq "img") {
+		    $curimage = $2;
+		} else {
+		    print STDERR "cdtool: warning: unknown .cdtool directive: $1\n";
+		}
+	    }
+	}
+	close CF;
+    }
+}
+
+sub canonpath {
+    my($path) = @_;
+    $path = "./" . $path unless $path =~ m,^/,;
+    $path =~ s,/$,,;
+    $trailer = "";
+    while(!-d $path) {
+	$path =~ s,/+([^/]*)$,,;
+	$trailer .= "/" . $1;
+	if($path eq "") {
+	    die "weird path given: $_[0]";
+	}
+    }
+    if(!open CHILD, "-|") {
+	chdir $path;
+	exec "pwd";
+	die;
+    }
+    chomp($cpath = <CHILD>);
+    close CHILD;
+    return "$cpath$trailer";
+}
+
+sub dirname {
+    my($path) = @_;
+    $path =~ s,/[^/]+/*$,,;
+    return $path;
+}
+
+sub addfile {
+    my($file, $graft) = @_;
+    my($dir, $f, $basename);
+    $basename = $file;
+    $basename =~ s,^.*/,,;
+    if(-f $file) {
+	print "add $file to $graft\n" if $verbose;
+	$img{"$graft$basename"} = $file;
+    } elsif(-d $file) {
+	$dir = canonpath $file;
+	if(opendir DIR, "$dir") {
+	    for $f (sort grep !/^\./, readdir DIR) {
+		addfile("$dir/$f", "$graft$basename/");
+	    }
+	    closedir DIR;
+	} else {
+	    print STDERR "cdtool: could not open $file for listing: $!\n";
+	}
+    } else {
+	print STDERR "cdtool: $file: not a regular file or directory\n";
+    }
+}
+
+sub readimage {
+    my($file, $dieonerr) = @_;
+    $dieonerr = 1 unless defined $dieonerr;
+    if(!open(IMG, "<", $file)) {
+	if($dieonerr) {
+	    die "$file: $!";
+	} else {
+	    return;
+	}
+    }
+    while(<IMG>) {
+	if(/^file (.*):::(.*)$/) {
+	    $img{$1} = $2;
+	} elsif(/^name (.*)$/) {
+	    $imgname = $1;
+	} elsif(/^rev (\d+)$/) {
+	    $rev = $1;
+	} elsif(/^justburned/) {
+	    $justburned = 1;
+	}
+    }
+    close IMG;
+}
+
+sub writeimage {
+    my($file) = @_;
+    open(IMG, ">", $file) || die "$file: $!";
+    print IMG "rev $rev\n";
+    print IMG "justburned\n" if $justburned;
+    for $f (sort keys %img) {
+	print IMG ("file " . $f . ":::" . $img{$f} . "\n");
+    }
+    close IMG;
+}
+    
+$image = $curimage;
+$imgname = $image;
+$justburned = 0;
+$imgname =~ s,^.*/,,;
+$rev = 1;
+$verbose = 0;
+
+while(($arg = shift @ARGV) =~ /^-(.+)/) {
+    $opts = $1;
+    while($opts =~ s/^(.)//) {
+	if($1 eq "v") {
+	    $verbose = 1;
+	}
+    }
+}
+
+$cmd = $arg;
+if($cmd eq "add") {
+    if(!defined $image) {
+	print STDERR "cdtool: no image defined for adding\n";
+	exit 1;
+    }
+    
+    readimage $image, 0;
+    $justburned = 0;
+    $graft = $curgraft;
+    $graft .= "/" unless $graft eq "";
+    while(defined($arg = shift @ARGV)) {
+	if($arg eq "-g") {
+	    $graft = shift @ARGV;
+	    $graft =~ s,/+$,,;
+	    $graft .= "/" unless $graft eq "";
+	} else {
+	    if(!defined $graft) {
+		print STDERR "cdtool: no graft point defined when adding\n";
+		exit 1;
+	    }
+	    addfile canonpath($arg), $graft
+	}
+    }
+    writeimage $image;
+} elsif($cmd eq "ls") {
+    readimage $image;
+    for $gf (sort keys %img) {
+	print "$gf\n";
+    }
+} elsif($cmd eq "rm") {
+    die "no name specified" unless defined($file = shift @ARGV);
+    $file = canonpath $file;
+    readimage $image;
+    $found = 0;
+    if(-d $file) {
+	$file .= "/";
+	for $gname (grep substr($img{$_}, 0, length $file) eq $file, keys %img) {
+	    delete $img{$gname};
+	    $found = 1;
+	}
+    } else {
+	for $gname (grep $img{$_} eq $file, keys %img) {
+	    delete $img{$gname};
+	    $found = 1;
+	}
+    }
+    if(!$found) {
+	print STDERR "cdtool: $file not found in image\n";
+	exit 1;
+    }
+    $justburned = 0;
+    writeimage $image;
+} elsif($cmd eq "szck") {
+    readimage $image;
+    $size = 0;
+    for $file (values %img) {
+	$size += -s $file;
+    }
+    $size =~ s/(\d{3})/$1,/g;
+    $size =~ s/,$//;
+    print "$size\n";
+} elsif($cmd eq "setgp") {
+    $curgraft = shift @ARGV;
+    $curgraft =~ s,/+$,,;
+} elsif($cmd eq "setimg") {
+    $curimage = shift @ARGV;
+} elsif($cmd eq "mkiso") {
+    readimage $image;
+    open(ISO, "|-", "mkisofs", "-J", "-R", "-V", "$imgname r$rev", "-graft-points", "-path-list", "-") || die "mkisofs: $!";
+    for $gf (sort keys %img) {
+	print ISO ($gf . "=" . $img{$gf} . "\n");
+    }
+    close ISO;
+    if(!$justburned) {
+	$rev++;
+	$justburned = 1;
+    }
+    writeimage $image;
+} else {
+    print STDERR "cdtool: unknown command: $cmd\n";
+    exit 1;
+}
+
+die if(!open CF, ">" . $ENV{"HOME"} . "/.cdtool");
+if(defined $curgraft) {
+    print CF "gp $curgraft\n";
+}
+if(defined $curimage) {
+    print CF "img $curimage\n";
+}
+close CF;