mirror of
https://gitlab.com/t6353/sharee.bike.git
synced 2024-06-25 07:36:37 +02:00
26 lines
286 B
Perl
Executable file
26 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;
|
|
|