perfsonar development work

Author: dfn.calim
Date: 2010-11-15 14:53:30 +0000 (Mon, 15 Nov 2010)
New Revision: 668

Modified:
   branches/perfsonar-oppd-new-architect/bin/oppd.pl
Log:
Fix shutdown problem with logging system

Modified: branches/perfsonar-oppd-new-architect/bin/oppd.pl
===================================================================
--- branches/perfsonar-oppd-new-architect/bin/oppd.pl   2010-11-12 11:25:37 
UTC (rev 667)
+++ branches/perfsonar-oppd-new-architect/bin/oppd.pl   2010-11-15 14:53:30 
UTC (rev 668)
@@ -321,16 +321,6 @@
   }
 }
 
-unless (
-  defined($Config{service}) && ref($Config{service}) eq "HASH"
-  && %{$Config{service}}
-) {
-  pod2usage(
-    "No services specified in config file"
-  );
-}
-%services = %{$Config{service}};
-
 
###################################################################################################################
 #Begin new include for LOG4Perl
 
##################################################################################################################
@@ -385,9 +375,6 @@
     $logger_opts{file} = ">>$logfile"; #Append mode
 }
 
-    
-
-
 Log::Log4perl->easy_init( \%logger_opts );
 my $logger = get_logger( "perSONAR-oppd" );
 
@@ -426,6 +413,18 @@
     }; # End eval
   die "Cannot write to syslog: 
$@\n"
 if $@;
 }
+############################################################################################
+# Look if a service in config is available
+############################################################################################
+unless (
+  defined($Config{service}) && ref($Config{service}) eq "HASH"
+  && %{$Config{service}}
+) {
+  pod2usage(
+    "No services specified in config file"
+  );
+}
+%services = %{$Config{service}};
 
 # More flexible die:
 # Put error into Log and afterwards die with same message.