Changeset 1679 in ProjectBuilder for projects/casparbuster/devel/lib/CasparBuster/Plugin.pm

Timestamp:

Nov 16, 2012, 9:07:07 PM (11 years ago)

Author:

Bruno Cornec

Message:

• Start working on plugins

File:

• projects/casparbuster/devel/lib/CasparBuster/Plugin.pm (modified) (3 diffs)

projects/casparbuster/devel/lib/CasparBuster/Plugin.pm

@@ -9 +9 @@
 use strict;
 use warnings;
+use Carp;
 use CasparBuster::Env;
 use ProjectBuilder::Base;
@@ -76 +77 @@
 my $plugin = shift;
 my $cbp = shift;
+my $remote = shift;
+my $machine = shift;
+my $debug = shift;
+my $ssh2 = shift;
 
 pb_log(2,"Entering cb_plugin_get for plugin $plugin\n");
-my ($flist,$dlist,$dflist,$slist) = pb_conf_get_if("cbpluginfiles","cbplugindirs","cbplugindirsandfiles","cbpluginreload");
+my ($flist,$dlist,$dflist,$slist,$plist) = pb_conf_get_if("cbpluginfiles","cbplugindirs","cbplugindirsandfiles","cbppkgreload","cbpluginpkgs");
 if ((defined $flist) && (defined $flist->{$plugin}) && ($flist->{$plugin} !~ /^\s*$/)) {
     foreach my $block (split(/;/,$flist->{$plugin})) {
@@ -100 +105 @@
     }
 }
-if ((defined $slist) && (defined $slist->{$plugin})) {
-    $cbp->{$plugin}->{'reloadscript'} = $slist->{$plugin};
+if ((defined $plist) && (defined $plist->{$plugin})) {
+    foreach my $name (split(/,/,$plist->{$plugin})) {
+        $cbp->{$plugin}->{'pkgs'}->{$name}->{'name'} = $name;
+        if ((defined $slist) && (defined $slist->{$name})) {
+            $cbp->{$plugin}->{'pkgs'}->{$name}->{'restart'} = $slist->{$name};
+        }
+    }
+} else {
+    $cbp->{$plugin}->{'pkgs'}->{$plugin}->{'name'} = $plugin;
 }
+# Check remotely what conf files are needed for this plugin through its packages
+$ssh2 = cb_ssh_init($remote,$machine,$debug) if (not defined $ssh2);
+
+my $chan = $ssh2->channel();
+pb_log(3,"DEBUG: SSH2 chan called\n");
+confess "Unable to create channel for $remote\@$machine: $!" if (not defined $chan);
+if ($debug) {
+    pb_log(1,"DEBUG: launching a shell via Net:SSH2 ($remote\@$machine)\n");
+}
+confess "Unable to launch remote shell through Net:SSH2 ($remote\@$machine)" if (not $chan->shell());
+pb_log(3,"DEBUG: SSH2 shell called\n");
+
+foreach my $p (keys $cbp->{$plugin}->{'pkgs'}) {
+    # TODO: Do not hardcode rpm
+    my $cmd = "sudo rpm -q -c --dump $p";
+    pb_log(2,"DEBUG: Calling $cmd\n");
+    print $chan "$cmd\n";
+    while (<$chan>) {
+        my ($name,$d1,$d2,$d3,$mode,$uid,$gid,$dummy) = split(/ /,$_);
+        $cbp->{$plugin}->{'files'}->{$name}->{'uid'} = $uid;
+        $cbp->{$plugin}->{'files'}->{$name}->{'gid'} = $gid;
+        $cbp->{$plugin}->{'files'}->{$name}->{'mode'} = substr($mode,4,);
+        pb_log(3,"DEBUG: Found $name");
+    }
+}
+
+$chan->close();
+
 pb_log(2,"cbp: ".Dumper($cbp)."\n");
 return($cbp);