1 # |
|
2 # Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies). |
|
3 # All rights reserved. |
|
4 # This component and the accompanying materials are made available |
|
5 # under the terms of "Eclipse Public License v1.0" |
|
6 # which accompanies this distribution, and is available |
|
7 # at the URL "http://www.eclipse.org/legal/epl-v10.html". |
|
8 # |
|
9 # Initial Contributors: |
|
10 # Nokia Corporation - initial contribution. |
|
11 # |
|
12 # Contributors: |
|
13 # |
|
14 # Description: |
|
15 # |
|
16 #!/usr/bin/perl |
|
17 |
|
18 # |
|
19 # ============================================================================== |
|
20 # Name : unzip_check.pl |
|
21 # Description : This script provides comparison functions to create a filelist |
|
22 # and to check if all files in the list are available on the |
|
23 # environment. |
|
24 # ============================================================================== |
|
25 # |
|
26 |
|
27 use strict; |
|
28 |
|
29 use Getopt::Std; |
|
30 use vars qw($opt_c $opt_g); |
|
31 |
|
32 getopts("c:g:"); |
|
33 |
|
34 if ($opt_g =~ m/-c/i || $opt_c =~ m/-g/i) |
|
35 { |
|
36 &error_msg("Cannot generate and check at the same time!"); |
|
37 } |
|
38 |
|
39 if ($opt_g) |
|
40 { |
|
41 &generate(); |
|
42 } |
|
43 elsif ($opt_c) |
|
44 { |
|
45 &check(); |
|
46 } |
|
47 else |
|
48 { |
|
49 &error_msg("Please define the action and filename!"); |
|
50 } |
|
51 |
|
52 |
|
53 sub error_msg |
|
54 { |
|
55 my($ErrorMsg); |
|
56 ($ErrorMsg)=@_; |
|
57 my $given_command=$0; |
|
58 $given_command =~ s/.*\\(\w+\.\w+)$/$1/; |
|
59 print STDERR "\nERROR: $ErrorMsg \n\n" unless ($ErrorMsg =~ /^$/); |
|
60 print STDERR "\nUsage:\n\t$given_command <parameters>\n"; |
|
61 print STDERR "\nParameters:\n"; |
|
62 print STDERR "\t-g\tGenerate filelist from the environment into file specified after this parameter\n"; |
|
63 print STDERR "\t-c\tCheck if all the files are in the environment that are listed in the file specified after this parameter\n"; |
|
64 print STDERR "\nExamples:\n\t$given_command -g filelist.txt\n"; |
|
65 print STDERR "\t$given_command -c filelist.txt\n"; |
|
66 print STDERR "\n"; |
|
67 die "\n"; |
|
68 } |
|
69 |
|
70 |
|
71 sub generate |
|
72 { |
|
73 unless ($opt_g =~ m/^$/) |
|
74 { |
|
75 open (STDOUT, ">".$opt_g); |
|
76 } |
|
77 |
|
78 open (DIRS,"dir /s/b/a-d 2>nul |"); |
|
79 |
|
80 my $current_dir = `cd`; |
|
81 for ($current_dir) |
|
82 { |
|
83 s/^\s+//; |
|
84 s/\s+$//; |
|
85 s/^.\:\\//; |
|
86 } |
|
87 #$current_dir = $current_dir."\\"; |
|
88 |
|
89 while (my $file=<DIRS>) |
|
90 { |
|
91 chomp; |
|
92 for ($file) |
|
93 { |
|
94 s/^\s+//; |
|
95 s/\s+$//; |
|
96 s/^.\:\\//; |
|
97 } |
|
98 substr($file, 0, length($current_dir)+1) = ''; |
|
99 { |
|
100 print STDOUT $file."\n"; |
|
101 } |
|
102 } |
|
103 } |
|
104 |
|
105 sub check |
|
106 { |
|
107 open (INPUTFILE,$opt_c) or error_msg("Filelist $opt_c not found!"); |
|
108 |
|
109 while (my $line=<INPUTFILE>) |
|
110 { |
|
111 chomp; |
|
112 for ($line) |
|
113 { |
|
114 s/^\s+//; |
|
115 s/\s+$//; |
|
116 } |
|
117 stat($line); |
|
118 next if -f _; |
|
119 print "MISSING: ".$line."\n"; |
|
120 } |
|
121 } |
|