Lines Matching refs:context
98 my $context = {
110 "product-name=s", \$context->{'product-name'},
111 "output-path=s", \$context->{'output-path'},
112 "data-path=s" => \$context->{'data-path'},
113 "lst-file=s" => \$context->{'lst-file'},
114 "source-version:s" => \$context->{'source-version'},
115 "target-version:s" => \$context->{'target-version'},
116 "language=s" => \$context->{'language'},
117 "package-format=s" => \$context->{'package-format'}
125 $context->{'command'} = shift @ARGV;
127 return $context;
135 my ($context, $language) = @_;
137 $context->{'output-path'},
138 $context->{'product-name'},
139 $context->{'package-format'},
142 $context->{'source-version'})),
151 my ($context, $language) = @_;
153 $context->{'output-path'},
154 $context->{'product-name'},
155 $context->{'package-format'},
164 my ($context, $language) = @_;
167 my $target_path = GetTargetMsiPath($context, $language);
173 … my @target_version = installer::patch::Version::StringToNumberArray($context->{'target-version'});
191 my ($context, $release_data, $language) = @_;
195 if ( ! ProvideInstallationSets($context, $language))
204 $context->{'source-version'});
218 my ($context, $language, $release_data) = @_;
234 my $unpacked_path = GetSourceMsiPath($context, $language);
273 my ($context, $variables) = @_;
275 if (defined $context->{'source-version'} && defined $context->{'target-version'})
282 if ( ! defined $context->{'target-version'})
285 $context->{'target-version'} = $variables->{PRODUCTVERSION};
288 … my @target_version = installer::patch::Version::StringToNumberArray($context->{'target-version'});
298 $context->{'target-version'});
302 if ( ! defined $context->{'source-version'})
312 last if ($release eq $context->{'target-version'});
315 $context->{'source-version'} = $last_release;
318 if (defined $context->{'source-version'})
320 $context->{'source-version-dash'} = installer::patch::Version::ArrayToDirectoryName(
322 $context->{'source-version'}));
324 if (defined $context->{'target-version'})
326 $context->{'target-version-dash'} = installer::patch::Version::ArrayToDirectoryName(
328 $context->{'target-version'}));
1545 $context,
1555 $context->{'product-name'},
1558 $context->{'language'});
1575 $context->{'product-name'});
1713 my ($context, $variables, $language) = @_;
1716 … $installer::logger::Info->printf("locating source package (%s)\n", $context->{'source-version'});
1719 $context->{'source-version'},
1723 $context->{'product-name'}))
1728 $context->{'source-version'},
1731 $context->{'product-name'});
1737 … $installer::logger::Info->printf("locating target package (%s)\n", $context->{'target-version'});
1740 $context->{'target-version'},
1744 $context->{'product-name'}))
1749 $context->{'target-version'},
1752 $context->{'product-name'});
1777 my ($context, $variables) = @_;
1780 $context->{'product-name'},
1781 $context->{'source-version'},
1782 $context->{'target-version'});
1792 ->{$context->{'source-version'}}
1793 ->{$context->{'package-format'}};
1796 my $language = $context->{'language'};
1803 if ( ! IsLanguageValid($context, $release_data, $language))
1812 my ($source_msi, $target_msi) = ProvideMsis($context, $variables, $language);
1823 if ( ! Check($source_msi, $target_msi, $variables, $context->{'product-name'}))
1830 $context->{'output-path'},
1831 $context->{'product-name'},
1849 $context,
1866 my ($context, $variables) = @_;
1869 $context->{'product-name'},
1870 $context->{'source-version'},
1871 $context->{'target-version'});
1874 ->{$context->{'source-version'}}
1875 ->{$context->{'package-format'}};
1878 my $language = $context->{'language'};
1885 if ( ! IsLanguageValid($context, $release_data, $language))
1894 my ($source_msi, $target_msi) = ProvideMsis($context, $variables, $language);
1905 if ( ! Check($source_msi, $target_msi, $variables, $context->{'product-name'}))
1923 my ($context, $variables) = @_;
1926 $context->{'product-name'},
1927 $context->{'source-version'},
1928 $context->{'target-version'});
1932 $context->{'source-version'}));
1935 $context->{'target-version'}));
1937 my $language = $context->{'language'};
1945 $context->{'output-path'},
1946 $context->{'product-name'},
2057 my ($context, $language, $exe_basename) = @_;
2062 $context->{'output-path'},
2063 $context->{'product-name'},
2064 $context->{'package-format'},
2078 $context->{'target-version'},
2081 $context->{'product-name'});
2090 my ($context, $language, $exe_basename, $url_template) = @_;
2095 my $version = $context->{'target-version'};
2096 my $package_format = $context->{'package-format'};
2108 $context->{'product-name'}))
2122 $context->{'product-name'});
2132 my ($context, $variables) = @_;
2136 $context->{'output-path'},
2140 my $target_version = $context->{'target-version'};
2143 if ( ! defined $version_hash{$context->{'target-version'}})
2154 $item_hash = $releases_list->{$target_version}->{$context->{'package-format'}};
2156 $releases_list->{$target_version} = {$context->{'package-format'} => $item_hash};
2169 $context->{'product-name'},
2175 $context->{'product-name'},
2181 $item = GetReleaseItemForCurrentBuild($context, $language, $exe_basename);
2185 $item = GetReleaseItemForOldBuild($context, $language, $exe_basename, $url_template);
2212 my $context = ProcessCommandline();
2218 unless defined $context->{'lst-file'};
2220 unless defined $context->{'product-name'};
2221 die sprintf("ERROR: package format %s is not supported", $context->{'package-format'})
2222 unless defined $context->{'package-format'} ne "msi";
2225 $context->{'lst-file'},
2226 $context->{'product-name'},
2228 DetermineVersions($context, $variables);
2230 if ($context->{'command'} =~ /create|check/)
2233 $context->{'output-path'},
2234 $context->{'product-name'},
2236 $context->{'source-version-dash'} . "_" . $context->{'target-version-dash'},
2237 $context->{'language'},
2250 if ($context->{'command'} eq "create")
2252 CreatePatch($context, $variables);
2254 elsif ($context->{'command'} eq "apply")
2256 ApplyPatch($context, $variables);
2258 elsif ($context->{'command'} eq "update-releases-xml")
2260 UpdateReleasesXML($context, $variables);
2262 elsif ($context->{'command'} eq "check")
2264 CheckPatchCompatability($context, $variables);