/[A3C]/lib/Strix.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/Strix.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 167 by dpavlin, Sun Jun 15 23:19:02 2008 UTC revision 193 by dpavlin, Tue Jun 17 21:27:31 2008 UTC
# Line 3  package Strix; Line 3  package Strix;
3  use strict;  use strict;
4  use warnings;  use warnings;
5    
6  use base qw/Jifty::Object/;  use base qw(Jifty::Object Class::Accessor::Fast);
7    __PACKAGE__->mk_accessors( qw(instance uid) );
8    
9  use DBI;  use DBI;
10  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
11    use Carp qw/confess/;
12    use Jifty;
13    
14    our $debug = 0;
15    
16  =head1 NAME  =head1 NAME
17    
# Line 14  Strix Line 19  Strix
19    
20  =head1 METHODS  =head1 METHODS
21    
22    =head2 new
23    
24      my $strix = Strix->new({ instance => 'os-test0604-zg' });
25    
26  =head2 dbh  =head2 dbh
27    
28          my $dbh = Strix->dbh( $site_name );    my $dbh = Strix->dbh( $strix_instance );
29    
30      my $dbh = $strix->dbh;
31    
32  =cut  =cut
33    
34    our $instance_dbh;
35    our @instances_active;
36    
37  sub dbh {  sub dbh {
38          my $self = shift;          my $self = shift;
39    
40          my $site = shift or die "no site?";          my $instance = shift || ref($self) && $self->instance || confess "no instance";
41    
42            return $instance_dbh->{$instance} if $instance_dbh->{$instance};
43    
44          my $config = Jifty->config->app('strix') or die "need strix config";          my $config = Jifty->config->app('strix') or die "need strix config";
45          my $database = $config->{database} or die "no strix.database in config";          my $database = $config->{database} or die "no strix.database in config";
# Line 31  sub dbh { Line 47  sub dbh {
47          Jifty->log->debug("using config ", dump( $database ));          Jifty->log->debug("using config ", dump( $database ));
48    
49          my $dsn =          my $dsn =
50                  'DBI:Pg:dbname=' . $site .                  'DBI:Pg:dbname=' . $instance .
51                  ';host=' . $database->{host} .                  ';host=' . $database->{host} .
52                  ';port=' . $database->{port};                  ';port=' . $database->{port};
53    
54          Jifty->log->info("Connect to site $site with dsn $dsn");          Jifty->log->info("Connect to instance $instance with dsn $dsn");
55    
56            my $dbh = DBI->connect( $dsn, $database->{user}, $database->{passwd} ) or die "$DBI::errstr\n";
57    
58          my $dbh = DBI->connect( $dsn, $database->{user}, $database->{passwd} ) or die $DBI::errstr;          # force database to send us back UTF-8 no metter what it's encoding
59            $dbh->do("set client_encoding='utf-8'");
60            $dbh->{pg_enable_utf8} = 1;
61    
62            $instance_dbh->{$instance} = $dbh;
63            push @instances_active, $instance;
64    
65            if ( $#instances_active > 5 ) {
66                    my $i = shift @instances_active;
67                    warn "## remove connection to instance $instance\n";
68                    delete( $instance_dbh->{$i} );
69            }
70    
71            warn "## instance_dbh = ",dump( $instance_dbh ) if $debug;
72    
73          return $dbh;          return $dbh;
74  }  }
75    
76    =head2 category
77    
78            my $category = Strix->category( $url );
79    
80    =cut
81    
82    sub category {
83            my $self = shift;
84    
85            my $url = shift || confess "no url";
86    
87            # sysinc/profiles.php
88            my $sth = $self->dbh->prepare(qq{
89            SELECT kategorija.*, lang.langid, lang.locale, template.tfilename, template.tflags, site.naziv as sitename, site.admin_mail, site.address, site.root as site_root, getPathFromNav(kategorija.id) as path, site.ordstr as site_ordstr FROM kategorija, template, site, lang WHERE kategorija.url = ? AND kategorija.template_id = template.id AND kategorija.site_id = site.id AND lang.id = kategorija.lang
90            });
91            $sth->execute($url);
92    
93            my $category = $sth->fetchrow_hashref() or die "can't fetch category $url";
94            return $category;
95    }
96    
97    =head2 layout
98    
99            my $layout = $strix->layout( $url );
100    
101    =cut
102    
103    sub layout {
104            my $self = shift;
105    
106            my $url = shift || confess "no url";
107    
108            my $dbh = $self->dbh;
109            my $category = $self->category( $url );
110    
111            my $sth = $dbh->prepare(qq{
112            SELECT template.tfilename, template.tflags FROM template WHERE id = ?
113            });
114            $sth->execute( $category->{template_id} );
115    
116            my $template = $sth->fetchrow_hashref() or die "can't fetch template";
117    
118            warn "template = ",dump( $template ) if $debug;
119    
120            my $page;
121            warn "### free layout...\n" if $debug;
122    
123            # index.php
124            $sth = $dbh->prepare(qq{
125            SELECT layout_id, module_id, pozicija, module_args, name, fname, notitle, class_name
126            FROM pre_layout, modules
127            WHERE id=module_id AND ? = template_id AND redoslijed >= 0
128            ORDER BY redoslijed DESC
129            });
130            $sth->execute( $category->{template_id} );
131    
132            sub module_args {
133                    my $row = shift;
134                    return undef unless $row->{module_args};
135                    my $args;
136                    foreach my $a ( split(/\&/, $row->{module_args} ) ) {
137                            $args->{$1} = $2 if $a =~ m/^(.+)=(.+)$/;
138                    }
139                    return $args;
140            }
141    
142            while (my $row = $sth->fetchrow_hashref() ) {
143                    warn dump( $row ) if $debug;
144                    push @{ $page->{free} }, { $row->{name} => module_args( $row ) };
145            }
146    
147            warn "### pre layout...\n" if $debug;
148    
149            $sth = $dbh->prepare(qq{
150            SELECT
151                    l.id as layout_id, l.user_id, l.kategorija_id, l.module_id, l.pozicija, l.redoslijed, l.module_args, l.state, l.notitle,
152                    m.name, m.fname, m.hidden, m.nocache, m.pos, m.class_name,
153                    acl_module.acl_register_id
154            FROM layout as l, modules as m LEFT JOIN acl_module ON (acl_module.modules_id = m.id)
155            WHERE l.user_id=?
156            AND l.kategorija_id=?
157            AND m.id=l.module_id
158            ORDER BY pozicija,redoslijed DESC
159            });
160            $sth->execute( 1, $category->{id} );
161    
162            while (my $row = $sth->fetchrow_hashref() ) {
163                    warn dump( $row ) if $debug;
164                    push @{ $page->{pre}->{ $row->{pos} } }, { $row->{name} => module_args( $row ) };
165            }
166    
167            warn "### post layout...\n" if $debug;
168    
169            $sth = $dbh->prepare(qq{
170            SELECT layout_id, module_id, pozicija, module_args, name, notitle
171            FROM pre_layout, modules
172            WHERE id=module_id AND ? = template_id AND redoslijed < 0
173            ORDER BY redoslijed DESC
174            });
175            $sth->execute( $category->{template_id} );
176    
177            while (my $row = $sth->fetchrow_hashref() ) {
178                    warn dump( $row ) if $debug;
179                    push @{ $page->{post}->{ $row->{pozicija} } }, { $row->{name} => module_args( $row ) };
180            }
181    
182            return $page;
183    
184    }
185    
186    =head2 sites
187    
188            my @sites = $strix->sites;
189    
190    =cut
191    
192    sub sites {
193            my $self = shift;
194    
195            my @sites;
196    
197            my $sth = $self->dbh->prepare(
198            "SELECT *, coalesce(( length(ordstr)/3 ) - 1,0) AS depth FROM site ORDER BY ordstr"
199            );
200            $sth->execute;
201    
202            while (my $row = $sth->fetchrow_hashref() ) {
203                    push @sites, $row;
204            }
205    
206            return @sites;
207    }
208    
209    =head2 site_navigation
210    
211      my $navigation = $strix->site_navigation( $site_id, $uid );
212    
213    =cut
214    
215    sub site_navigation {
216            my $self = shift;
217    
218            my ( $site_id, $uid ) = @_;
219    
220            $uid ||= 1; # anonymous
221    #       $uid ||= 2; # admin
222    
223            my $sth = $self->dbh->prepare(
224            "SELECT kategorija.*, ((length(prikaz)+length(coalesce(ordstr,'')))/3)-1 as depth FROM kategorija JOIN navigacija ON (kategorija.id = kategorija_id), site WHERE site_id = ? AND site.id = site_id AND userCanDoOnObject(?, 1, 'kats', kategorija.id) ORDER BY prikaz");
225            $sth->execute( $site_id, $uid );
226    
227            Jifty->log->debug("site $site_id has ", $sth->rows, " categories for uid $uid");
228    
229            my $navigation = [];
230    
231            my @pos = ( 0 );
232    
233            while (my $kat = $sth->fetchrow_hashref() ) {
234                    warn "# kat = ",dump( $kat ) if $debug;
235                    if ( ! $kat->{depth} ) {
236                            Jifty->log->error("depth increased to 1 in ",dump( $kat ));
237                            $kat->{depth} = 1;
238                    }
239    
240                    my $node = { type => 'category' };
241                    foreach my $c ( qw/naziv url/ ) {
242                            $node->{$c} = $kat->{$c};
243                    }
244    
245                    my $depth = $kat->{depth};
246                    if ( ! defined $pos[ $depth - 2 ] ) {
247                            warn "FIXING CATEGORY: ",dump( $kat );
248                            $node->{class} = "error";
249                            $depth--;
250                    }
251                    @pos = splice( @pos, 0, $depth );
252                    $pos[ $depth - 1 ]++;
253    
254                    warn "## category depth = $depth pos = ",dump( @pos ) if $debug;
255    
256                    my $code = '$navigation';
257                    map { $code .= '->[' . ( $_ - 1 ) . ']->{children}' } @pos;
258                    $code =~ s/->{children}$//;
259                    warn "## category code: $code\n" if $debug;
260                    eval $code . '= $node';
261                    if ( $@ ) {
262                            warn "SKIPPED CATEGORY: $@ ",dump( $kat );
263                            next;
264                    }
265    
266                    my $sth_ms = $self->dbh->prepare(
267                    "SELECT
268                            multistatic.id, multistatic.title, multistatic.kname,
269                            multistatic_navigation.kategorija_id, multistatic_navigation.prikaz,
270                            (LENGTH(multistatic_navigation.prikaz)/3) AS depth
271                    FROM multistatic, multistatic_navigation
272                    WHERE multistatic.id = multistatic_navigation.multistatic_id
273                            AND multistatic_navigation.prikaz != ''
274                            AND multistatic_navigation.kategorija_id = ?
275                            AND multistatic.title != ''
276                    ORDER BY multistatic_navigation.prikaz");
277                    $sth_ms->execute( $kat->{id} );
278    
279                    if ( my $rows = $sth_ms->rows ) {
280                            Jifty->log->debug("$site_id has $rows multistatic pages");
281    
282                            while (my $ms = $sth_ms->fetchrow_hashref() ) {
283                                    warn "# ms = ",dump( $ms ) if $debug;
284    
285                                    my $node = {
286                                            naziv => $ms->{title},
287                                            url => $kat->{url} . '?ms_nav=' . $ms->{prikaz},
288                                            type => 'multistatic',
289                                    };
290                                    
291                                    my $ms_depth = $ms->{depth} + $depth;
292                                    my $p = $pos[ $ms_depth - 1 ]++;
293                                    warn "## multistatic depth = $ms_depth pos = ",dump( @pos ) if $debug;
294    
295                                    my $ms_code = $code . '->{children}->[ ' . $p . ']  = $node';
296                                    warn "## multistatic code: $ms_code\n" if $debug;
297                                    eval $ms_code;
298                                    if ( $@ ) {
299                                            warn "SKIPPED MULTISTATIC: $@ ",dump( $ms );
300                                            next;
301                                    }
302                            }
303                    }
304    
305            }
306    
307            return $navigation;
308    
309    }
310    
311  1;  1;
Legend:
Removed from v.167  
changed lines
  Added in v.193
  ViewVC Help
Powered by ViewVC 1.1.26