mirror of
https://gitlab.com/t6353/sharee.bike.git
synced 2024-09-28 18:16:26 +02:00
26 lines
286 B
Perl
26 lines
286 B
Perl
|
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;
|
||
|
|
|