Changeset Navigation

Changeset 1588

Timestamp:

08/24/06 19:14:33

Author:

miyagawa

Message:

Files:

r1585	r1588
91	91	}
92	92
93		open my $fh, $self->{config_path} or $self->error("$self->{config_path}: $!");
	93	open my $fh, '<', $self->{config_path} or $self->error("$self->{config_path}: $!");
94	94	my $data = join '', <$fh>;
95	95	close $fh;
…	…
187	187	my($self, $file) = @_;
188	188
189		open my $fh, $file or die "$file: $!";
	189	open my $fh, '<', $file or die "$file: $!";
190	190	while (<$fh>) {
191	191	/^package (Plagger::Plugin::.*?);/ and return $1;

r1537	r1588
57	57	my($self, $file, $base) = @_;
58	58
59		open my $fh, $file or Plagger->context->error("$file: $!");
	59	open my $fh, '<', $file or Plagger->context->error("$file: $!");
60	60	(my $pkg = $base) =~ s/\.pl$//;
61	61	my $plugin_class = "Plagger::Plugin::Filter::EntryFullText::Site::$pkg";

r936	r1588
53	53	my($self, $file, $base) = @_;
54	54
55		open my $fh, $file or Plagger->context->error("$file: $!");
	55	open my $fh, '<', $file or Plagger->context->error("$file: $!");
56	56	(my $pkg = $base) =~ s/\.pl$//;
57	57	my $plugin_class = "Plagger::Plugin::Filter::FindEnclosures::Site::$pkg";

r1505	r1588
71	71	my($res, $header) = @_;
72	72
73		my $value = $res->header($header) or return undef;
	73	my $value = $res->header($header) or return undef; ## no critic
74	74	$value =~ s/;.*?$//;
75	75	$value;

r758	r1588
38	38	my($self, $file, $base) = @_;
39	39
40		open my $fh, $file or Plagger->context->error("$file: $!");
	40	open my $fh, '<', $file or Plagger->context->error("$file: $!");
41	41	my $re = join '', <$fh>;
42	42	chomp($re);

r1454	r1588
121	121	my $earlier;
122	122	my $file = "$path/earlier";
123		if (open my $in, $file) {
	123	if (open my $in, '<', $file) {
124	124	$earlier = <$in>;
125	125	close $in;
126	126	}
127		open my $out, ">~~$file"~~ or $self->context->error("$file: $!");
	127	open my $out, ">", $file or $self->context->error("$file: $!");
128	128	print $out $self->id;
129	129	close $out;

r246	r1588
15	15	sub feed {
16	16	my($self, $context, $args) = @_;
17
18		open my $out, "\|" . $self->conf->{command} or $context->error("Can't open pipe: $!");
	17
	18	open my $out, "\|" . $self->conf->{command} or $context->error("Can't open pipe: $!"); ## no critic
19	19	$context->log(info => "Publishing to " . $self->conf->{command});
20	20	for my $entry ($args->{feed}->entries) {

r994	r1588
1	1	package Plagger::Plugin::Subscription::Bookmarks::InternetExplorer;
	2	use strict;
2	3	use base qw( Plagger::Plugin::Subscription::Bookmarks );
3	4