--- bin/import-strix.pl 2008/05/30 21:16:08 139 +++ bin/import-strix-config.pl 2008/06/17 14:43:39 192 @@ -10,34 +10,40 @@ use File::Find; use A3C::PHP; +my $debug = 0; + BEGIN { Jifty->new; }; Jifty->web->request(Jifty::Request->new); Jifty->web->response(Jifty::Response->new); my $config = Jifty->config->app('strix') or die "need strix config"; -my $model = A3C::Model::StrixSite->new; +my $model = A3C::Model::StrixInstance->new; my $total = 0; find({ no_chdir => 1, wanted => sub { my $path = $File::Find::name; return unless -f $_; - warn "? $path\n"; + warn "? $path\n" if $debug; return unless m/conf\.php$/; - $path =~ m{/etc/([^/]+)/conf\.php$} or die "can't find site name in $path"; - my $site = $1; + $path =~ m{/etc/([^/]+)/conf\.php$} or die "can't find instance name in $path"; + my $instance = $1; my $data = A3C::PHP->parse_file( $path ); - warn "# PHP = ", dump( $data ); - $data->{site} = $site; + warn "# PHP = ", dump( $data ) if $debug; + $data->{instance} = $instance; - my ($id,$msg) = $model->load_or_create( %$data ); - warn "$id $site ", $msg || 'ADDED', "\n"; - $total++ if $id; + my ($ok,$msg) = $model->load_or_create( %$data ); + if ( $ok ) { + Jifty->log->info("$ok $instance ", $msg || 'ADDED'); + $total++; + } else { + Jifty->log->error("can't parse $path"); + } }}, $config->{dir} ); -Jifty->log->info( "$total Strix sites imported" ); +Jifty->log->info( "$total Strix instances imported" );