/[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 213 by dpavlin, Fri Jun 20 20:44:18 2008 UTC revision 219 by dpavlin, Sun Jun 22 14:41:23 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 Class::Accessor::Fast);  use base qw(Jifty::Object Class::Accessor::Fast A3C::Cache);
7  __PACKAGE__->mk_accessors( qw(instance uid) );  __PACKAGE__->mk_accessors( qw(instance uid) );
8    
9  use DBI;  use DBI;
# Line 11  use Data::Dump qw/dump/; Line 11  use Data::Dump qw/dump/;
11  use Carp qw/confess/;  use Carp qw/confess/;
12  use Jifty;  use Jifty;
13    
 use File::Slurp;  
 use JSON::XS;  
14  use Carp qw/confess/;  use Carp qw/confess/;
15    use URI::Escape;
16    
17  our $debug = 0;  our $debug = 0;
18    
# Line 88  sub category { Line 87  sub category {
87    
88          my $url = shift || confess "no url";          my $url = shift || confess "no url";
89    
90            my $data = $self->read_cache( uri_escape($url) );
91            return $data if $data;
92    
93          # sysinc/profiles.php          # sysinc/profiles.php
94          my $sth = $self->dbh->prepare(qq{          my $sth = $self->dbh->prepare(qq{
95          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          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
96          });          });
97          $sth->execute($url);          $sth->execute($url);
98    
99          my $category = $sth->fetchrow_hashref() or die "can't fetch category $url";          my $category = $sth->fetchrow_hashref() or die "can't fetch category $url from instance ",$self->instance,"\n";
100            $self->write_cache( $category, uri_escape($url) );
101          return $category;          return $category;
102  }  }
103    
# Line 109  sub layout { Line 112  sub layout {
112    
113          my $url = shift || confess "no url";          my $url = shift || confess "no url";
114    
115            my $data = $self->read_cache( uri_escape($url) );
116            return $data if $data;
117    
118          my $dbh = $self->dbh;          my $dbh = $self->dbh;
119          my $category = $self->category( $url );          my $category = $self->category( $url );
120    
# Line 183  sub layout { Line 189  sub layout {
189                  push @{ $page->{post}->{ $row->{pozicija} } }, { $row->{name} => module_args( $row ) };                  push @{ $page->{post}->{ $row->{pozicija} } }, { $row->{name} => module_args( $row ) };
190          }          }
191    
192            $self->write_cache( $page, uri_escape($url) );
193    
194          return $page;          return $page;
195    
196  }  }
# Line 196  sub layout { Line 204  sub layout {
204  sub sites {  sub sites {
205          my $self = shift;          my $self = shift;
206    
207          my @sites;          my @sites = $self->read_cache;
208            return @sites if @sites;
209    
210          my $sth = $self->dbh->prepare(          my $sth = $self->dbh->prepare(
211          "SELECT *, coalesce(( length(ordstr)/3 ) - 1,0) AS depth FROM site ORDER BY ordstr"          "SELECT *, coalesce(( length(ordstr)/3 ) - 1,0) AS depth FROM site ORDER BY ordstr"
# Line 207  sub sites { Line 216  sub sites {
216                  push @sites, $row;                  push @sites, $row;
217          }          }
218    
219            $self->write_cache( \@sites );
220    
221          return @sites;          return @sites;
222  }  }
223    
# Line 224  sub site_navigation { Line 235  sub site_navigation {
235          $uid ||= 1; # anonymous          $uid ||= 1; # anonymous
236  #       $uid ||= 2; # admin  #       $uid ||= 2; # admin
237    
238          my $cache_format = 'site-%d-navigation-for-uid-%d.js';          my $data = $self->read_cache( $site_id, $uid );
239          if ( my $data = $self->read_cache( $cache_format, $site_id, $uid ) ) {          return $data if $data;
                 return $data;  
         }  
   
240    
241          my $sth = $self->dbh->prepare(          my $sth = $self->dbh->prepare(
242          "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");          "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");
# Line 314  sub site_navigation { Line 322  sub site_navigation {
322    
323          }          }
324    
325          $self->write_cache( $navigation, $cache_format, $site_id, $uid );          $self->write_cache( $navigation, $site_id, $uid );
326    
327          return $navigation;          return $navigation;
328    
329  }  }
330    
 =head2 cache_path  
   
   my $path = $strix->cache_path( 'format-%d', $var, ... );  
   
 =cut  
   
 sub cache_path {  
         my $self = shift;  
   
         warn "# cache_path",dump( @_ );  
   
         my $path = Jifty::Util->absolute_path( 'var/strix' );  
   
         if ( ! -e $path ) {  
                 mkdir $path || die "can't create $path: $!";  
         }  
   
         $path .= '/' . sprintf( shift, @_ );    # XXX shift is important here!  
         return $path;  
 }  
   
 =head2 write_cache  
   
   write_cache( $data, 'format-%d', $var, ... );  
   
 =cut  
   
 sub write_cache {  
         my $self = shift;  
         my $data = shift || confess "no data?";  
         my $path = $self->cache_path( @_ );  
         write_file( $path, encode_json( $data )) || die "can't save into $path: $!";  
 }  
   
 =head2 read_cache  
   
         my $data = read_cache( 'format-%d', $var ... );  
   
 =cut  
   
 sub read_cache {  
         my $self = shift;  
         my $path = $self->cache_path( @_ );  
         return unless -e $path;  
         warn "# read_cache( $path )";  
         return decode_json( read_file( $path ) ) || die "can't read $path: $!";  
 }  
   
331  1;  1;
Legend:
Removed from v.213  
changed lines
  Added in v.219
  ViewVC Help
Powered by ViewVC 1.1.26