723 lines
19 KiB
Perl
723 lines
19 KiB
Perl
## @file
|
||
# Notification explorer
|
||
|
||
## @class
|
||
# Notification explorer.
|
||
# Synopsis:
|
||
# * build a new Lemonldap::NG::Manager::Notifications object
|
||
# * insert tree() result in HTML
|
||
#
|
||
# tree() loads on of the tree methods.
|
||
# new() manage ajax requests (inserted in HTML tree)
|
||
package Lemonldap::NG::Manager::Notifications;
|
||
|
||
use strict;
|
||
use Lemonldap::NG::Handler::CGI qw(:globalStorage :locationRules);
|
||
use Lemonldap::NG::Common::Notification;
|
||
use Lemonldap::NG::Common::Conf; #link protected conf Configuration
|
||
use Lemonldap::NG::Common::Conf::Constants; #inherits
|
||
require Lemonldap::NG::Manager::_i18n; #inherits
|
||
use utf8;
|
||
|
||
our $whatToTrace;
|
||
*whatToTrace = \$Lemonldap::NG::Handler::_CGI::whatToTrace;
|
||
|
||
our $VERSION = '1.3.0';
|
||
|
||
our @ISA = qw(
|
||
Lemonldap::NG::Handler::CGI
|
||
Lemonldap::NG::Manager::_i18n
|
||
);
|
||
|
||
## @cmethod Lemonldap::NG::Manager::Notifications new(hashRef args)
|
||
# Constructor.
|
||
# @param $args Arguments for Lemonldap::NG::Handler::CGI::new()
|
||
# @return New Lemonldap::NG::Manager::Notifications object
|
||
sub new {
|
||
my ( $class, $args ) = @_;
|
||
|
||
# Output UTF-8
|
||
binmode( STDOUT, ':utf8' );
|
||
|
||
# Try to get configuration values from global configuration
|
||
my $conf = Lemonldap::NG::Common::Conf->new( $args->{configStorage} )
|
||
or Lemonldap::NG::Handler::CGI->abort( 'Unable to get configuration',
|
||
$Lemonldap::NG::Common::Conf::msg );
|
||
|
||
# Configuration from MANAGER section
|
||
if ( my $localconf = $conf->getLocalConf(MANAGERSECTION) ) {
|
||
$args->{$_} ||= $localconf->{$_} foreach ( keys %$localconf );
|
||
}
|
||
|
||
# Load global configuration
|
||
if ( my $globalconf = $conf->getConf() ) {
|
||
$args->{$_} ||= $globalconf->{$_} foreach ( keys %$globalconf );
|
||
}
|
||
|
||
my $self = $class->SUPER::new($args)
|
||
or $class->abort( 'Unable to start ' . __PACKAGE__,
|
||
'See Apache logs for more' );
|
||
|
||
# Local args prepends global args
|
||
$self->{$_} = $args->{$_} foreach ( keys %$args );
|
||
|
||
# Load default skin if no other specified
|
||
$self->{managerSkin} ||= 'default';
|
||
|
||
# Verify if Notification is enabled
|
||
$class->abort("Notifications not enabled, please update configuration")
|
||
unless $self->{notification};
|
||
|
||
# Now try to load Notification module
|
||
my $tmp;
|
||
|
||
# Use configuration options
|
||
if ( $self->{notificationStorage} ) {
|
||
$tmp->{type} = $self->{notificationStorage};
|
||
foreach ( keys %{ $self->{notificationStorageOptions} } ) {
|
||
$tmp->{$_} = $self->{notificationStorageOptions}->{$_};
|
||
}
|
||
}
|
||
|
||
# Else use the configuration backend
|
||
else {
|
||
(%$tmp) = ( %{ $self->{lmConf} } );
|
||
$class->abort( "notificationStorage not defined",
|
||
"This parameter is required to use notification system" )
|
||
unless ( ref($tmp) );
|
||
|
||
# Get the type
|
||
$tmp->{type} =~ s/.*:://;
|
||
$tmp->{type} =~ s/(CBDI|RDBI)/DBI/; # CDBI/RDBI are DBI
|
||
|
||
# If type not File or DBI, abort
|
||
$class->abort("Only File or DBI supported for Notifications")
|
||
unless $tmp->{type} =~ /^(File|DBI)$/;
|
||
|
||
# Force table name
|
||
$tmp->{table} = 'notifications';
|
||
}
|
||
|
||
$tmp->{p} = $self;
|
||
$self->{notifObject} = Lemonldap::NG::Common::Notification->new($tmp);
|
||
$class->abort($Lemonldap::NG::Common::Notification::msg)
|
||
unless ( $self->{notifObject} );
|
||
|
||
# Multi values separator
|
||
$self->{multiValuesSeparator} ||= '; ';
|
||
|
||
# Now we're ready to display sessions. Choose display type
|
||
foreach my $k ( $self->param() ) {
|
||
|
||
# Case ajax request: execute corresponding sub and quit
|
||
if ( grep { $_ eq $k }
|
||
qw(delete purge notification notificationDone uid uidDone letter letterDone)
|
||
)
|
||
{
|
||
print $self->header( -type => 'text/html;charset=utf-8' );
|
||
print $self->$k( $self->param($k) );
|
||
$self->quit();
|
||
}
|
||
|
||
# Case ajax request with complex date type (JSON)
|
||
if ( $k =~ /^(\w+)\[\w+\]$/ ) {
|
||
print $self->header( -type => 'text/html;charset=utf-8' );
|
||
print $self->$1();
|
||
$self->quit();
|
||
}
|
||
|
||
# Case else: store tree type choosen to use it later in tree()
|
||
elsif ( grep { $_ eq $k } qw(listDone) ) {
|
||
$self->{_tree} = $k;
|
||
last;
|
||
}
|
||
}
|
||
|
||
# default display : list by uid
|
||
$self->{_tree} ||= 'list';
|
||
return $self;
|
||
}
|
||
|
||
## @method string tree()
|
||
# Launch required tree builder. It can be one of :
|
||
# * listDone()
|
||
# * list() (default)
|
||
# @return string XML tree
|
||
sub tree {
|
||
my $self = shift;
|
||
|
||
my $sub = $self->{_tree};
|
||
$self->lmLog( "Building chosen tree: $sub", 'debug' );
|
||
my ( $r, $legend ) = $self->$sub( $self->param($sub) );
|
||
return
|
||
qq{<ul class="simpleTree"><li class="root" id="root"><span>$legend</span><ul>$r</ul></li></ul>};
|
||
}
|
||
|
||
################
|
||
# TREE METHODS #
|
||
################
|
||
|
||
## @method protected string list()
|
||
# Build default tree (by letter)
|
||
# @return string XML tree
|
||
sub list {
|
||
my $self = shift;
|
||
my ( $byUid, $count, $res );
|
||
$count = 0;
|
||
|
||
# Parse all notifications to store first letter
|
||
my $n = $self->{notifObject}->getAll();
|
||
|
||
foreach ( keys %$n ) {
|
||
$n->{$_}->{uid} =~ /^(\w)/ or next;
|
||
$byUid->{$1}++;
|
||
$count++;
|
||
}
|
||
|
||
# Build tree sorted by first letter
|
||
foreach my $letter ( sort keys %$byUid ) {
|
||
$res .= $self->ajaxNode(
|
||
|
||
# ID
|
||
"li_$letter",
|
||
|
||
# Legend
|
||
"$letter <i><small>($byUid->{$letter} "
|
||
. (
|
||
$byUid->{$letter} == 1
|
||
? "notification"
|
||
: "notifications"
|
||
)
|
||
. ")</small></i>",
|
||
|
||
# Next request
|
||
"letter=$letter"
|
||
);
|
||
}
|
||
return (
|
||
$res,
|
||
"$count "
|
||
. (
|
||
$count == 1
|
||
? "notification"
|
||
: "notifications"
|
||
)
|
||
);
|
||
}
|
||
|
||
## @method protected string listDone()
|
||
# Build tree of done notifications (by letter)
|
||
# @return string XML tree
|
||
sub listDone {
|
||
my $self = shift;
|
||
my ( $byUid, $count, $res );
|
||
$count = 0;
|
||
|
||
# Parse all notifications to store first letter
|
||
my $n = $self->{notifObject}->getDone();
|
||
|
||
foreach ( keys %$n ) {
|
||
$n->{$_}->{uid} =~ /^(\w)/ or next;
|
||
$byUid->{$1}++;
|
||
$count++;
|
||
}
|
||
|
||
# Build tree sorted by first letter
|
||
foreach my $letter ( sort keys %$byUid ) {
|
||
$res .= $self->ajaxNode(
|
||
|
||
# ID
|
||
"li_$letter",
|
||
|
||
# Legend
|
||
"$letter <i><small>($byUid->{$letter} "
|
||
. (
|
||
$byUid->{$letter} == 1
|
||
? "notification"
|
||
: "notifications"
|
||
)
|
||
. ")</small></i>",
|
||
|
||
# Next request
|
||
"letterDone=$letter"
|
||
);
|
||
}
|
||
return (
|
||
$res,
|
||
"$count "
|
||
. (
|
||
$count == 1
|
||
? $self->translate('notificationDone')
|
||
: $self->translate('notificationsDone')
|
||
)
|
||
);
|
||
}
|
||
|
||
##################
|
||
# AJAX RESPONSES #
|
||
##################
|
||
|
||
## @method protected string delete(string id)
|
||
# Delete a session
|
||
# @param id Session identifier
|
||
# @return HTML data
|
||
sub delete {
|
||
my ( $self, $id ) = splice @_;
|
||
my ( $uid, $ref ) = ( $id =~ /([^_]+?)_(.+)/ );
|
||
my ( $n, $res );
|
||
|
||
# Try to read notification
|
||
$n = $self->{notifObject}->_get( $uid, $ref );
|
||
|
||
unless ($n) {
|
||
$self->lmLog( "Notification $ref not found for user $uid", 'error' );
|
||
$res .= '<h1 class="ui-widget-header ui-corner-all">'
|
||
. $self->translate('error') . '</h1>';
|
||
$res .= '<div class="ui-corner-all ui-widget-content">';
|
||
$res .= $self->translate('notificationNotFound');
|
||
$res .= '</div>';
|
||
return $res;
|
||
}
|
||
|
||
# Delete notifications
|
||
my $status = 1;
|
||
foreach ( keys %$n ) {
|
||
$status = 0 unless ( $self->{notifObject}->_delete($_) );
|
||
}
|
||
|
||
unless ($status) {
|
||
|
||
$self->lmLog( "Notification $ref for user $uid not deleted", 'error' );
|
||
$res .= '<h1 class="ui-widget-header ui-corner-all">'
|
||
. $self->translate('error') . '</h1>';
|
||
$res .= '<div class="ui-corner-all ui-widget-content">';
|
||
$res .= $self->translate('notificationNotDeleted');
|
||
$res .= '</div>';
|
||
return $res;
|
||
|
||
}
|
||
|
||
else {
|
||
$self->lmLog( "Notification $ref deleted for user $uid", 'info' );
|
||
$res .= '<h1 class="ui-widget-header ui-corner-all">'
|
||
. $self->translate('notificationDeleted') . '</h1>';
|
||
return $res;
|
||
}
|
||
|
||
}
|
||
|
||
## @method protected string purge(string id)
|
||
# Purge a deleted session
|
||
# @param id Session identifier
|
||
# @return HTML data
|
||
sub purge {
|
||
my ( $self, $id ) = splice @_;
|
||
my $res;
|
||
|
||
# Purge notification
|
||
my $status = $self->{notifObject}->purge($id);
|
||
|
||
unless ($status) {
|
||
|
||
$self->lmLog( "Notification $id not purged", 'error' );
|
||
$res .= '<h1 class="ui-widget-header ui-corner-all">'
|
||
. $self->translate('error') . '</h1>';
|
||
$res .= '<div class="ui-corner-all ui-widget-content">';
|
||
$res .= $self->translate('notificationNotPurged');
|
||
$res .= '</div>';
|
||
return $res;
|
||
|
||
}
|
||
|
||
else {
|
||
$self->lmLog( "Notification $id purged", 'info' );
|
||
$res .= '<h1 class="ui-widget-header ui-corner-all">'
|
||
. $self->translate('notificationPurged') . '</h1>';
|
||
return $res;
|
||
}
|
||
|
||
}
|
||
|
||
## @method protected string notification()
|
||
# Build notification dump.
|
||
# @return string XML tree
|
||
sub notification {
|
||
my ( $self, $id ) = splice @_;
|
||
my ( $uid, $ref ) = ( $id =~ /([^_]+?)_(.+)/ );
|
||
my ( $n, $res );
|
||
|
||
# Try to read notification
|
||
$n = $self->{notifObject}->_get( $uid, $ref );
|
||
|
||
unless ($n) {
|
||
$self->lmLog( "Notification $ref not found for user $uid", 'error' );
|
||
$res .= '<h1 class="ui-widget-header ui-corner-all">'
|
||
. $self->translate('error') . '</h1>';
|
||
$res .= '<div class="ui-corner-all ui-widget-content">';
|
||
$res .= $self->translate('notificationNotFound');
|
||
$res .= '</div>';
|
||
return $res;
|
||
}
|
||
|
||
# Notification is avalaible, print content
|
||
$res .= '<h1 class="ui-widget-header ui-corner-all">';
|
||
$res .= "Notification $ref";
|
||
$res .= '</h1>';
|
||
|
||
foreach ( keys %$n ) {
|
||
|
||
my $xml = $n->{$_};
|
||
|
||
# Quote HTML
|
||
$xml = htmlquote($xml);
|
||
|
||
# UTF-8
|
||
utf8::decode($xml);
|
||
|
||
# Replace line breaks
|
||
$xml =~ s#\n#<br />#g;
|
||
|
||
# Print XML
|
||
$res .= "<p style=\"text-align:left;\"><tt>$xml</tt></p>";
|
||
|
||
}
|
||
|
||
# Delete button
|
||
$res .= '<div style="text-align:center">';
|
||
$res .=
|
||
"<input type=\"button\" onclick=\"del('$id');\""
|
||
. ' class="ui-state-default ui-corner-all"'
|
||
. " value=\""
|
||
. $self->translate('deleteNotification') . "\" />";
|
||
$res .= '</div>';
|
||
|
||
return $res;
|
||
}
|
||
|
||
## @method protected string notificationDone()
|
||
# Build notification dump.
|
||
# @return string XML tree
|
||
sub notificationDone {
|
||
my ( $self, $id ) = splice @_;
|
||
my ( $n, $res );
|
||
|
||
# Print content
|
||
$res .= '<h1 class="ui-widget-header ui-corner-all">';
|
||
$res .= "Notification " . $self->translate('done');
|
||
$res .= '</h1>';
|
||
$res .= '<p>' . $self->translate('internalReference') . ': ' . $id . '</p>';
|
||
|
||
# Purge button
|
||
$res .= '<div style="text-align:center">';
|
||
$res .=
|
||
"<input type=\"button\" onclick=\"purge('$id');\""
|
||
. ' class="ui-state-default ui-corner-all"'
|
||
. " value=\""
|
||
. $self->translate('purgeNotification') . "\" />";
|
||
$res .= '</div>';
|
||
|
||
return $res;
|
||
}
|
||
|
||
## @method protected string uid()
|
||
# Build single UID tree part
|
||
# @return string XML tree
|
||
sub uid {
|
||
my ( $self, $uid ) = splice @_;
|
||
my ( $byRef, $res );
|
||
|
||
# Parse all notifications
|
||
my $n = $self->{notifObject}->getAll();
|
||
|
||
foreach ( keys %$n ) {
|
||
if ( $n->{$_}->{uid} eq $uid ) {
|
||
push @$byRef, $n->{$_}->{ref};
|
||
}
|
||
}
|
||
|
||
foreach my $ref ( sort @$byRef ) {
|
||
$res .=
|
||
"<li class=\"open\" id=\"uid$ref\"><span onclick=\"displayNotification('${uid}_$ref');\">$ref</span></li>";
|
||
}
|
||
return $res;
|
||
}
|
||
|
||
## @method protected string uidDone()
|
||
# Build single UID tree part
|
||
# @return string XML tree
|
||
sub uidDone {
|
||
my ( $self, $uid ) = splice @_;
|
||
my ( $byRef, $res );
|
||
|
||
# Parse all notifications
|
||
my $n = $self->{notifObject}->getDone();
|
||
|
||
foreach ( keys %$n ) {
|
||
if ( $n->{$_}->{uid} eq $uid ) {
|
||
my $ref = $n->{$_}->{ref};
|
||
$res .=
|
||
"<li class=\"open\" id=\"uid$ref\"><span onclick=\"displayNotificationDone('$_');\">$ref</span></li>";
|
||
}
|
||
}
|
||
|
||
return $res;
|
||
}
|
||
|
||
# Ajax request to list users starting by a letter
|
||
## @method protected string letter()
|
||
# Build letter XML part
|
||
# @return string XML tree
|
||
sub letter {
|
||
my $self = shift;
|
||
my $letter = $self->param('letter');
|
||
my ( $byUid, $res );
|
||
|
||
# Parse all notifications
|
||
my $n = $self->{notifObject}->getAll();
|
||
|
||
foreach ( keys %$n ) {
|
||
$n->{$_}->{uid} =~ /^$letter/ or next;
|
||
$byUid->{ $n->{$_}->{uid} }++;
|
||
}
|
||
|
||
foreach my $uid ( sort keys %$byUid ) {
|
||
$res .= $self->ajaxNode(
|
||
$uid,
|
||
$uid
|
||
. (
|
||
$byUid->{$uid} > 1
|
||
? " <i><u><small>($byUid->{$uid} "
|
||
. (
|
||
$byUid->{$uid} == 1
|
||
? "notification"
|
||
: "notifications"
|
||
)
|
||
. ")</small></u></i>"
|
||
: ''
|
||
),
|
||
"uid=$uid"
|
||
);
|
||
}
|
||
return $res;
|
||
}
|
||
|
||
# Ajax request to list users starting by a letter
|
||
## @method protected string letterDone()
|
||
# Build letter XML part
|
||
# @return string XML tree
|
||
sub letterDone {
|
||
my $self = shift;
|
||
my $letter = $self->param('letterDone');
|
||
my ( $byUid, $res );
|
||
|
||
# Parse all notifications
|
||
my $n = $self->{notifObject}->getDone();
|
||
|
||
foreach ( keys %$n ) {
|
||
$n->{$_}->{uid} =~ /^$letter/ or next;
|
||
$byUid->{ $n->{$_}->{uid} }++;
|
||
}
|
||
|
||
foreach my $uid ( sort keys %$byUid ) {
|
||
$res .= $self->ajaxNode(
|
||
$uid,
|
||
$uid
|
||
. (
|
||
$byUid->{$uid} > 1
|
||
? " <i><u><small>($byUid->{$uid} "
|
||
. (
|
||
$byUid->{$uid} == 1
|
||
? "notification"
|
||
: "notifications"
|
||
)
|
||
. ")</small></u></i>"
|
||
: ''
|
||
),
|
||
"uidDone=$uid"
|
||
);
|
||
}
|
||
return $res;
|
||
}
|
||
|
||
# Ajax request to create a new notification
|
||
## @method protected string newNotif()
|
||
# Create new notification
|
||
# @return string HTML
|
||
sub newNotif {
|
||
my $self = shift;
|
||
my $uid = $self->param('newNotif[uid]');
|
||
my $date = $self->param('newNotif[date]');
|
||
my $ref = $self->param('newNotif[ref]');
|
||
my $condition = $self->param('newNotif[condition]');
|
||
my $xml = $self->param('newNotif[xml]');
|
||
my $res;
|
||
|
||
# Create complete XML
|
||
my $notif = "<?xml version='1.0' encoding='UTF-8' standalone='no'?>\n";
|
||
$notif .= "<root>\n";
|
||
$notif .=
|
||
"<notification uid='$uid' date='$date' reference='$ref' condition='$condition'>\n";
|
||
$notif .= $xml;
|
||
$notif .= "</notification>\n";
|
||
$notif .= "</root>\n";
|
||
|
||
# Add the notification
|
||
my $status = $self->{notifObject}->newNotification($notif);
|
||
|
||
unless ($status) {
|
||
|
||
$self->lmLog( "Notification not created", 'error' );
|
||
$res .= '<h1 class="ui-widget-header ui-corner-all">'
|
||
. $self->translate('error') . '</h1>';
|
||
$res .= '<div class="ui-corner-all ui-widget-content">';
|
||
$res .= $self->translate('notificationNotCreated');
|
||
$res .= '</div>';
|
||
return $res;
|
||
|
||
}
|
||
|
||
else {
|
||
$self->lmLog( "Notification created", 'info' );
|
||
$res .= '<h1 class="ui-widget-header ui-corner-all">'
|
||
. $self->translate('notificationCreated') . '</h1>';
|
||
return $res;
|
||
}
|
||
|
||
}
|
||
|
||
## @fn protected string htmlquote(string s)
|
||
# Change <, > and & to HTML encoded values in the string
|
||
# @param $s HTML string
|
||
# @return HTML string
|
||
sub htmlquote {
|
||
my $s = shift;
|
||
$s =~ s/&/&/g;
|
||
$s =~ s/</</g;
|
||
$s =~ s/>/>/g;
|
||
return $s;
|
||
}
|
||
|
||
## @method private void ajaxnode(string id, string text, string param)
|
||
# Display tree node with Ajax functions inside for opening the node.
|
||
# @param $id HTML id of the element.
|
||
# @param $text text to display
|
||
# @param $param Parameters for the Ajax query
|
||
sub ajaxNode {
|
||
my ( $self, $id, $text, $param ) = @_;
|
||
return
|
||
"<li id=\"$id\"><span>$text</span>\n<ul class=\"ajax\"><li id=\"sub_$id\">{url:$ENV{SCRIPT_NAME}?$param}</li></ul></li>\n";
|
||
}
|
||
|
||
## @method private string _stToStr(string)
|
||
# Transform a utime string into readeable string (ex: "2010-08-18 13:03:13")
|
||
# @return Formated string
|
||
sub _stToStr {
|
||
shift;
|
||
return
|
||
sprintf( '%d-%02d-%02d %d:%02d:%02d', unpack( 'a4a2a2a2a2a2', shift ) );
|
||
}
|
||
|
||
1;
|
||
__END__
|
||
|
||
=encoding utf8
|
||
|
||
=head1 NAME
|
||
|
||
Lemonldap::NG::Manager::Notifications - Perl extension to manage Lemonldap::NG
|
||
notifications
|
||
|
||
=head1 SYNOPSIS
|
||
|
||
#!/usr/bin/perl
|
||
|
||
use strict;
|
||
use Lemonldap::NG::Manager::Notificationss;
|
||
our $cgi ||= Lemonldap::NG::Manager::Notifications->new({
|
||
localStorage => "Cache::FileCache",
|
||
localStorageOptions => {
|
||
'namespace' => 'lemonldap-ng-config',
|
||
'default_expires_in' => 600,
|
||
'directory_umask' => '007',
|
||
'cache_root' => '/tmp',
|
||
'cache_depth' => 5,
|
||
},
|
||
configStorage => $Lemonldap::NG::Common::configStorage,
|
||
configStorage=>{
|
||
type=>'File',
|
||
dirName=>"/tmp/",
|
||
},
|
||
# Optionnal
|
||
protection => 'rule: $uid eq "admin"',
|
||
# Or to use rules from manager
|
||
protection => 'manager',
|
||
# Or just to authenticate without managing authorization
|
||
protection => 'authenticate',
|
||
});
|
||
$cgi->process();
|
||
|
||
=head1 DESCRIPTION
|
||
|
||
Lemonldap::NG::Manager::Notifications provides a web interface to manage
|
||
Lemonldap::NG notifications.
|
||
|
||
It inherits from L<Lemonldap::NG::Handler::CGI>, so see this manpage to
|
||
understand how arguments passed to the constructor.
|
||
|
||
=head1 SEE ALSO
|
||
|
||
L<Lemonldap::NG::Handler::CGI>, L<Lemonldap::NG::Manager>
|
||
|
||
=head1 AUTHOR
|
||
|
||
=over
|
||
|
||
=item Clement Oudot, E<lt>clem.oudot@gmail.comE<gt>
|
||
|
||
=item Fran<61>ois-Xavier Deltombe, E<lt>fxdeltombe@gmail.com.E<gt>
|
||
|
||
=item Xavier Guimard, E<lt>x.guimard@free.frE<gt>
|
||
|
||
=item Sandro Cazzaniga, E<lt>cazzaniga.sandro@gmail.comE<gt>
|
||
|
||
=back
|
||
|
||
=head1 BUG REPORT
|
||
|
||
Use OW2 system to report bug or ask for features:
|
||
L<http://jira.ow2.org>
|
||
|
||
=head1 DOWNLOAD
|
||
|
||
Lemonldap::NG is available at
|
||
L<http://forge.objectweb.org/project/showfiles.php?group_id=274>
|
||
|
||
=head1 COPYRIGHT AND LICENSE
|
||
|
||
=over
|
||
|
||
=item Copyright (C) 2013 by Xavier Guimard, E<lt>x.guimard@free.frE<gt>
|
||
|
||
=item Copyright (C) 2012 by Sandro Cazzaniga, E<lt>cazzaniga.sandro@gmail.comE<gt>
|
||
|
||
=item Copyright (C) 2012, 2013 by Fran<61>ois-Xavier Deltombe, E<lt>fxdeltombe@gmail.com.E<gt>
|
||
|
||
=item Copyright (C) 2011, 2012 by Clement Oudot, E<lt>clem.oudot@gmail.comE<gt>
|
||
|
||
=back
|
||
|
||
This library is free software; you can redistribute it and/or modify
|
||
it under the terms of the GNU General Public License as published by
|
||
the Free Software Foundation; either version 2, or (at your option)
|
||
any later version.
|
||
|
||
This program is distributed in the hope that it will be useful,
|
||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
GNU General Public License for more details.
|
||
|
||
You should have received a copy of the GNU General Public License
|
||
along with this program. If not, see L<http://www.gnu.org/licenses/>.
|
||
|
||
=cut
|