A3C/bin/import-strix.pl

#!/usr/bin/perl

use warnings;
use strict;

use lib 'lib';

use Jifty;
use Data::Dump qw/dump/;
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 $total = 0;

find({ no_chdir => 1, wanted => sub {
        my $path = $File::Find::name;
        return unless -f $_;
        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;

        my $data = A3C::PHP->parse_file( $path );

        warn "# PHP = ", dump( $data ) if $debug;
        $data->{site} = $site;

        my ($id,$msg) = $model->load_or_create( %$data );
        Jifty->log->info("$id $site ", $msg || 'ADDED');
        if ( $id ) {
                $total++;
        } else {
                Jifty->log->error("can't parse $path: $msg");
        }

}}, $config->{dir} );

Jifty->log->info( "$total Strix sites imported" );
1	#!/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	use File::Find;
11	use A3C::PHP;
12
13	my $debug = 0;
14
15	BEGIN { Jifty->new; };
16	Jifty->web->request(Jifty::Request->new);
17	Jifty->web->response(Jifty::Response->new);
18
19	my $config = Jifty->config->app('strix') or die "need strix config";
20
21	my $model = A3C::Model::StrixSite->new;
22
23	my $total = 0;
24
25	find({ no_chdir => 1, wanted => sub {
26	my $path = $File::Find::name;
27	return unless -f $_;
28	warn "? $path\n" if $debug;
29	return unless m/conf\.php$/;
30
31	$path =~ m{/etc/([^/]+)/conf\.php$} or die "can't find site name in $path";
32	my $site = $1;
33
34	my $data = A3C::PHP->parse_file( $path );
35
36	warn "# PHP = ", dump( $data ) if $debug;
37	$data->{site} = $site;
38
39	my ($id,$msg) = $model->load_or_create( %$data );
40	Jifty->log->info("$id $site ", $msg \|\| 'ADDED');
41	if ( $id ) {
42	$total++;
43	} else {
44	Jifty->log->error("can't parse $path: $msg");
45	}
46
47	}}, $config->{dir} );
48
49	Jifty->log->info( "$total Strix sites imported" );