Attachment 1471065 Details for Bug 1609241 – Script to verify wxi files

Script to verify wxi files

validate.pl (text/plain), 1.41 KB, created by Daniel Berrangé on 2018-07-27 11:32:12 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Daniel Berrangé

Created: 2018-07-27 11:32:12 UTC

Size: 1.41 KB

patch

obsolete

>#!/usr/bin/perl
>
>use strict;
>use warnings;
>
>use XML::XPath;
>use XML::XPath::XMLParser;
>
>foreach my $file (@ARGV) {
>    &check($file);
>}
>
>sub check {
>    my $file = shift;
>
>    my $rpmname = $file;
>    $rpmname =~ s,^.*/,,;
>    $rpmname =~ s/.wxi//;
>    my $rpmname32 = "mingw32-$rpmname";
>    my $rpmname64 = "mingw64-$rpmname";
>
>    my $hasrpm32 = (system "rpm -q $rpmname32 >/dev/null 2>&1") == 0;
>    my $hasrpm64 = (system "rpm -q $rpmname64 >/dev/null 2>&1") == 0;
>
>    unless ($hasrpm32) {
>	print "Cannot check $file, $rpmname32 not installed\n";
>    }
>    unless ($hasrpm32) {
>	print "Cannot check $file, $rpmname32 not installed\n";
>    }
>
>    my $xp = XML::XPath->new(filename => $file);
>    my $nodeset;
>    $nodeset = eval { $xp->find("//File/\@Source"); };
>    if ($@) {
>	print STDERR "Parsing failed on $file: $@\n";
>	return;
>    }
>
>    my $errors = 0;
>    foreach my $node ($nodeset->get_nodelist) {
>	my $msifile32 = $node->getData();
>	my $msifile64 = $node->getData();
>
>	$msifile32 =~ s,\$$var.SourceDir$,/usr/i686-w64-mingw32/sys-root/mingw,;
>	$msifile64 =~ s,\$$var.SourceDir$,/usr/x86_64-w64-mingw32/sys-root/mingw,;
>
>	if ($hasrpm32 && ! -e $msifile32) {
>	    print "\n\nErrors in $file\n\n" unless $errors;
>	    $errors = 1;
>	    print "  - Missing $msifile32\n";
>	}
>	if ($hasrpm64 && ! -e $msifile64) {
>	    print "\n\nErrors in $file\n\n" unless $errors;
>	    $errors = 1;
>	    print "  - Missing $msifile64\n";
>	}
>    }
>}

Actions: View

Attachments on bug 1609241: 1471065