/[webpac2]/trunk/vhost/webpac2.cgi
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 /trunk/vhost/webpac2.cgi

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

revision 1162 by dpavlin, Sat Apr 25 14:20:42 2009 UTC revision 1165 by dpavlin, Sat Apr 25 17:11:33 2009 UTC
# Line 93  if ( -e $html_markup ) { Line 93  if ( -e $html_markup ) {
93          undef $html_markup;          undef $html_markup;
94  }  }
95    
96  my $estraier = YAML::LoadFile( "$dir/../var/estraier/$database.yaml" );  my $stats;
97    {
98            my $path = "$dir/../var/swish/$database.yaml";
99            $stats = YAML::LoadFile( $path );
100            dump_yaml( "stats $path", $stats );
101    }
102    
103  my $db = $config->{databases}->{$database};  my $db = $config->{databases}->{$database};
104    
105  my @attr = keys %{ $estraier->{attr} }; # FIXME replace with real gnerated lookup  my @attr = keys %{ $stats->{attr} }; # FIXME replace with real gnerated lookup
106    
107  # XXX pipe delimit list!  # XXX pipe delimit list!
108  my $select_attr_operators = << '__ATTR_OPERATORS__';  my $select_attr_operators = << '__ATTR_OPERATORS__';
# Line 158  print Line 163  print
163    
164  ;  ;
165    
 dump_yaml( 'inputs', $db->{input} );  
 dump_yaml( 'input names', map { $_->{name} } @{ $db->{input} } );  
   
166  print   end_form;  print   end_form;
167    
168  if ( my $search = param('search') ) {  if ( my $search = param('search') ) {
# Line 260  if ( my $search = param('search') ) { Line 262  if ( my $search = param('search') ) {
262    
263  }  }
264    
265  dump_yaml( 'db', $db );  dump_yaml( "config databases $database", $db );
266  dump_yaml( 'html_markup_skip', $html_markup_skip );  dump_yaml( 'html_markup_skip', $html_markup_skip );
267    
268  print   end_html;  print   end_html;
Legend:
Removed from v.1162  
changed lines
  Added in v.1165
  ViewVC Help
Powered by ViewVC 1.1.26