sub edit : Local { my( $self, $c ) = @_; $c->stash->{fdat} = $c->forward('delete'); }
sub regist_execute : Local{ my($self, $c) = @_; my %data; foreach my $k (qw/url title comment/){ $data{$k} = $c->req->param($k) || ''; } if(my $url = $data{url}){ if($c->model('DBIC::bookmark')->find({url => $url})){ $c->stash->{msg} = 'Already exists: ' . $url; }elsif(my $content = LWP::Simple::get($url)){ $c->stash->{msg} = "Success: " . $url; unless($data{title}){ my($title) = $content =~m {<title>([^<]*)</title>}i; $data{title} = Jcode::jcode($title)->utf8; } $data{title} ||= 'no title'; $c->model('DBIC::bookmark')->create(\%data); }else{ $c->stash->{msg} = 'Error: cannot get contents (' . $url. ')'; } } $c->forward('index'); }