package PluginInterface;

sub new(...) { ... }

sub get_name() { .. }

sub get_menu() { ... }

sub on_click() { ... }

sub show() { ... }

# ... etcpp.

1;

package PluginInterface;

sub new(...) { ... }

sub get_name() { .. }

sub get_menu() { ... }

sub on_click() { ... }

sub show() { ... }

# ... etcpp.

1;

sub GetPluginList{
    # array fuer die hashreferenzen auf die plugindaten
    my ( @plugins ) = GetPluginFromDir( 'plugins', '1' );

    my $i;
    for my $plugin ( @plugins ){
        $i++;
        print "\n         Name: ".$plugin->{pluginname};
        print "\n      Version: ".$plugin->{version};

        my $ref = $plugin->{'funktionen'};

        for( keys %$ref ) {
            print "\n     Funktion: ".$_;
            print "\n               -->Rueckgabe: ";
            print eval "$plugin->{package}::$_";

            }
    }
}

sub GetPluginFromDir{
    # uebergeben wird der directory-path
    my $directory = $_[0];

    # die on error
    die 'Not enough arguments to get Plugin.' if ! $directory;

    # ist diese var gesetzt, werden auch unterverzeichnisse
    # bis zu dieser Tiefe mit verarbeitet
    my $tiefe = $_[1];

    # enthaelt und uebergibt den gefunden plugin
    my ( @plugins );

    # die plugindirectory darf fuer jeden plugin
    # ein eigenes verzeichnis mit allen templates
    # etc. enthalten.
    opendir( PLUGINS, $directory ) ||
         die 'Can´t open Plugindirectory: ' . $directory;

    for ( readdir( PLUGINS ) ){
       # es werden nur verzeichnisse und .pl files gelesen.:
       # weiter wenns uebergeordnete verzeichnisse sind
       next if $_ =~ m|^\.+|;

       my $fullpath = $directory . '/' . $_;

       # diese routine rekursiv aufrufen, wenns ein verzeichnis
       # ist und die tiefe mindestens 1 betraegt
       if ( -d $fullpath && $tiefe >= 1 ){
           # resttiefe fuer den naechsten aufruf um 1 tiefer setzen
           my $resttiefe = $tiefe-1;
           push( @plugins, GetPluginFromDir( $fullpath, $resttiefe ) );
       }

       # weiter wenns kein plugin ist
       next if $_ !~ m|\.pl$|i;

       # plugin validieren oder bei fehler einfach ueberspringen
       my $pluginhashref = ValidatePlugin( $fullpath ) || next;

       push( @plugins, $pluginhashref );
    }

    closedir PLUGINS;


    return ( @plugins );
}

# pruefen der gueltigkeit des plugins
sub ValidatePlugin{
    my $fullpath = $_[0];

    my %pluginfo;
    # plugin laden, rueckgabewert des moduls ist der namensraum
    require $fullpath;

    %pluginfo = &PlugIn::init;

    # abbrechen und NULL zurückgeben, wenn nicht
    # die mindestinfos zurueckgeliefert wurden
    return undef if ! $pluginfo{'pluginname'};
    return undef if ! $pluginfo{'version'   };
    return undef if ! $pluginfo{'package'   };
    return undef if ! $pluginfo{'package'   };

    return \%pluginfo;
}

package PlugIn;
sub init{ &HuhnPlugIN::PluginInfo() }

package HuhnPlugIN;

my $PACKAGE     = 'HuhnPlugIN';
my $PLUGINNAME  = 'HuhnPlugIN';
my $VERSION     = '0.1';

# init() wird nach dem require aufgerufen und gibt den namen,
# die version und einen link zurueck

sub PluginInfo{
    my %link;

    # links werden folgendermassen definiert:
    # der schluessel ist der name der funktion,
    # der wert der link der aufgerufen wird.

    # es koennen beliebig viele funktionen/links
    # deklariert werden.

    $link{ 'TestFunk' } = 'TestFunk';

    # anhaengen des packagenamens an jeden link
    for ( keys %link ){ $_ .= 'plugin=' . $PACKAGE }



    # das hauptprogramm erhaelt die rueckgabewerte
    # und erstellt fuer jeden eintrag im link-hash
    # einen link in der pluginrubrik
    # felder mit einem * sind optional, alle anderen
    # felder muessen vorhanden sein, sonst wird's
    # plugin nicht validiert und fliegt raus
    return( 'pluginname' => $PLUGINNAME,
            'package'    => $PACKAGE,
            'version'    => $VERSION,
            'menubutton' => \%link,
            'folder'     => '',           # *
           );
}



# PLUGIN Funktionen >>

sub TestFunk{
    return "Huhn ist nicht Hase";
}

#!/usr/bin/perl

use strict;

sub get_class
{
	my ($pluginfile) = @_;

	$pluginfile =~ m!(.*?)\.pm$!i;

	return $1;
}

my $pluginfile  = "Plugin.pm";
my $pluginclass = get_class($pluginfile);

require $pluginfile;
my $obj = undef;
eval ($obj = new $pluginclass);

print $obj->get_name() if $obj;

1;

package Plugin;

use strict;

sub new
{
   my ($parent, %args) = @_;

   my $class = ref($parent) || $parent;
   my $self = {};

   bless $self, $class;

   return $self;
}

sub get_name
{
   my ($self) = @_;

   return "Plugin!";
}

1;