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

Timestamp:

Apr 30, 2012, 2:58:47 AM (12 years ago)

Author:

Bruno Cornec

Message:

• Add support for cbplugindirsandfiles. This param provides support for direstories and all their children, whereas cbplugindirs is restricted to the directory alone. Usefull for named support
• Add named plugin
• cbusterize wworks now mostly for named (access to root owned file is still aproblem to solve)
• cb also supports the new cbplugindirsandfiles param

File:

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

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

@@ -78 +78 @@
 
 pb_log(2,"Entering cb_plugin_get for plugin $plugin\n");
-my ($flist,$dlist,$slist) = pb_conf_get_if("cbpluginfiles","cbplugindirs","cbpluginreload");
+my ($flist,$dlist,$dflist,$slist) = pb_conf_get_if("cbpluginfiles","cbplugindirs","cbplugindirsandfiles","cbpluginreload");
 if ((defined $flist) && (defined $flist->{$plugin}) && ($flist->{$plugin} !~ /^\s*$/)) {
     foreach my $block (split(/;/,$flist->{$plugin})) {
@@ -93 +93 @@
     }
 }
+if ((defined $dflist) && (defined $dflist->{$plugin}) && ($dflist->{$plugin} !~ /^\s*$/)) {
+    foreach my $block (split(/;/,$dflist->{$plugin})) {
+        pb_log(3,"block : $block\n");
+        my ($name,$tmp) = split(/\|/,$block);
+        ($cbp->{$plugin}->{'dirsandfiles'}->{$name}->{'uid'},$cbp->{$plugin}->{'dirsandfiles'}->{$name}->{'gid'},$cbp->{$plugin}->{'dirsandfiles'}->{$name}->{'mode'}) = split(/\,/,$tmp);
+    }
+}
 if ((defined $slist) && (defined $slist->{$plugin})) {
     $cbp->{$plugin}->{'reloadscript'} = $slist->{$plugin};