Changeset 1765 in ProjectBuilder for projects/casparbuster/devel/bin/cb

Timestamp:

Jun 1, 2013, 9:38:07 PM (11 years ago)

Author:

Bruno Cornec

Message:

• Adds support for Debian 7.0 to some projects
• latest cb commits
• mindi 2.1.5 announce

File:

• projects/casparbuster/devel/bin/cb (modified) (8 diffs)

projects/casparbuster/devel/bin/cb

@@ -166 +166 @@
 pb_log(2,"%cb: ",Dumper($cb));
 
-if (defined $plugin) {
-    # Load plugins
-    cb_plugin_load();
-}
-
 my $basedir = $cb->{'basedir'}->{$appname};
 eval { $basedir =~ s/(\$ENV.+\})/$1/eeg };
@@ -184 +179 @@
 my $precmd = "";
 if (! -f $db) {
-    $precmd = "CREATE TABLE dates (id INTEGER PRIMARY KEY AUTOINCREMENT, date INTEGER, file VARCHAR[65535], machine VARCHAR[65535])";
+    $precmd = "CREATE TABLE dates (id INTEGER PRIMARY KEY AUTOINCREMENT, date INTEGER, file VARCHAR[65535], machine VARCHAR[65535], mode VARCHAR[4], uid VARCHAR[5], gid VARCHAR[5])";
 }
 
@@ -210 +205 @@
 umask(0022);
 pb_vcs_export(pb_vcs_get_uri($scheme,$basedir),$basedir,$dest);
+
+# Load all plugins plus the additional manually defined
+cb_plugin_load();
+if (defined $plugin) {
+    pb_conf_add("$basedir/plugins/$plugin") if (-f "$basedir/plugins/$plugin");
+}
 
 # Now distribute to the right machines
@@ -239 +240 @@
 
 pb_log(2,"Entering into cb_distribute with machine $machine\n");
-confess "No machine fiven to cb_distribute" if (not defined $machine);
+confess "No machine given to cb_distribute" if (not defined $machine);
 
 # Use potentially a remote account if defined
@@ -274 +275 @@
     $fullsource = "$machine/$source";
     pb_log(2,"fullsource is $fullsource\n");
-    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat("$dest/$fullsource") || die "Unable to stat $fullsource: $!";
     my $type = 'files';
     if (-d $fullsource) {
@@ -281 +281 @@
     die "ERROR: Only able to handle files or dirs with option --source\n" if ((! -d $fullsource) && (! -f $fullsource));
 
-    # We should get uid/gid from elsewhere as they're probably wrong locally
-    $cbp->{"cb.source"}->{$type}->{$source}->{'uid'} = $uid;
-    $cbp->{"cb.source"}->{$type}->{$source}->{'gid'} = $gid;
-    $cbp->{"cb.source"}->{$type}->{$source}->{'mode'} = $mode;
-    $cbp->{"cb.source"}->{$type}->{$source}->{'mtime'} = $mtime;
+    cb_fill_cbp("cb.source","$dest/$fullsource",$type,$source)
 }
 
@@ -427 +423 @@
 if (not $debug) {
     # Reminder: sudo should be configured for this account as Defaults !requiretty for this to work
-    print $chan "sudo tar -C $path -x -f $tarfile $tbextract\n";
+    print $chan "sudo tar -C $path --no-overwrite-dir -x -f $tarfile $tbextract\n";
     pb_log(0,"WARNING: $_\n") while (<$chan>);
 } else {
@@ -497 +493 @@
 return if ($targetname eq "");
 
-my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($File::Find::name);
-die "Unable to stat $File::Find::name" if (not defined $mode);
-# We should get uid/gid fro elsewhere as they're probably wrong locally
-$cbp->{"cb.full"}->{$type}->{$targetname}->{'uid'} = $uid;
-$cbp->{"cb.full"}->{$type}->{$targetname}->{'gid'} = $gid;
-$cbp->{"cb.full"}->{$type}->{$targetname}->{'mode'} = sprintf("%04o",$mode & 07777);
-$cbp->{"cb.full"}->{$type}->{$targetname}->{'mtime'} = $mtime;
-pb_log(2,"Adding $File::Find::name ($uid,$gid,$mode) to cbp\n");
-}
+cb_fill_cbp("cb.full",$File::Find::name,$type,$targetname)
+}
+
+sub cb_fill_cbp {
+
+my $k = shift;
+my $f = shift;
+my $type = shift;
+my $targetname = shift;
+
+my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($f);
+($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = lstat($f) if (not defined $mode);
+die "Unable to stat $f" if (not defined $mode);
+# We should get uid/gid from elsewhere as they're probably wrong locally
+$cbp->{$k}->{$type}->{$targetname}->{'uid'} = $uid;
+$cbp->{$k}->{$type}->{$targetname}->{'gid'} = $gid;
+$cbp->{$k}->{$type}->{$targetname}->{'mode'} = sprintf("%04o",$mode & 07777);
+$cbp->{$k}->{$type}->{$targetname}->{'mtime'} = $mtime;
+pb_log(2,"Adding $f ($uid,$gid,$mode) to cbp\n");
+}