![[BACK]](/icons/back.gif){kind=icon}
Return to index.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [local] / wpscripts / ezreturn|
Return to index.pm CVS log | Up to [local] / wpscripts / ezreturn |
1.1 yason 1: package index;
2:
3: use strict;
4:
5: # where to search for .index files
6: our @BVOLUMES = ("/B1", "/B2", "/usr/backup", ""); # terminate search with ""
7:
8: # wideprint related index files
9: our $WPZ_INDEX = "wp_zayavki.index";
10: our $WPP_INDEX = "wp_proba.index";
11:
12: # epd related index files
13: our $EPDZ_INDEX= "epd_zayavki.index";
14: our $EPDP_INDEX= "epd_proba.index";
15:
16: # wideprint related directories
17: our $WPZ_DIR = "wp/zayavki";
18: our $WPP_DIR = "wp/proba";
19:
20: # epd related directories
21: our $EPDZ_DIR= "epd/zayavki";
22: our $EPDP_DIR= "epd/proba";
23:
24:
25: sub lookup($$)
26: {
27: my $file_type = shift;
28: my $file_name = shift;
29: my $bvolume;
30: my @indexfile;
31: my $bfilename;
32: my $bfilepath;
33:
34: # lookup file in backups using .index files
35:
36: foreach $bvolume (@BVOLUMES) {
37: # stop if "" encountered
38: if ($bvolume eq "") {
39: print "[index::lookup] $file_name not found on @BVOLUMES\n";
40:
41: return("");
42: }
43:
44: if ($file_type eq "wpz") {
45: # see if we can read index file
46: if (! -r "$bvolume/$WPZ_INDEX") {
47: die("index::lookup() can't open $bvolume/$WPZ_INDEX");
48: }
49:
50: $bfilename = `grep ^$file_name $bvolume/$WPZ_INDEX`;
51: chomp($bfilename);
52:
53: if ($bfilename ne "" ) {
54: # file_name has been found in index on this bvolume
55:
56: $bfilepath = "$bvolume/$WPZ_DIR/$bfilename";
57:
58: # check for file existence
59: if (-e $bfilepath) {
60: # file exists
61: print "[index::lookup] found $bfilepath\n";
62:
63: return($bfilepath);
64: # NOTREACHED
65: } # else, file listed in index but we can't stat it
66: print "[index::lookup] $bfilename listed in $bvolume/$WPZ_INDEX but it doesn't exist\n";
67: # will look in next bvolume
68: # next
69:
70: } # else, file hasn't been found in index on that bvolume
71: # proceed to next bvolume, if any
72: next;
73: } # ! "wpz"
74:
75: if ($file_type eq "wpp") {
76: # see if we can read index file
77: if (! -r "$bvolume/$WPP_INDEX") {
78: die("index::lookup() can't open $bvolume/$WPP_INDEX");
79: }
80:
81: $bfilename = `grep ^$file_name $bvolume/$WPP_INDEX`;
82: chomp($bfilename);
83:
84: if ($bfilename ne "" ) {
85: # file_name has been found in index on this bvolume
86:
87: $bfilepath = "$bvolume/$WPP_DIR/$bfilename";
88:
89: # check for file existence
90: if (-e $bfilepath) {
91: # file exists
92: print "[index::lookup] found $bfilepath\n";
93:
94: return($bfilepath);
95: # NOTREACHED
96: } # else, file listed in index but we can't stat it
97: print "[index::lookup] $bfilename listed in $bvolume/$WPP_INDEX but it doesn't exist\n";
98: # will look in next bvolume
99: # next
100:
101: } # else, file hasn't been found in index on that bvolume
102: # proceed to next bvolume, if any
103: next;
104: } # ! "wpp"
105:
106: if ($file_type eq "epdz") {
107: # see if we can read index file
108: if (! -r "$bvolume/$EPDZ_INDEX") {
109: die("index::lookup() can't open $bvolume/$EPDZ_INDEX");
110: }
111:
112: $bfilename = `grep ^$file_name $bvolume/$EPDZ_INDEX`;
113: chomp($bfilename);
114:
115: if ($bfilename ne "" ) {
116: # file_name has been found in index on this bvolume
117:
118: $bfilepath = "$bvolume/$EPDZ_DIR/$bfilename";
119:
120: # check for file existence
121: if (-e $bfilepath) {
122: # file exists
123: print "[index::lookup] found $bfilepath\n";
124:
125: return($bfilepath);
126: # NOTREACHED
127: } # else, file listed in index but we can't stat it
128: print "[index::lookup] $bfilename listed in $bvolume/$EPDZ_INDEX but it doesn't exist\n";
129: # will look in next bvolume
130: # next
131:
132: } # else, file hasn't been found in index on that bvolume
133: # proceed to next bvolume, if any
134: next;
135: } # ! "epdz"
136:
137: if ($file_type eq "epdp") {
138: # see if we can read index file
139: if (! -r "$bvolume/$EPDP_INDEX") {
140: die("index::lookup() can't open $bvolume/$EPDP_INDEX");
141: }
142:
143: $bfilename = `grep ^$file_name $bvolume/$EPDP_INDEX`;
144: chomp($bfilename);
145:
146: if ($bfilename ne "" ) {
147: # file_name has been found in index on this bvolume
148:
149: $bfilepath = "$bvolume/$EPDP_DIR/$bfilename";
150:
151: # check for file existence
152: if (-e $bfilepath) {
153: # file exists
154: print "[index::lookup] found $bfilepath\n";
155:
156: return($bfilepath);
157: # NOTREACHED
158: } # else, file listed in index but we can't stat it
159: print "[index::lookup] $bfilename listed in $bvolume/$EPDP_INDEX but it doesn't exist\n";
160: # will look in next bvolume
161: # next
162:
163: } # else, file hasn't been found in index on that bvolume
164: # proceed to next bvolume, if any
165: next;
166: } # ! "epdp"
167:
168: }
169:
170: }
171:
172: return 1;
173: