Просмотр исходного кода

Print which config file we are using

Morten Brix Pedersen 25 лет назад
Родитель
Сommit
5e226a2555
1 измененных файлов с 2 добавлено и 1 удалено
  1. 2 1
      pisg.pl

+ 2 - 1
pisg.pl

@@ -105,6 +105,7 @@ $normalline, $actionline, $thirdline, @ignore, $line, $processtime, @topics,
 
 sub main
 {
+    print "pisg $config->{version} - Perl IRC Statistics Generator\n\n";
     init_config();      # Init config. (Aliases, ignores, other options etc.)
     init_words();	# Init words. (Foulwords etc)
     init_pisg();        # Init commandline arguments and other things
@@ -129,7 +130,6 @@ sub main
 
 sub init_pisg
 {
-    print "pisg $config->{version} - Perl IRC Statistics Generator\n\n";
 
     get_language_templates();
 
@@ -203,6 +203,7 @@ sub init_config
     get_cmdlineoptions();
 
     if (open(CONFIG, $config->{configfile})) {
+        print "Using config file: $config->{configfile}\n";
 
         my $lineno = 0;
         while (<CONFIG>)