#!/usr/bin/perl

use strict;

our $confdir="/home/pasztor/progmodpeldak";
our $defconf;

sub loadConfig {
	my $conf=shift;
	if (defined($conf)) {
		if ( $conf =~ m/\./ ) {
			print "Hibás konfignév\n";
			return undef;
		} elsif ( -r $confdir."/".$conf and -f $confdir."/".$conf) {
			return do $confdir."/".$conf;
		} else {
			print "nem beolvasható a konfigfájl\n";
			return undef;
		}
	} elsif (defined($defconf)) {
		if ( -r $confdir."/".$defconf and -f $confdir."/".$defconf) {
			return do $confdir."/".$defconf;
		} else {
			print "nem beolvasható a defaultkonfigfájl\n";
			return undef;
		}
	} else {
		print "Nincs konfigfájl\n";
		return undef;
	}
}

if (loadConfig("xyz")) {
	print "Sikeresen beolvasva a konfig\n";
} else {
	print "Hiba a konfig beolvasásakor\n";
}
