Viewing file: libdefoma-user2.pl (927 B) -rw-r--r-- Select action/file-type: (+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) |
sub user_update { my @apps = &Debian::Defoma::Configure::get_apps();
unless (@apps) { user_update_message("No application is ready for userlevel font ", "autoconfiguration."); return; } user_update_message("Following applications are ready for userlevel font ", "autoconfiguration: @apps."); foreach my $app (@apps) { my $appinfo = &Debian::Defoma::Configure::get_app_info($app);
my $ch = $appinfo->{script_change}; if ($ch eq 'new') { my $r = user_update_question(" $app is not configured for ", USERLOGIN, ". ", "Do you want to configure? ");
if ($r) { user_update_invoke("update", $app); } } elsif ($ch eq 'updated') { user_update_invoke("update", $app); } elsif ($ch eq 'obsoleted') { user_update_invoke("purge", $app); } elsif ($ch eq 'same') { user_update_message("font configuration for $app is up-to-date."); } } }
1;
|