You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
106 lines
3.3 KiB
106 lines
3.3 KiB
diff -uNr a/sap_redhat_cluster_connector-6353d27/sap_redhat_cluster_connector b/sap_redhat_cluster_connector-6353d27/sap_redhat_cluster_connector |
|
--- a/sap_redhat_cluster_connector-6353d27/sap_redhat_cluster_connector 2018-01-23 10:15:48.167424070 +0100 |
|
+++ b/sap_redhat_cluster_connector-6353d27/sap_redhat_cluster_connector 2018-01-22 10:19:06.001422855 +0100 |
|
@@ -41,6 +41,11 @@ |
|
my $logident = "sap_redhat_cluster_connector"; |
|
my $logoptions = "pid"; |
|
my $logfacility = "LOG_USER"; |
|
+my $protocolVersion=1; |
|
+my $haProd="RHEL HA add-on"; |
|
+my $haProdSAP="sap_redhat_cluster_connector"; |
|
+my $haProdDoc="https://access.redhat.com/solutions/963123"; |
|
+ |
|
# |
|
# open syslog |
|
# |
|
@@ -54,9 +59,10 @@ |
|
where cmd could be: |
|
help |
|
init |
|
- cpa --res RES --act ACT |
|
- lsr --out FILE --sid SID --ino INO | --dbhost HOST --dbtype TYPE |
|
+ gvi --out FILE |
|
+ cpa --res RES --act ACT |
|
fra --res RES --act ACT [ --nod NODE ] |
|
+ lsr --out FILE --sid SID --ino INO | --dbhost HOST --dbtype TYPE |
|
lsn --out FILE --res RES |
|
"; |
|
} |
|
@@ -110,7 +116,7 @@ |
|
|
|
sub fire_resource_action { |
|
my ($rsc, $act, $nod) = ("", "", ""); |
|
- ($rsc, $act, $nod) = @_; |
|
+ my ($rsc, $act, $nod) = @_; |
|
my $rc=0; |
|
my $sysconfig = "/etc/sysconfig/sap_redhat_cluster_connector"; |
|
$nowstring = localtime; |
|
@@ -349,10 +355,6 @@ |
|
printf "%s : lsn()\n", $nowstring; |
|
# TODO: check implemented action |
|
############################################################################################### |
|
- ############################################################################################### |
|
- ############################################################################################### |
|
- ############################################################################################### |
|
- ############################################################################################### |
|
# |
|
# 1. GET HOSTNAME WHERE FUNCTION WAS CALLED |
|
# |
|
@@ -452,6 +454,26 @@ |
|
return $rc; |
|
} |
|
|
|
+sub get_version_info($) |
|
+{ |
|
+ my ($outfile, $resource) = @_; |
|
+ my $rc=0; |
|
+ $nowstring = localtime; |
|
+ printf "%s : gvi()\n", $nowstring; |
|
+ if ( $outfile ne "" ) { |
|
+ #HASCRIPTCO-VERS |
|
+ ##HAPROD |
|
+ ##HAPROD-SAP |
|
+ ##HAPROD-DOC |
|
+ open OUTFILE, ">$outfile"; |
|
+ syslog("LOG_INFO", "gvi result: %s\n%s\n%s\n%s\n", $protocolVersion, $haProd, $haProdSAP, $haProdDoc); |
|
+ printf OUTFILE "%s\n%s\n%s\n%s\n", $protocolVersion, $haProd, $haProdSAP, $haProdDoc; |
|
+ close OUTFILE; |
|
+ } else { |
|
+ printf "%s\n%s\n%s\n%s\n", $protocolVersion, $haProd, $haProdSAP, $haProdDoc; |
|
+ } |
|
+ return $rc; |
|
+} |
|
|
|
# |
|
# "main" |
|
@@ -492,7 +514,6 @@ |
|
syslog("LOG_INFO", "lsr call (out=%s,sid=%s,ino=%s)", $out, $sid, $ino); |
|
$return_code=list_sap_resources($out, $sid, $ino); |
|
|
|
- |
|
} elsif ( $cmd eq "fra" ) { |
|
open($DEBUG, ">>$logident" . ".log"); |
|
*STDOUT=*$DEBUG; |
|
@@ -518,6 +539,14 @@ |
|
syslog("LOG_INFO", "lsn call (out=%s,res=%s)", $out, $res); |
|
$return_code=list_sap_nodes($out, $res); |
|
|
|
+ } elsif ( $cmd eq "gvi" ) { |
|
+ open($DEBUG, ">>$logident" . ".log"); |
|
+ *STDOUT=*$DEBUG; |
|
+ $result = GetOptions ("out=s" => \$out, |
|
+ ) && |
|
+ checkavail(($out)) || paramproblem(); |
|
+ syslog("LOG_INFO", "gvi call (out=%s)", $out); |
|
+ $return_code=get_version_info($out); |
|
|
|
} else { |
|
open($DEBUG, ">>$logident" . ".log"); |
|
@@ -530,7 +559,6 @@ |
|
paramproblem() |
|
} |
|
|
|
- syslog("LOG_INFO", "TEST END"); |
|
closelog(); |
|
exit $return_code; |
|
#
|
|
|