mirror of
https://gitlab.com/t6353/sharee.bike.git
synced 2024-09-29 18:36:28 +02:00
25 lines
286 B
Perl
Executable file
25 lines
286 B
Perl
Executable file
package Config;
|
|
|
|
#Deprecated config file
|
|
#Please use shareeconf/*
|
|
|
|
use strict;
|
|
use warnings;
|
|
use CGI;
|
|
my $q = new CGI;
|
|
|
|
sub new {
|
|
my $class = shift;
|
|
my $self = {};
|
|
bless($self,$class);
|
|
return $self;
|
|
}
|
|
|
|
sub envonline(){
|
|
my $self = shift;
|
|
my %varenv = ();
|
|
return %varenv;
|
|
}
|
|
|
|
1;
|
|
|