mirror of
https://gitlab.com/t6353/sharee.bike.git
synced 2024-06-28 17:06:34 +02:00
28 lines
330 B
Perl
28 lines
330 B
Perl
|
package Mlogic;
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use CGI::Carp qw(fatalsToBrowser);
|
||
|
|
use CGI ':standard';
|
||
|
|
use Lib::Config;
|
||
|
|
use Mod::Buttons;
|
||
|
|
use Mod::Libenz;
|
||
|
|
use Mod::Libenzdb;
|
||
|
|
use Mod::Auth;
|
||
|
|
use POSIX;
|
||
|
|
|
||
|
|
sub new {
|
||
|
|
my $class = shift;
|
||
|
|
my $self = {};
|
||
|
|
bless($self,$class);
|
||
|
|
return $self;
|
||
|
|
}
|
||
|
|
|
||
|
|
#Template
|
||
|
|
sub tpl(){
|
||
|
|
my $self = shift;
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|
||
|
|
|
||
|
|
|