48 |
|
|
49 |
# warn "## original rdf -> ", dump( $rdf ); |
# warn "## original rdf -> ", dump( $rdf ); |
50 |
|
|
51 |
my $feed = Grep::Model::Feed->new(); |
my $owner = Grep::Model::User->new(); |
52 |
|
$owner->load_by_cols( email => Jifty->config->app('ScrapBookOwner') ); |
53 |
|
die "can't find ScrapBookOwner ", Jifty->config->app('ScrapBookOwner') unless ( $owner->id ); |
54 |
|
|
55 |
|
Jifty->log->info( "Using user ", $owner->id, " from ", $owner->email, " for import" ); |
56 |
|
|
57 |
|
my $feed = Grep::Model::Feed->new( current_user => $owner ); |
58 |
$feed->load_or_create( |
$feed->load_or_create( |
59 |
uri => 'file://' . $path, |
uri => 'file://' . $path, |
60 |
title => 'ScrapBook', |
title => 'ScrapBook', |
61 |
#source => 'Grep::Source', |
#source => 'Grep::Source', |
62 |
|
owner => $owner, |
63 |
); |
); |
64 |
|
|
65 |
my $stats; |
my $stats; |
111 |
warn "can't parse date from ", $hash->{id}; |
warn "can't parse date from ", $hash->{id}; |
112 |
} |
} |
113 |
|
|
114 |
my $i = Grep::Model::Item->new(); |
my $i = Grep::Model::Item->new( current_user => $owner ); |
115 |
my ($ok,$msg) = $i->load_or_create( |
my ($ok,$msg) = $i->load_or_create( |
116 |
in_feed => $feed, |
in_feed => $feed, |
117 |
title => $hash->{title}, |
title => $hash->{title}, |
130 |
$stats->{old}++; |
$stats->{old}++; |
131 |
} else { |
} else { |
132 |
$stats->{new}++; |
$stats->{new}++; |
133 |
Jifty->log->info("imported ", $i->id ," ", $i->link, " ", length( $content ), " bytes"); |
Jifty->log->info("created ", $i->id ," ", $i->link, " ", length( $content ), " bytes"); |
134 |
$search->add( $i, $i->in_feed->owner->id ); |
$search->add( $i, $owner->id ); |
135 |
} |
} |
136 |
|
|
137 |
} |
} |