From 583898087349ff1d35dd481ddc1ebd95fa096ae8 Mon Sep 17 00:00:00 2001 From: Dan Scott Date: Fri, 16 Nov 2012 10:36:28 -0500 Subject: [PATCH] Whitespace in OpenSRF/System.pm Spaces not tabs. Signed-off-by: Dan Scott --- src/perl/lib/OpenSRF/System.pm | 42 +++++++++++++++++----------------- 1 file changed, 21 insertions(+), 21 deletions(-) diff --git a/src/perl/lib/OpenSRF/System.pm b/src/perl/lib/OpenSRF/System.pm index e26579b..7eb7120 100644 --- a/src/perl/lib/OpenSRF/System.pm +++ b/src/perl/lib/OpenSRF/System.pm @@ -16,8 +16,8 @@ use OpenSRF::Server; my $bootstrap_config_file; sub import { - my( $self, $config ) = @_; - $bootstrap_config_file = $config; + my( $self, $config ) = @_; + $bootstrap_config_file = $config; } $| = 1; @@ -25,16 +25,16 @@ $| = 1; sub DESTROY {} sub load_bootstrap_config { - return if OpenSRF::Utils::Config->current; + return if OpenSRF::Utils::Config->current; die "Please provide a bootstrap config file to OpenSRF::System\n" unless $bootstrap_config_file; - OpenSRF::Utils::Config->load(config_file => $bootstrap_config_file); - OpenSRF::Utils::JSON->register_class_hint(name => "OpenSRF::Application", hint => "method", type => "hash"); - OpenSRF::Transport->message_envelope("OpenSRF::Transport::SlimJabber::MessageWrapper"); - OpenSRF::Transport::PeerHandle->set_peer_client("OpenSRF::Transport::SlimJabber::PeerConnection"); - OpenSRF::Application->server_class('client'); + OpenSRF::Utils::Config->load(config_file => $bootstrap_config_file); + OpenSRF::Utils::JSON->register_class_hint(name => "OpenSRF::Application", hint => "method", type => "hash"); + OpenSRF::Transport->message_envelope("OpenSRF::Transport::SlimJabber::MessageWrapper"); + OpenSRF::Transport::PeerHandle->set_peer_client("OpenSRF::Transport::SlimJabber::PeerConnection"); + OpenSRF::Application->server_class('client'); # Read in a shared portion of the config file # for later use in log parameter redaction $OpenSRF::Application::shared_conf = OpenSRF::Utils::Config->load( @@ -49,28 +49,28 @@ sub load_bootstrap_config { # Bootstraps a single client connection. # named params are 'config_file' and 'client_name' sub bootstrap_client { - my $self = shift; + my $self = shift; - my $con = OpenSRF::Transport::PeerHandle->retrieve; + my $con = OpenSRF::Transport::PeerHandle->retrieve; return if $con and $con->tcp_connected; - my %params = @_; + my %params = @_; - $bootstrap_config_file = - $params{config_file} || $bootstrap_config_file; + $bootstrap_config_file = + $params{config_file} || $bootstrap_config_file; - my $app = $params{client_name} || "client"; + my $app = $params{client_name} || "client"; - load_bootstrap_config(); - OpenSRF::Utils::Logger::set_config(); - OpenSRF::Transport::PeerHandle->construct($app); + load_bootstrap_config(); + OpenSRF::Utils::Logger::set_config(); + OpenSRF::Transport::PeerHandle->construct($app); } sub connected { - if (my $con = OpenSRF::Transport::PeerHandle->retrieve) { - return 1 if $con->tcp_connected; - } - return 0; + if (my $con = OpenSRF::Transport::PeerHandle->retrieve) { + return 1 if $con->tcp_connected; + } + return 0; } sub run_service { -- 2.43.2