media.pm (fb67933c) media.pm (f30bf281)
1#**************************************************************
2#
3# Licensed to the Apache Software Foundation (ASF) under one
4# or more contributor license agreements. See the NOTICE file
5# distributed with this work for additional information
6# regarding copyright ownership. The ASF licenses this file
7# to you under the Apache License, Version 2.0 (the
8# "License"); you may not use this file except in compliance

--- 196 unchanged lines hidden (view full) ---

205#################################################################################
206# Setting the last sequence for the cabinet files
207#################################################################################
208
209sub get_last_sequence
210{
211 my ( $cabfilename, $alludpatelastsequences ) = @_;
212
1#**************************************************************
2#
3# Licensed to the Apache Software Foundation (ASF) under one
4# or more contributor license agreements. See the NOTICE file
5# distributed with this work for additional information
6# regarding copyright ownership. The ASF licenses this file
7# to you under the Apache License, Version 2.0 (the
8# "License"); you may not use this file except in compliance

--- 196 unchanged lines hidden (view full) ---

205#################################################################################
206# Setting the last sequence for the cabinet files
207#################################################################################
208
209sub get_last_sequence
210{
211 my ( $cabfilename, $alludpatelastsequences ) = @_;
212
213 my $sequence = 0;
214
215 if (( $installer::globals::updatedatabase ) && ( exists($alludpatelastsequences->{$cabfilename}) ))
216 {
217 $sequence = $alludpatelastsequences->{$cabfilename};
218 }
219 else
220 {
221 $sequence = $installer::globals::lastsequence{$cabfilename};
222 }
213 my $sequence = $installer::globals::lastsequence{$cabfilename};
223
224 return $sequence;
225}
226
227#################################################################################
228# Creating the file Media.idt dynamically
229# Content:
230# DiskId LastSequence DiskPrompt Cabinet VolumeLabel Source
231# Idea: Every component is packed into each own cab file
232#################################################################################
233
234sub create_media_table
235{
214
215 return $sequence;
216}
217
218#################################################################################
219# Creating the file Media.idt dynamically
220# Content:
221# DiskId LastSequence DiskPrompt Cabinet VolumeLabel Source
222# Idea: Every component is packed into each own cab file
223#################################################################################
224
225sub create_media_table
226{
236 my ($filesref, $basedir, $allvariables, $alludpatelastsequences, $allupdatediskids) = @_;
227 my ($filesref, $basedir, $allvariables) = @_;
237
238 my @mediatable = ();
239
240 my $diskid = 0;
241
242 installer::windows::idtglobal::write_idt_header(\@mediatable, "media");
243
244 if ( $allvariables->{'INCLUDE_CAB_IN_MSI'} ) { $installer::globals::include_cab_in_msi = 1; }

--- 82 unchanged lines hidden --- 		228
229 my @mediatable = ();
230
231 my $diskid = 0;
232
233 installer::windows::idtglobal::write_idt_header(\@mediatable, "media");
234
235 if ( $allvariables->{'INCLUDE_CAB_IN_MSI'} ) { $installer::globals::include_cab_in_msi = 1; }

--- 82 unchanged lines hidden ---