Lines Matching refs:registry
24 package installer::windows::registry;
182 my ($registry) = @_;
186 if ( $registry->{'gid'} ) { $identifier = $registry->{'gid'}; }
211 $registry->{'uniquename'} = $identifier;
222 my ($registry) = @_;
227 if ( $registry->{'ParentID'} ) { $scproot = $registry->{'ParentID'}; }
246 my ($registry, $allvariableshashref) = @_;
250 if ( $registry->{'Subkey'} ) { $key = $registry->{'Subkey'}; }
263 my ($registry, $allvariableshashref) = @_;
267 if ( $registry->{'Name'} ) { $name = $registry->{'Name'}; }
280 my ($registry, $allvariableshashref) = @_;
284 if ( $registry->{'Value'} ) { $value = $registry->{'Value'}; }
302 my ($registry, $allvariableshashref) = @_;
306 if ( $registry->{'Val64'} ) { $value = $registry->{'Val64'}; }
337 my %registry = ();
339 $registry{'Registry'} = $onefile->{'userregkeypath'};
340 $registry{'Root'} = "1"; # always HKCU
341 …$registry{'Key'} = "Software\\$allvariables->{'MANUFACTURER'}\\$allvariables->{'PRODUCTNAME'} $all…
342 …if ( $onefile->{'needs_user_registry_key'} ) { $registry{'Key'} = $registry{'Key'} . "StartMenu"; }
343 else { $registry{'Key'} = $registry{'Key'} . "ShellNew"; }
344 $registry{'Name'} = $onefile->{'Name'};
345 $registry{'Value'} = "1";
346 $registry{'Component_'} = $onefile->{'componentname'};
348 my $oneline = $registry{'Registry'} . "\t" . $registry{'Root'} . "\t" . $registry{'Key'} . "\t"
349 . $registry{'Name'} . "\t" . $registry{'Value'} . "\t" . $registry{'Component_'} . "\n";
377 my %registry = ();
379 $registry{'Registry'} = get_registry_identifier($oneregistry);
380 $registry{'Root'} = get_registry_root($oneregistry);
381 $registry{'Key'} = get_registry_key($oneregistry, $allvariableshashref);
382 $registry{'Name'} = get_registry_name($oneregistry, $allvariableshashref);
383 $registry{'Value'} = get_registry_value($oneregistry, $allvariableshashref);
384 $registry{'Val64'} = get_registry_val64($oneregistry, $allvariableshashref);
387 $registry{'Component_'} = $component_name;
392 $registry{'styles'} = $style;
402 $installer::globals::minorupgradekey = $registry{'Key'};
417 if ( ! exists($installer::globals::componentcondition{$registry{'Component_'}}))
419 …$installer::globals::componentcondition{$registry{'Component_'}} = $oneregistry->{'ComponentCondit…
423 push @$table_items, \%registry;