seasharp
/
anvil
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* Fixed bad calls to $an->_hostname and $an->_short_hostname.

Browse Source 
Signed-off-by: Digimer <digimer@alteeve.ca>
main
Digimer 8 years ago
parent a932b44d28
commit 4aff8a1722
2 changed files with 5 additions and 5 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 8
      AN/Tools/Database.pm
  2. 2
      AN/Tools/System.pm

8
AN/Tools/Database.pm
Unescape View File

@ -1615,7 +1615,7 @@ sub locking
}}); }});
# These are used to ID this lock. # These are used to ID this lock.
my $source_name = $an->hostname; my $source_name = $an->_hostname;
my $source_uuid = $an->data->{sys}{host_uuid}; my $source_uuid = $an->data->{sys}{host_uuid};
$an->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { $an->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
source_name => $source_name, source_name => $source_name,
@ -1680,7 +1680,7 @@ sub locking
}}); }});
# Log that the lock has been released. # Log that the lock has been released.
$an->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "log_0039", variables => { host => $an->hostname }}); $an->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "log_0039", variables => { host => $an->_hostname }});
} }
$an->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { set => $set }}); $an->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { set => $set }});
@ -1710,7 +1710,7 @@ sub locking
}}); }});
# Log that we've renewed the lock. # Log that we've renewed the lock.
$an->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "log_0044", variables => { host => $an->hostname }}); $an->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "log_0044", variables => { host => $an->_hostname }});
$an->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { set => $set }}); $an->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { set => $set }});
return($set); return($set);
@ -1799,7 +1799,7 @@ sub locking
}}); }});
# Log that we've got the lock. # Log that we've got the lock.
$an->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "log_0045", variables => { host => $an->hostname }}); $an->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "log_0045", variables => { host => $an->_hostname }});
} }
} }

2
AN/Tools/System.pm
Unescape View File

@ -376,7 +376,7 @@ sub ping
my $output = ""; my $output = "";
# If the 'target' is set, we'll call over SSH unless 'target' is 'local' or our hostname. # If the 'target' is set, we'll call over SSH unless 'target' is 'local' or our hostname.
if (($target) && ($target ne "local") && ($target ne $an->hostname) && ($target ne $an->short_hostname)) if (($target) && ($target ne "local") && ($target ne $an->_hostname) && ($target ne $an->_short_hostname))
{ {
### Remote calls ### Remote calls
$output = $an->System->remote_call({ $output = $an->System->remote_call({

Write Preview
Loading…
Cancel
Save