Changeset 31
- Timestamp:
- 02/05/06 20:13:06
- Files:
-
- trunk/plagger/lib/Plagger.pm (modified) (2 diffs)
- trunk/plagger/lib/Plagger/Plugin/Publish/Gmail.pm (modified) (2 diffs)
- trunk/plagger/lib/Plagger/Plugin/Publish/JavaScript.pm (added)
- trunk/plagger/lib/Plagger/Plugin/Publish/PSP.pm (modified) (2 diffs)
- trunk/plagger/templates/plugins/javascript.tt (added)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/plagger/lib/Plagger.pm
r20 r31 68 68 $module =~ s/^Plagger::Plugin:://; 69 69 $module = "Plagger::Plugin::$module"; 70 $module->require or warn$@;70 $module->require or die $@; 71 71 72 72 $self->log(info => "plugin $module loaded."); … … 127 127 sub error { 128 128 my($self, $msg) = @_; 129 my $caller= caller(0);129 my($caller, $filename, $line) = caller(0); 130 130 chomp($msg); 131 die "$caller $msg\n";131 die "$caller [fatal] $msg at line $line\n"; 132 132 } 133 133 trunk/plagger/lib/Plagger/Plugin/Publish/Gmail.pm
r27 r31 79 79 my($self, $body) = @_; 80 80 return <<HTML; 81 <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> 81 82 <html> 82 83 <head> … … 97 98 item => $item, 98 99 cfg => $self->conf, 99 }, \my $out) or die $tt->error;100 }, \my $out) or $context->error($tt->error); 100 101 $out; 101 102 } trunk/plagger/lib/Plagger/Plugin/Publish/PSP.pm
r27 r31 27 27 28 28 my $body = $self->templatize($context, $self->{__feeds}); 29 my $cfg = $self->conf; 30 my $file = $cfg->{output_file}; 29 my $file = $self->conf->{output_file}; 31 30 32 open (FH, ">:utf8", $file) or die $!;33 print FH$body;34 close (FH);31 open my $out, ">:utf8", $file or $context->error("$file: $!"); 32 print $out $body; 33 close $out; 35 34 } 36 35 … … 40 39 $tt->process('psp.tt', { 41 40 feeds => $feeds, 42 }, \my $out) or die $tt->error;41 }, \my $out) or $context->error($tt->error); 43 42 $out; 44 43 }
