2 # ws-manifest.pl - create a generic manifest file (including u3 information) from the wireshark.nsi
6 # These are the known directories in the distribution and where they should live on a U3 device
10 $INSTDIR\${GTK_WIMP_DLLDST_DIR} host
11 $INSTDIR\${GTK_WIMP_RCDST_DIR} host
12 $INSTDIR\diameter device
14 $INSTDIR\etc\gtk-2.0 host
15 $INSTDIR\etc\pango host
17 $INSTDIR\lib\gtk-2.0\${GTK_LIB_DIR}\engines host
18 $INSTDIR\lib\gtk-2.0\${GTK_LIB_DIR}\immodules host
19 $INSTDIR\lib\gtk-2.0\${GTK_LIB_DIR}\loaders host
20 $INSTDIR\lib\gtk-2.0\modules host
21 $INSTDIR\plugins\${VERSION} device
22 $INSTDIR\radius device
23 $INSTDIR\snmp\mibs device
25 $INSTDIR\wimaxasncp device
28 my @dirs; # the directories in the manifest
29 my @defines; # stack of defines
32 if($line =~ /^SetOutPath (.+)$/) {
34 $outpath =~ s/^'(.*)'$/$1/;
35 if($outpath ne '$PROFILE') { # ignore the PROFILE
36 push(@dirs, $outpath);
38 } elsif ($line =~ /!ifdef (.*)$/) {
40 } elsif ($line =~ /!endif/) {
42 if(scalar(@defines) == 0) {
45 } elsif ($line =~ /^File[^\"]+\"([^\"]+)\"/) {
47 # make things relative to the root rather than the NSIS directory
48 if($file =~ /^[^\.\$]/) { $file = "packaging\\nsis\\" . $file; }
49 $file =~ s/\.\.\\\.\.\\//; # remove ../../
50 push(@$outpath, $file);
52 if(defined @defines) {
53 push(@$file, "ifdef=" . $defines[-1]);
56 # there may be a parameter - copy it across
57 if($line =~ /\/(\S+)/) {
63 print "#\n# DO NOT EDIT - autogenerated from wireshark.nsi\n#\n";
65 foreach $dir(sort @dirs) {
72 print "[". $dir . " u3loc=" . $loc . "]\n";
74 foreach $file(sort @$dir) {
77 foreach $param (sort(@$file)) {
81 if($dir eq '$INSTDIR') { # try and find a better location
82 if($file =~ /\.dll$|\.exe$|EXE}$|DLL}$/ && !($file =~ /WinPcap/) && !($file =~ /VCREDIST_EXE/)) {
98 if(defined @ignored) {
100 print STDERR "ERROR\nThe following directories have no known location on a U3 device:\n";
102 foreach $dir(sort @ignored) {
103 print STDERR "\t" . $dir . " ";