my $class = shift;
my $self = {'_DEBUG' => 0,
'_CONNECTOR' => undef,
- API => {
+ _API => {
io => sub { printf(@_) },
connectors => sub { return ({ 'name' => 'direct',
'schemas' => {} }) },
my $p;
foreach $k (keys(%{$self->{'_PARAMS'}})) {
- $p = $self->{_API}->{config_get}->{$k};
+ $p = $self->_getval($k);
$s .= sprintf(" %s: %s", $k, $p);
if ($p eq $self->{'_PARAMS'}->{$k}->[0]) {
$s .= " (default)\n";
}
#
+# This function was used in previous versions of videosite. If it's called
+# we are dealing with an old plugin which probably needs some minor modifications
+# to work properly.
+#
+# Generate a warning message.
+#
+sub _prepare_parameters {
+ my $self = shift;
+
+ $self->error("THIS MODULE IS CALLING _prepare_parameters(). THIS FUNCTION IS DEPRECATED. See readme.txt in the plugin directory.");
+}
+
+#
# Register a callbacks into the core API to the plugin.
# Example of those are config getter/setters and IO functions
# The API is a hash reference containing subroutine references.
#
-# After the API is registered an attempt is made to load the config
-# (or set defaults if config values are not found)
-#
sub register_api {
my $self = shift;
my $api = shift;