A3C/bin/import-strix-sites.pl

#!/usr/bin/perl

use warnings;
use strict;

use lib 'lib';

use Jifty;
use Data::Dump qw/dump/;

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 $instances = A3C::Model::StrixInstanceCollection->new;
$instances->unlimit;

my $ss = A3C::Model::StrixSite->new;

my ( $total_sites, $total_instances ) = ( 0, 0 );

while ( my $i = $instances->next ) {
        my $dbh = eval { Strix->new({ instance => $i->instance })->dbh };
        next if $@;
        my $sth = $dbh->prepare(qq{ select * from site });
        $sth->execute;

        $total_instances++;

        while ( my $row = $sth->fetchrow_hashref ) {
                warn dump( $row ) if $debug;
                $row->{instance} = $i->instance;
                $row->{site_id} = delete( $row->{id} );
                $ss->load_or_create( %$row );
                $total_sites++ if $ss->id;
        }
}

Jifty->log->info( "$total_sites Strix sites from $total_instances imported" );
1	dpavlin	198	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6			use lib 'lib';
7
8			use Jifty;
9			use Data::Dump qw/dump/;
10
11			my $debug = 0;
12
13			BEGIN { Jifty->new; };
14			Jifty->web->request(Jifty::Request->new);
15			Jifty->web->response(Jifty::Response->new);
16
17			#my $config = Jifty->config->app('strix') or die "need strix config";
18
19			my $instances = A3C::Model::StrixInstanceCollection->new;
20			$instances->unlimit;
21
22			my $ss = A3C::Model::StrixSite->new;
23
24			my ( $total_sites, $total_instances ) = ( 0, 0 );
25
26			while ( my $i = $instances->next ) {
27			my $dbh = eval { Strix->new({ instance => $i->instance })->dbh };
28			next if $@;
29			my $sth = $dbh->prepare(qq{ select * from site });
30			$sth->execute;
31
32			$total_instances++;
33
34			while ( my $row = $sth->fetchrow_hashref ) {
35			warn dump( $row ) if $debug;
36			$row->{instance} = $i->instance;
37			$row->{site_id} = delete( $row->{id} );
38			$ss->load_or_create( %$row );
39			$total_sites++ if $ss->id;
40			}
41			}
42
43			Jifty->log->info( "$total_sites Strix sites from $total_instances imported" );