Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

include site_id

  • Loading branch information...
commit 31f80ae139fdfe9b6d6bf9db7ccaf5b9c5799066 1 parent 0af40c5
@szabgab authored
Showing with 5 additions and 5 deletions.
  1. +1 −1  FEED
  2. +4 −4 eg/import_from_old_feeds.pl
View
2  FEED
@@ -3,4 +3,4 @@
*) perl -Ilib eg/import_from_old_feeds.pl all.db perl.db Perl
*) perl -Ilib script/dwimmer_feed_admin.pl --store all.db --config html_dir /home/gabor/tmp/feedtest --site Perl
-*) perl -Ilib dwimmer_feed_collector.pl --store all.db --sendmail --collect;
+*) perl -Ilib script/dwimmer_feed_collector.pl --store all.db --sendmail --collect;
View
8 eg/import_from_old_feeds.pl
@@ -63,9 +63,9 @@ sub main {
my $sth = $old_dbh->prepare($select_sql);
$sth->execute;
while (my @row = $sth->fetchrow_array) {
- if ($table ne 'entries') {
+ #if ($table ne 'entries') {
push @row, $site_id;
- }
+ #}
#say "@row";
eval {
$db->dbh->do($insert_sql, undef, @row);
@@ -92,9 +92,9 @@ sub _get_insert_sql {
my $table = shift;
my @cols = @{ $TABLES{$table} };
- if ($table ne 'entries') {
+ #if ($table ne 'entries') {
push @cols, 'site_id';
- }
+ #}
my $sql = "INSERT INTO $table (" . join(', ', @cols) . ') VALUES (';
$sql .= join(',', split //, '?' x @cols) . ')';
#say $sql;
Please sign in to comment.
Something went wrong with that request. Please try again.