A3C/bin/import-strix-sites.pl

#!/usr/bin/perl

use warnings;
use strict;

use lib 'lib';

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

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 ( $total_sites, $total_instances ) = ( 0, 0 );

while ( my $i = $instances->next ) {
        $total_instances++;
        $total_sites += Strix::Import->sites( $i->instance );
}

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	dpavlin	236	use Strix::Import;
11	dpavlin	198
12			my $debug = 0;
13
14			BEGIN { Jifty->new; };
15			Jifty->web->request(Jifty::Request->new);
16			Jifty->web->response(Jifty::Response->new);
17
18			#my $config = Jifty->config->app('strix') or die "need strix config";
19
20			my $instances = A3C::Model::StrixInstanceCollection->new;
21			$instances->unlimit;
22
23			my ( $total_sites, $total_instances ) = ( 0, 0 );
24
25			while ( my $i = $instances->next ) {
26			$total_instances++;
27	dpavlin	236	$total_sites += Strix::Import->sites( $i->instance );
28	dpavlin	198	}
29
30			Jifty->log->info( "$total_sites Strix sites from $total_instances imported" );