1 package corefunctions;
2 use Exporter;
3 @ISA = qw(Exporter);
4 my @events = qw(get_events registered set_activated_for_installation new_ldap_config new_key generate_hw_digest detect_hardware reboot halt reinstall softupdate);
5 @EXPORT = @events;
7 use strict;
8 use warnings;
9 use Data::Dumper;
10 use Fcntl;
11 use GOSA::GosaSupportDaemon;
12 use File::Basename;
15 my ($ldap_enabled, $ldap_config, $pam_config, $nss_config);
18 my %cfg_defaults = (
19 "client" => {
20 "ldap" => [\$ldap_enabled, 1],
21 "ldap_config" => [\$ldap_config, "/etc/ldap/ldap.conf"],
22 "pam_config" => [\$pam_config, "/etc/pam_ldap.conf"],
23 "nss_config" => [\$nss_config, "/etc/libnss_ldap.conf"],
24 },
25 );
27 BEGIN {}
29 END {}
31 ### Start ######################################################################
33 &main::read_configfile($main::cfg_file, %cfg_defaults);
36 my $server_address = $main::server_address;
37 my $server_key = $main::server_key;
38 my $client_mac_address = $main::client_mac_address;
40 sub get_events {
41 return \@events;
42 }
44 sub daemon_log {
45 my ($msg, $level) = @_ ;
46 &main::daemon_log($msg, $level);
47 return;
48 }
51 sub reboot {
52 my ($msg, $msg_hash) = @_ ;
53 &main::daemon_log("got reboot-msg: $msg", 5);
54 return;
55 }
58 sub halt {
59 my ($msg, $msg_hash) = @_ ;
61 &main::daemon_log("got halt-msg: $msg", 5);
62 return;
63 }
66 sub reinstall {
67 my ($msg, $msg_hash) = @_ ;
68 &main::daemon_log("got reinstall-msg: $msg", 5);
70 return;
71 }
74 sub softupdate {
75 my ($msg, $msg_hash) = @_ ;
76 &main::daemon_log("got softupdate-msg: $msg", 5);
78 return;
79 }
82 sub registered {
83 my ($msg, $msg_hash) = @_ ;
85 my $header = @{$msg_hash->{'header'}}[0];
86 if( $header eq "registered" ) {
87 my $source = @{$msg_hash->{'source'}}[0];
88 &main::daemon_log("registration at $source",1);
89 }
91 # set registration_flag to true
92 my $out_hash = &create_xml_hash("registered", $main::client_address, $main::server_address);
93 my $out_msg = &create_xml_string($out_hash);
94 return $out_msg;
96 }
99 sub set_activated_for_installation {
100 my ($msg, $msg_hash) = @_ ;
101 my $header = @{$msg_hash->{'header'}}[0];
102 my $target = @{$msg_hash->{'target'}}[0];
103 my $source = @{$msg_hash->{'source'}}[0];
105 my $Datei = "/tmp/set_activated_for_installation";
106 open(DATEI, ">$Datei");
107 print DATEI "set_activated_for_installation\n";
108 close DATEI;
110 return;
111 }
114 sub server_leaving {
115 my ($msg_hash) = @_ ;
116 my $source = @{$msg_hash->{'source'}}[0];
117 my $header = @{$msg_hash->{'header'}}[0];
119 daemon_log("gosa-si-server $source is going down, cause registration procedure", 1);
120 $main::server_address = "none";
121 $main::server_key = "none";
123 # reinitialization of default values in config file
124 &main::read_configfile;
126 # registrated at new daemon
127 &main::register_at_server();
129 return;
130 }
133 sub new_ldap_config {
134 my ($msg, $msg_hash) = @_ ;
136 if( $ldap_enabled != 1 ) {
137 return;
138 }
140 my $element;
141 my @ldap_uris;
142 my $ldap_base;
143 my @ldap_options;
144 my @pam_options;
145 my @nss_options;
146 my $goto_admin;
147 my $goto_secret;
148 my $admin_base= "";
149 my $department= "";
150 my $unit_tag;
152 # Transform input into array
153 while ( my ($key, $value) = each(%$msg_hash) ) {
154 if ($key =~ /^(source|target|header)$/) {
155 next;
156 }
158 foreach $element (@$value) {
159 if ($key =~ /^ldap_uri$/) {
160 push (@ldap_uris, $element);
161 next;
162 }
163 if ($key =~ /^ldap_base$/) {
164 $ldap_base= $element;
165 next;
166 }
167 if ($key =~ /^goto_admin$/) {
168 $goto_admin= $element;
169 next;
170 }
171 if ($key =~ /^goto_secret$/) {
172 $goto_secret= $element;
173 next;
174 }
175 if ($key =~ /^ldap_cfg$/) {
176 push (@ldap_options, "$element");
177 next;
178 }
179 if ($key =~ /^pam_cfg$/) {
180 push (@pam_options, "$element");
181 next;
182 }
183 if ($key =~ /^nss_cfg$/) {
184 push (@nss_options, "$element");
185 next;
186 }
187 if ($key =~ /^admin_base$/) {
188 $admin_base= $element;
189 next;
190 }
191 if ($key =~ /^department$/) {
192 $department= $element;
193 next;
194 }
195 if ($key =~ /^unit_tag$/) {
196 $unit_tag= $element;
197 next;
198 }
199 }
200 }
202 # Unit tagging enabled?
203 if (defined $unit_tag){
204 push (@pam_options, "pam_filter gosaUnitTag=$unit_tag");
205 push (@nss_options, "nss_base_passwd $admin_base?sub?gosaUnitTag=$unit_tag");
206 push (@nss_options, "nss_base_group $admin_base?sub?gosaUnitTag=$unit_tag");
207 }
209 # Setup ldap.conf
210 my $file1;
211 my $file2;
212 open(file1, "> $ldap_config");
213 print file1 "# This file was automatically generated by gosa-si-client. Do not change.\n";
214 print file1 "URI";
215 foreach $element (@ldap_uris) {
216 print file1 " $element";
217 }
218 print file1 "\nBASE $ldap_base\n";
219 foreach $element (@ldap_options) {
220 print file1 "$element\n";
221 }
222 close (file1);
223 daemon_log("wrote $ldap_config", 5);
225 # Setup pam_ldap.conf / libnss_ldap.conf
226 open(file1, "> $pam_config");
227 open(file2, "> $nss_config");
228 print file1 "# This file was automatically generated by gosa-si-client. Do not change.\n";
229 print file2 "# This file was automatically generated by gosa-si-client. Do not change.\n";
230 print file1 "uri";
231 print file2 "uri";
232 foreach $element (@ldap_uris) {
233 print file1 " $element";
234 print file2 " $element";
235 }
236 print file1 "\nbase $ldap_base\n";
237 print file2 "\nbase $ldap_base\n";
238 foreach $element (@pam_options) {
239 print file1 "$element\n";
240 }
241 foreach $element (@nss_options) {
242 print file2 "$element\n";
243 }
244 close (file2);
245 daemon_log("wrote $nss_config", 5);
246 close (file1);
247 daemon_log("wrote $pam_config", 5);
249 # Create goto.secrets if told so - for compatibility reasons
250 if (defined $goto_admin){
251 open(file1, "> /etc/goto/secret");
252 close(file1);
253 chown(0,0, "/etc/goto/secret");
254 chmod(0600, "/etc/goto/secret");
255 open(file1, "> /etc/goto/secret");
256 print file1 "GOTOADMIN=\"$goto_admin\"\nGOTOSECRET=\"$goto_secret\"\n";
257 close(file1);
258 daemon_log("wrote /etc/goto/secret", 5);
259 }
263 # Write shell based config
264 my $cfg_name= dirname($ldap_config)."/ldap-shell.conf";
265 open(file1, "> $cfg_name");
266 print file1 "LDAP_BASE=\"$ldap_base\"\n";
267 print file1 "ADMIN_BASE=\"$admin_base\"\n";
268 print file1 "DEPARTMENT=\"$department\"\n";
269 print file1 "UNIT_TAG=\"".(defined $unit_tag ? "$unit_tag" : "")."\"\n";
270 print file1 "UNIT_TAG_FILTER=\"".(defined $unit_tag ? "(gosaUnitTag=$unit_tag)" : "")."\"\n";
271 close(file1);
272 daemon_log("wrote $cfg_name", 5);
274 return;
276 }
278 sub new_key {
279 # my ($msg_hash) = @_ ;
280 my $new_server_key = &main::create_passwd();
282 my $out_hash = &create_xml_hash("new_key", $main::client_address, $main::server_address, $new_server_key);
283 my $out_msg = &create_xml_string($out_hash);
284 return $out_msg;
285 }
289 sub detect_hardware {
290 my $hwinfo= `which hwinfo`;
291 chomp $hwinfo;
293 if (!(defined($hwinfo) && length($hwinfo) > 0)) {
294 &main::daemon_log("ERROR: hwinfo was not found in \$PATH! Hardware detection will not work!", 1);
295 return;
296 }
298 my $result= {
299 macAddress => $client_mac_address,
300 gotoXMonitor => "",
301 gotoXDriver => "",
302 gotoXMouseType => "",
303 gotoXMouseport => "",
304 gotoXkbModel => "",
305 gotoXHsync => "",
306 gotoXVsync => "",
307 gotoXResolution => "",
308 ghUsbSupport => "",
309 gotoSndModule => "",
310 ghGfxAdapter => "",
311 ghNetNic => "",
312 ghSoundAdapter => "",
313 ghMemSize => "",
314 ghCpuType => "",
315 gotoModules => [],
316 ghIdeDev => [],
317 ghScsiDev => [],
318 };
320 &main::daemon_log("Starting hardware detection", 4);
321 my $gfxcard= `$hwinfo --gfxcard`;
322 my $primary_adapter= $1 if $gfxcard =~ /^Primary display adapter:\s#(\d+)\n/m;
323 if(defined($primary_adapter)) {
324 ($result->{ghGfxAdapter}, $result->{gotoXDriver}) = ($1,$2) if
325 $gfxcard =~ /$primary_adapter:.*?Model:\s\"([^\"]*)\".*?Server Module:\s(\w*).*?\n\n/s;
326 }
327 my $monitor= `$hwinfo --monitor`;
328 my $primary_monitor= $1 if $monitor =~ /^(\d*):.*/m;
329 if(defined($primary_monitor)) {
330 ($result->{gotoXMonitor}, $result->{gotoXResolution}, $result->{gotoXVsync}, $result->{gotoXHsync})= ($1,$2,$3,$4) if
331 $monitor =~ /$primary_monitor:\s.*?Model:\s\"(.*?)\".*?Max\.\sResolution:\s([0-9x]*).*?Vert\.\sSync\sRange:\s([\d\-]*)\sHz.*?Hor\.\sSync\sRange:\s([\d\-]*)\skHz.*/s;
332 }
334 if(length($result->{gotoXHsync}) == 0) {
335 # set default values
336 $result->{gotoXHsync} = "30+50";
337 $result->{gotoXVsync} = "30+90";
338 }
340 my $mouse= `$hwinfo --mouse`;
341 my $primary_mouse= $1 if $mouse =~ /^(\d*):.*/m;
342 if(defined($primary_mouse)) {
343 ($result->{gotoXMouseport}, $result->{gotoXMouseType}) = ($1,$2) if
344 $mouse =~ /$primary_mouse:\s.*?Device\sFile:\s(.*?)\s.*?XFree86\sProtocol:\s(.*?)\n.*?/s;
345 }
347 my $sound= `$hwinfo --sound`;
348 my $primary_sound= $1 if $sound =~ /^(\d*):.*/m;
349 if(defined($primary_sound)) {
350 ($result->{ghSoundAdapter}, $result->{gotoSndModule})= ($1,$2) if
351 $sound =~ /$primary_sound:\s.*?Model:\s\"(.*?)\".*?Driver\sModules:\s\"(.*?)\".*/s;
352 }
354 my $netcard= `hwinfo --netcard`;
355 my $primary_netcard= $1 if $netcard =~ /^(\d*):.*/m;
356 if(defined($primary_netcard)) {
357 $result->{ghNetNic}= $1 if $netcard =~ /$primary_netcard:\s.*?Model:\s\"(.*?)\".*/s;
358 }
360 my $keyboard= `hwinfo --keyboard`;
361 my $primary_keyboard= $1 if $keyboard =~ /^(\d*):.*/m;
362 if(defined($primary_keyboard)) {
363 $result->{gotoXkbModel}= $1 if $keyboard =~ /$primary_keyboard:\s.*?XkbModel:\s(.*?)\n.*/s;
364 }
366 $result->{ghCpuType}= sprintf "%s / %s - %s",
367 `cat /proc/cpuinfo` =~ /.*?vendor_id\s+:\s(.*?)\n.*?model\sname\s+:\s(.*?)\n.*?cpu\sMHz\s+:\s(.*?)\n.*/s;
368 $result->{ghMemSize}= $1 if `cat /proc/meminfo` =~ /^MemTotal:\s+(.*?)\skB.*/s;
370 my @gotoModules=();
371 for my $line(`lsmod`) {
372 if (($line =~ /^Module.*$/) or ($line =~ /^snd.*$/)) {
373 next;
374 } else {
375 push @gotoModules, $1 if $line =~ /^(\w*).*$/
376 }
377 }
378 my %seen = ();
380 # Remove duplicates and save
381 push @{$result->{gotoModules}}, grep { ! $seen{$_} ++ } @gotoModules;
383 $result->{ghUsbSupport} = (-d "/proc/bus/usb")?"true":"false";
385 foreach my $device(`hwinfo --ide` =~ /^.*?Model:\s\"(.*?)\".*$/mg) {
386 push @{$result->{ghIdeDev}}, $device;
387 }
389 foreach my $device(`hwinfo --scsi` =~ /^.*?Model:\s\"(.*?)\".*$/mg) {
390 push @{$result->{ghScsiDev}}, $device;
391 }
393 &main::daemon_log("Hardware detection done!", 4);
395 return &send_msg_hash2address(
396 &create_xml_hash("detected_hardware", $main::client_address, $server_address, $result),
397 $server_address,
398 $server_key,
399 );
400 }
403 sub ping {
404 my ($msg, $msg_hash) = @_ ;
405 my $header = @{$msg_hash->{'header'}}[0];
406 my $source = @{$msg_hash->{'source'}}[0];
407 my $target = @{$msg_hash->{'target'}}[0];
409 # switch target and source and send msg back
410 my $out_hash = &create_xml_hash("got_ping", $target, $source);
411 my $out_msg = &create_xml_string($out_hash);
412 return $out_msg;
414 }
417 1;