modules/installer/epmfile.pm

70 			my $line = ${$packagemapcontent}[$i];
72 			if ( $line =~ /^\s*\#/ ) { next; }  # comment line
73 			if ( $line =~ /^\s*$/ ) { next; }  # empty line
75 			if ( $line =~ /^\s*(.*?)\t(.*?)\s*$/ )
156 		my $line = ${$fileref}[$i];
158 		if ( $line =~ /^\s*\Q$searchstring\E\s*$/ )
163 			$line = ${$fileref}[$counter];
167 			while ((!($line =~ /^\s*\[\s*\w+\s*\]\s*$/ )) && ( $counter <= $#{$fileref} ))
169 				if ( $line =~ /^\s*\Q$language\E\s+\=\s*\"(.*)\"\s*$/ )
176 				if ( $line =~ /^\s*\Q$englishidentifier\E\s+\=\s*\"(.*)\"\s*$/ )
183 				$line = ${$fileref}[$counter];
236 			my $line = "d 755 root $group $hostname -\n";
238 			push(@{$epmfileref}, $line)
264 		my $line = "$filetype $unixrights root $group $destination $sourcepath\n";
266 		push(@{$epmfileref}, $line);
287 		my $line = "l 000 root $group $destination $destinationfile\n";
289 		push(@{$epmfileref}, $line)
306 		my $line = "l 000 root $group $destination $target\n";
308 		push(@{$epmfileref}, $line)
327 	my $line = "";
350 	$line = "%product" . " " . $productnamestring . "\n";
351 	push(@epmheader, $line);
362 	$line = "%version" . " " . $installer::globals::packageversion . "\n";
363 	push(@epmheader, $line);
365 	$line = "%release" . " " . $installer::globals::packagerevision . "\n";
366 …if ( $installer::globals::islinuxrpmbuild ) { $line = "%release" . " " . $installer::globals::buil…
367 	push(@epmheader, $line);
374 	$line = "%description" . " " . $descriptionstring . "\n";
375 	push(@epmheader, $line);
379 	$line = "%copyright" . " " . $copyrightstring . "\n";
380 	push(@epmheader, $line);
384 	$line = "%vendor" . " " . $vendorstring . "\n";
385 	push(@epmheader, $line);
446 			$line = "%readme" . " " . $onefile->{'sourcepath'} . "\n";
447 			push(@epmheader, $line);
488 		$line = "%license" . " " . $$fileref . "\n";
489 		push(@epmheader, $line);
497 		$line = "%license " . $licpath . "\n";
498 		push(@epmheader, $line);
539 				$line = "%replaces" . " " . $onereplaces . "\n";
540 				push(@epmheader, $line);
545 				$line = "%provides" . " openoffice.org-unbundled\n";
546 				push(@epmheader, $line);
547 				$line = "%replaces" . " openoffice.org-bundled\n";
548 				push(@epmheader, $line);
603 			$line = "%provides" . " " . $oneprovides . "\n";
604 			push(@epmheader, $line);
647 			$line = "%requires" . " " . $onerequires . "\n";
648 			push(@epmheader, $line);
682 				$line = "%requires" . " " . $onerequires . "\n";
683 				push(@epmheader, $line);
1480 			my $line = ${$prototypefile}[$i];
1482 			$line =~ s/\s*$//;
1483 …       $installer::logger::Lang->printf("Info: Removed line \"%s\" from prototype file!\n", $line);
1748 		my $line = ${$specfile}[$i];
1749 		if ( $line =~ /share\/extension\/install\/.*?\.oxt\"\s*$/ )
1775 		my $line = ${$prototypefile}[$i];
1776 		if ( $line =~ /^\s*d\s+none\s.*\/share\/extensions\// )
1835 			my $line = "i $destfile=" . $destpath . "\n";
1836 			push(@newlines, $line);
1843 …my $line = "i $installer::globals::solarispatchscripts[$i]=" . $path . $installer::globals::solari…
1844 			push(@newlines, $line);
1994 		my $line = ${$file}[$i];
2000 			if ( $line =~ /^\s*\%attr\(.*\)\s*\"(.*?)\"\s*$/ )
2012 			if ( $line =~ /^\s*f\s+\w+\s+(.*?)\=/ )
2037 		my $line = ${$file}[$i];
2038 		if ( $line =~ /^\s*\w\s+(.*?)\s*$/ )
2049 				$line =~ s/\s*$//;
2050 				${$file}[$i] = $line . "\t" . $packagename . "\n";
2591                 foreach my $line (@helperrpmoutput)