1package testopts; 2 3use strict; 4use Exporter; 5use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); 6 7$VERSION = 1.00; 8@ISA = qw(Exporter); 9@EXPORT = (); 10@EXPORT_OK = qw(get_testopts); 11 12sub get_testopts { 13 my $set={ 14 action_mouseover => 0, 15 cancel_before_global_timeout => 0, 16 checkresults_dir => "'./tmp/checkresults'", 17 child_interval => "0.0", 18 cmdfile_update_interval => 86400, 19 collapse => 1, 20 config_dir => "'./tmp/config'", 21 cumulate_max_rows => 5, 22 cumulate_ignore_zero => 1, 23 dont_be_paranoid => 1, 24 empty_output_is_unknown => 1, 25 exec_open3 => 0, 26 extinfo_in_status => "0", 27 extended_perfdata => "0", 28 feed_passive_autocreate => "1", 29 feed_passive_dir_permissions => "1777", 30 feed_passive_dir => "'./tmp/feed_passive'", 31 file_extension => "cmd", 32 #HOSTADDRESS => "127.0.0.1", 33 #HOSTNAME => "localhost", 34 ignore_missing_cmd_file => 0, 35 illegal_chars => " 36", 37 image_path => "'/nagios/images'", 38 indent => "' '", 39 indent_label => 1, 40 libexec => "'@libexecdir@'", 41 livestatus => "'@livestatus@'", 42 pnp_version => "0.6", 43 no_checks_rc => 3, 44 notes_url => "", 45 objects_cache => "'./objects.cache'", 46 objects_cache_delimiter => ",", 47 perfdata_pass_through => 0, 48 persistent => 0, 49 plugin_path => "'@libexecdir@'", 50 pnp_url => "'/pnp4nagios'", 51 report => 13, 52 send_nsca => "'@sbindir@/send_nsca'", 53 send_nsca_cfg => "'@sysconfdir@/send_nsca.cfg'", 54 send_nsca_srv => "localhost", 55 send_nsca_port => 5667, 56 send_nsca_timeout => 10, 57 send_nsca_delim => "';'", 58 signal_rc => 3, 59 loose_perfdata => "1", 60 snmp_community => "public", 61 snmp_port => "161", 62 status_dat => "'./status.dat'", 63 tag_notes_link => "", 64 target => "'_self'", 65 test => 0, 66 timeout => 10, 67 TIMEOUT => 60, 68 tmp_dir => "'./tmp'", 69 tmp_etc => "'./tmp/etc'", 70 tmp_dir_permissions => "1777", 71 verbose => 0, 72 eml_elements => "'name,rc,output,error,plugin,command,performance,starttime,endtime,runtime,type'", 73 }; 74 75 my $testopts=""; 76 foreach my $key (sort keys %{$set}) { 77 $testopts.=" -s $key=$set->{$key}"; 78 } 79 return $testopts; 80} 811; 82