view release on metacpan or  search on metacpan

lib/Dwimmer/Feed/Admin.pm  view on Meta::CPAN

		} else {
			$show++;
		}
		if ($show) {
			_dump($s);
		}
	}
	return;
}

sub update {
	my ($self, %args) = @_;

	my $s = $self->db->get_source_by_id($args{id});
	if (not $s) {
		die "ID '$args{id}' not found\n";
	}

	_dump($self->db->get_source_by_id($args{id}));
	$self->db->update($args{id}, $args{field}, $args{value});
	_dump($self->db->get_source_by_id($args{id}));

lib/Dwimmer/Feed/DB.pm  view on Meta::CPAN

}

sub get_source_by_id {
	my ( $self, $id ) = @_;

	my $sources = $self->get_sources;
	my ($s) = grep { $_->{id} eq $id }  @$sources;
	return $s;
}

sub update_last_fetch {
	my ($self, $source_id, $status, $error) = @_;
	my $sql = qq{UPDATE sources SET last_fetch_time=?, last_fetch_status=?, last_fetch_error=? WHERE id=?};
	$self->dbh->do($sql, undef, time(), $status, $error, $source_id);

	return;
}


sub update {
	my ($self, $id, $field, $value) = @_;

	Carp::croak("Invalid field '$field'")
		if $field !~ m{^(feed|comment|twitter|status|title|url)$};
	Carp::croak("Invalid value for status '$value'")
		if $field eq 'status' and $value !~ m{^(enabled|disabled)$};

	my $sql = qq{UPDATE sources SET $field = ? WHERE id=?};
	$self->dbh->do($sql, undef, $value, $id);
}