Mercurial > pub > Impl

comparison Lib/DOM/Providers/Gallery.pm @ 0:03e58a454b20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Создан репозитарий
author Sergey
date Tue, 14 Jul 2009 12:54:37 +0400
parents
children 16ada169ca75
comparison
equal deleted inserted replaced
-1:000000000000 0:03e58a454b20
1 use strict;
2 package DOM::Gallery;
3 use Common;
4 our @ISA = qw(Object);
5
6 BEGIN {
7 DeclareProperty(Id => ACCESS_READ);
8 DeclareProperty(Name => ACCESS_READ);
9 DeclareProperty(Description => ACCESS_READ);
10 DeclareProperty(Images => ACCESS_READ);
11 DeclareProperty(CurrentImage => ACCESS_READ);
12 DeclareProperty(NextImage => ACCESS_READ);
13 DeclareProperty(PrevImage => ACCESS_READ);
14 }
15
16 sub CTOR {
17 my ($this,%args) = @_;
18
19 $this->{$Id} = $args{'Id'};
20 $this->{$Name} = $args{'Name'};
21 $this->{$Description} = $args{'Description'};
22 }
23
24 sub GroupList {
25 my ($this,$GroupCount, $option) = @_;
26
27 my @images = map { $this->{$Images}->{$_} } sort keys %{$this->{$Images}};
28
29 my @listGroups;
30 my $group;
31 for (my $i = 0; $i < $GroupCount; $i++ ) {
32 #last unless scalar(@images) or $option =~ /align/i;
33 push (@$group, shift(@images));
34 if ($i == $GroupCount - 1) {
35 push @listGroups, $group;
36 undef $group;
37 $i = -1;
38 last if not scalar(@images);
39 }
40 }
41
42 return \@listGroups;
43 }
44
45 sub SelectImage {
46 my ($this,$imageId) = @_;
47
48 my @images = sort keys %{$this->{$Images}};
49
50 for (my $i=0; $i <= @images; $i++) {
51 if ($images[$i] eq $imageId) {
52 $this->{$CurrentImage} = $this->{$Images}->{$images[$i]};
53 $this->{$PrevImage} = $i-1 >= 0 ? $this->{$Images}->{$images[$i-1]} : undef;
54 $this->{$NextImage} = $i+1 < @images ? $this->{$Images}->{$images[$i+1]} : undef;
55 return 1;
56 }
57 }
58 die new Exception("An image '$imageId' not found in the gallery '$this->{$Id}'");
59 }
60
61 sub AddImage {
62 my ($this,$image) = @_;
63
64 $this->{$Images}->{$image->Id()} = $image;
65 }
66
67 package DOM::Gallery::Image;
68 use Common;
69 our @ISA = qw(Object);
70 BEGIN {
71 DeclareProperty(Id => ACCESS_READ);
72 DeclareProperty(Name => ACCESS_READ);
73 DeclareProperty(Gallery => ACCESS_READ);
74 DeclareProperty(URL => ACCESS_READ);
75 DeclareProperty(ThumbURL => ACCESS_READ);
76 }
77
78 sub CTOR {
79 my ($this,%args) = @_;
80
81 $this->{$Id} = $args{'Id'} or die new Exception ('An Id should be specified for an image');
82 $this->{$Name} = $args{'Name'};
83 $this->{$Gallery} = $args{'Gallery'} or die new Exception('An Gallery should be specified for an image');
84 $this->{$URL} = $args{'URL'};
85 $this->{$ThumbURL} = $args{'ThumbURL'};
86 }
87
88 package DOM::Providers::Gallery;
89 use Common;
90 our @ISA = qw(Object);
91
92 our $RepoPath;
93 our $ImagesURL;
94 our $Encoding;
95
96 BEGIN {
97 DeclareProperty(GalleryCache => ACCESS_NONE);
98 DeclareProperty(Repository => ACCESS_NONE);
99 }
100
101 sub CTOR {
102 my ($this,%args) = @_;
103
104 $this->{$Repository} = $args {'Repository'} or die new Exception('A path to an galleries repository should be specified');
105 }
106
107 sub GetProviderInfo() {
108 return {
109 Name => 'Gallery',
110 Host => 'DOM::Site',
111 Methods => {
112 LoadGallery => \&SiteLoadGallery #($this,$site,$galleryId)
113 }
114 };
115 }
116
117 sub SiteLoadGallery {
118 my ($this,$site,$galleryId) = @_;
119
120 my $gallery = $this->LoadGallery($galleryId);
121
122 $site->RegisterObject('Gallery',$gallery);
123
124 return $gallery;
125 }
126
127 sub LoadGallery {
128 my ($this,$galleryId) = @_;
129
130 die new Exception("Invalid Gallery Id: $galleryId") if $galleryId =~ /\\|\//;
131
132 my $galleryIdPath = $galleryId;
133 $galleryIdPath =~ s/\./\//g;
134
135 my $GalleryPath = $this->{$Repository} . $galleryIdPath .'/';
136
137 die new Exception("A gallery '$galleryId' isn't found",$GalleryPath) if not -d $GalleryPath;
138
139 open my $hDesc, "<:encoding($Encoding)", $GalleryPath.'index.htm' or die new Exception("Invalid gallery: $galleryId","Failed to open ${GalleryPath}index.htm: $!");
140
141 my $GalleryName;
142 while (<$hDesc>) {
143 if (/<title>(.+?)<\/title>/i) {
144 $GalleryName = $1;
145 last;
146 }
147 }
148 undef $hDesc;
149
150 my $ImagesPath = $GalleryPath.'images/';
151 my $ThumbsPath = $GalleryPath.'thumbnails/';
152
153 opendir my $hImages, $ImagesPath or die new Exception("Invalid gallery: $galleryId","Can't open images repository: $!");
154
155 my @imageIds = grep { -f $ImagesPath.$_ } readdir $hImages;
156
157 my %imageNames;
158
159 if (-f $GalleryPath.'description.txt') {
160 local $/="\n";
161 if (open my $hfile,"<:encoding($Encoding)",$GalleryPath.'description.txt') {
162 while (<$hfile>) {
163 chomp;
164 my ($id,$name) = split /\s*=\s*/;
165 $imageNames{$id} = $name;
166 }
167 }
168 }
169
170 undef $hImages;
171
172 if ($Common::Debug) {
173 foreach (@imageIds) {
174 warn "A tumb isn't found for an image: $_" if not -f $ThumbsPath.$_;
175 }
176 }
177
178 my $gallery = new DOM::Gallery(Id => $galleryId, Name => $GalleryName);
179
180 foreach my $imageId (@imageIds) {
181 $gallery->AddImage(new DOM::Gallery::Image(
182 Id => $imageId,
183 URL => $ImagesURL.$galleryIdPath.'/images/'.$imageId,
184 ThumbURL => $ImagesURL.$galleryIdPath.'/thumbnails/'.$imageId,
185 Gallery => $gallery,
186 Name => $imageNames{$imageId}
187 )
188 );
189 }
190
191 return $gallery;
192 }
193
194 sub construct {
195 my $self = shift;
196
197 return new DOM::Providers::Gallery( Repository => $RepoPath);
198 }
199
200 1;