/[Grep]/lib/Grep/Model/Feed.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/Grep/Model/Feed.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 18 by dpavlin, Sun Feb 18 00:35:48 2007 UTC revision 19 by dpavlin, Sun Feb 18 12:51:26 2007 UTC
# Line 4  use warnings; Line 4  use warnings;
4  package Grep::Model::Feed;  package Grep::Model::Feed;
5  use Jifty::DBI::Schema;  use Jifty::DBI::Schema;
6    
7    use Feed::Find;
8    
9  use Grep::Record schema {  use Grep::Record schema {
10    
11          column uri =>          column uri =>
12                  type is 'text',                  type is 'text',
13                  label is 'URI',                  label is 'URI',
14                  hints is 'Replace search string in URI with %s',                  hints is 'Replace search string in URI with %s (grep will be replaced automatically)',
15                  is mandatory,                  is mandatory,
16                  distinct;                  distinct;
17    
18          column title =>          column title =>
19                  type is 'text',                  type is 'text',
20                    label is 'Title',
21                  hints is 'Use something descriptive to you',                  hints is 'Use something descriptive to you',
22                  since '0.0.2';                  since '0.0.2';
23    
24            column cookie =>
25                    type is 'text',
26                    label is 'Cookie',
27                    render as 'textarea',
28                    hints are 'If you leave Cookie data Grep will impersonate you to feed provider!',
29                    since '0.0.3';
30    
31  };  };
32    
33  sub since { '0.0.1' }  sub since { '0.0.1' }
34    
35  # Your model-specific methods go here.  # Your model-specific methods go here.
36    
37    =head2 canonicalize_uri
38    
39    Replace C<grep>' with C<%s> in URI arguments
40    
41    =cut
42    
43    sub canonicalize_uri {
44            my $self = shift;
45            my $value = shift;
46            warn "uri: $value";
47            $value =~ s/=grep/=%s/;
48            return $value;
49    }
50    
51    =head2 search_uri
52    
53      print $feed->search_uri('search string');
54    
55    This function will decode field delimiters C<|!|> into normal C<;>
56    (which are protected to make AJAX validation work)
57    
58    =cut
59    
60    sub search_uri {
61            my $self = shift;
62            my $search = shift;
63    
64            my $uri = $self->uri or die "no uri?";
65            $uri =~ s/\Q|!|\E/;/g;
66            return sprintf( $uri, $search );
67    }
68    
69    
70  1;  1;
71    
Legend:
Removed from v.18  
changed lines
  Added in v.19
  ViewVC Help
Powered by ViewVC 1.1.26