Msi.pm (677600b0) | Msi.pm (f1e0dfd3) |
---|---|
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 --- 55 unchanged lines hidden (view full) --- 64 65 66 67 68 69 70=head2 new($class, $filename, $version, $is_current_version, $language, $product_name) 71 | 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 --- 55 unchanged lines hidden (view full) --- 64 65 66 67 68 69 70=head2 new($class, $filename, $version, $is_current_version, $language, $product_name) 71 |
72 Create a new object of the Msi class. The values of $version, $language, and $product_name define | 72 Create a new object of the Msi class. The values of $version, $language, and $product_name define |
73 where to look for the msi file. 74 75 If construction fails then IsValid() will return false. 76 77=cut 78 79sub new ($$;$$$$) 80{ --- 50 unchanged lines hidden (view full) --- 131 return $self->{'is_valid'}; 132} 133 134 135 136 137=head2 Commit($self) 138 | 73 where to look for the msi file. 74 75 If construction fails then IsValid() will return false. 76 77=cut 78 79sub new ($$;$$$$) 80{ --- 50 unchanged lines hidden (view full) --- 131 return $self->{'is_valid'}; 132} 133 134 135 136 137=head2 Commit($self) 138 |
139 Write all modified tables back into the databse. | 139 Write all modified tables back into the database. |
140 141=cut 142 143sub Commit ($) 144{ 145 my $self = shift; 146 147 my @tables_to_update = (); --- 19 unchanged lines hidden (view full) --- 167 } 168} 169 170 171 172 173=head2 GetTable($seld, $table_name) 174 | 140 141=cut 142 143sub Commit ($) 144{ 145 my $self = shift; 146 147 my @tables_to_update = (); --- 19 unchanged lines hidden (view full) --- 167 } 168} 169 170 171 172 173=head2 GetTable($seld, $table_name) 174 |
175 Return an MsiTable object for $table_name. Table objects are kept 176 alive for the life time of the Msi object. Therefore the second | 175 Return an MsiTable object for $table_name. Table objects are kept 176 alive for the life time of the Msi object. Therefore the second |
177 call for the same table is very cheap. 178 179=cut 180 181sub GetTable ($$) 182{ 183 my ($self, $table_name) = @_; 184 --- 22 unchanged lines hidden (view full) --- 207 return $table; 208} 209 210 211 212 213=head2 PutTable($self, $table) 214 | 177 call for the same table is very cheap. 178 179=cut 180 181sub GetTable ($$) 182{ 183 my ($self, $table_name) = @_; 184 --- 22 unchanged lines hidden (view full) --- 207 return $table; 208} 209 210 211 212 213=head2 PutTable($self, $table) 214 |
215 Write the given table back to the databse. | 215 Write the given table back to the database. |
216 217=cut 218 219sub PutTable ($$) 220{ 221 my ($self, $table) = @_; 222 223 # Create text file from the current table content. --- 61 unchanged lines hidden (view full) --- 285 286 287 288 289=head2 SplitLongShortName($name) 290 291 Split $name (typically from the 'FileName' column in the 'File' 292 table or 'DefaultDir' column in the 'Directory' table) at the '|' | 216 217=cut 218 219sub PutTable ($$) 220{ 221 my ($self, $table) = @_; 222 223 # Create text file from the current table content. --- 61 unchanged lines hidden (view full) --- 285 286 287 288 289=head2 SplitLongShortName($name) 290 291 Split $name (typically from the 'FileName' column in the 'File' 292 table or 'DefaultDir' column in the 'Directory' table) at the '|' |
293 into short (8.3) and long names. If there is no '|' in $name then | 293 into short (8.3) and long names. If there is no '|' in $name then |
294 $name is returned as both short and long name. 295 296 Returns long and short name (in this order) as array. 297 298=cut 299 300sub SplitLongShortName ($) 301{ --- 9 unchanged lines hidden (view full) --- 311 } 312} 313 314 315 316=head2 SplitTargetSourceLongShortName ($name) 317 318 Split $name first at the ':' into target and source parts and each | 294 $name is returned as both short and long name. 295 296 Returns long and short name (in this order) as array. 297 298=cut 299 300sub SplitLongShortName ($) 301{ --- 9 unchanged lines hidden (view full) --- 311 } 312} 313 314 315 316=head2 SplitTargetSourceLongShortName ($name) 317 318 Split $name first at the ':' into target and source parts and each |
319 of those at the '|'s into long and short parts. Names that follow | 319 of those at the '|'s into long and short parts. Names that follow |
320 this pattern come from the 'DefaultDir' column in the 'Directory' 321 table. 322 323=cut 324 325sub SplitTargetSourceLongShortName ($) 326{ 327 my ($name) = @_; --- 182 unchanged lines hidden --- | 320 this pattern come from the 'DefaultDir' column in the 'Directory' 321 table. 322 323=cut 324 325sub SplitTargetSourceLongShortName ($) 326{ 327 my ($name) = @_; --- 182 unchanged lines hidden --- |