Parent Directory | Revision Log
r3584@llin (orig r703): dpavlin | 2008-12-03 22:24:09 +0100 rename r3585@llin (orig r704): dpavlin | 2008-12-03 22:26:29 +0100 document bin/log.sh r3586@llin (orig r705): dpavlin | 2008-12-03 22:36:12 +0100 fix paths for created class r3587@llin (orig r706): dpavlin | 2008-12-03 22:52:49 +0100 http://upload.wikimedia.org/wikipedia/commons/0/05/WikEd_fix_html.png r3588@llin (orig r707): dpavlin | 2008-12-03 23:20:46 +0100 last point for 0.24 and forward r3589@llin (orig r708): dpavlin | 2008-12-03 23:23:26 +0100 dump html content in textarea r3590@llin (orig r709): dpavlin | 2008-12-03 23:24:19 +0100 Cleanup all attributes from html r3591@llin (orig r710): dpavlin | 2008-12-04 14:26:57 +0100 added cookie killer described on my blog at http://blog.rot13.org/2006/11/clean_all_http_cookies_and_kill_session.html r3592@llin (orig r711): dpavlin | 2008-12-04 17:02:09 +0100 add created classes to svk by default r3593@llin (orig r712): dpavlin | 2008-12-04 17:02:57 +0100 convert form to post, so we don't have double action on next submit (one from get, one from post) r3594@llin (orig r713): dpavlin | 2008-12-04 17:17:48 +0100 add SlideShare favourites url r3595@llin (orig r714): dpavlin | 2008-12-04 17:28:31 +0100 fix dependency display r3596@llin (orig r715): dpavlin | 2008-12-04 18:33:39 +0100 hide _private attributes r3597@llin (orig r716): dpavlin | 2008-12-04 18:35:12 +0100 separate results_as_data from as_markup to make data reusable r3598@llin (orig r717): dpavlin | 2008-12-04 18:55:27 +0100 Split run to own line r3599@llin (orig r718): dpavlin | 2008-12-04 19:33:25 +0100 use_ok correct test r3600@llin (orig r719): dpavlin | 2008-12-04 19:39:37 +0100 wrap File::Slurp into Frey::File r3601@llin (orig r720): dpavlin | 2008-12-04 21:20:45 +0100 move checkbox to Frey::Web, fix multiple file commit r3602@llin (orig r721): dpavlin | 2008-12-04 23:31:06 +0100 fix Frey::File r3603@llin (orig r722): dpavlin | 2008-12-04 23:37:26 +0100 concepts r3604@llin (orig r723): dpavlin | 2008-12-05 00:09:52 +0100 mode pod r3605@llin (orig r724): dpavlin | 2008-12-05 18:25:05 +0100 display pod table of content r3606@llin (orig r725): dpavlin | 2008-12-05 18:33:01 +0100 fix warnings and take title for icon if it's not specified r3607@llin (orig r726): dpavlin | 2008-12-05 18:34:10 +0100 Fix output wrapping r3608@llin (orig r727): dpavlin | 2008-12-05 18:34:43 +0100 sort methods and attributes r3609@llin (orig r728): dpavlin | 2008-12-06 01:19:32 +0100 support check of single file r3610@llin (orig r729): dpavlin | 2008-12-06 01:20:20 +0100 more documentation, unfinished r3611@llin (orig r730): dpavlin | 2008-12-06 01:21:36 +0100 version bump [0.24] r3612@llin (orig r731): dpavlin | 2008-12-06 01:25:19 +0100 implement CSS2 form layout and support for undef (action support is still broken) r3613@llin (orig r732): dpavlin | 2008-12-06 01:26:12 +0100 simple two step action as still non-working prototype r3614@llin (orig r733): dpavlin | 2008-12-06 01:43:29 +0100 change yaml dump format, cleanup r3615@llin (orig r734): dpavlin | 2008-12-06 01:57:49 +0100 turn short lists to radio boxes r3616@llin (orig r735): dpavlin | 2008-12-06 13:22:36 +0100 css for documentation, always re-create introspect yaml r3617@llin (orig r736): dpavlin | 2008-12-06 15:34:41 +0100 put documentation in own line r3618@llin (orig r737): dpavlin | 2008-12-06 15:35:15 +0100 make commit form transparent so we can see diff behind it
1 | dpavlin | 638 | package Frey::Shell::Grep; |
2 | use Moose; | ||
3 | |||
4 | extends 'Frey'; | ||
5 | with 'Frey::Web'; | ||
6 | |||
7 | dpavlin | 661 | use English; |
8 | |||
9 | dpavlin | 638 | has pattern => ( |
10 | dpavlin | 670 | documentation => 'grep pattern', |
11 | dpavlin | 638 | is => 'rw', |
12 | isa => 'Str', | ||
13 | required => 1, | ||
14 | default => 'FIXME', | ||
15 | ); | ||
16 | |||
17 | dpavlin | 738 | has path => ( |
18 | documentation => 'path(s) to grep', | ||
19 | is => 'rw', | ||
20 | isa => 'Str', | ||
21 | required => 1, | ||
22 | default => 'lib/ t/ etc/', | ||
23 | ); | ||
24 | |||
25 | has _grep_command => ( | ||
26 | documentation => 'executed grep command', | ||
27 | is => 'rw', | ||
28 | isa => 'Str', | ||
29 | ); | ||
30 | |||
31 | has results_as_data => ( | ||
32 | is => 'rw', | ||
33 | isa => 'ArrayRef[HashRef]', | ||
34 | lazy => 1, | ||
35 | default => | ||
36 | sub { | ||
37 | |||
38 | dpavlin | 638 | my ($self) = @_; |
39 | |||
40 | dpavlin | 666 | my $patt = $self->pattern; |
41 | dpavlin | 638 | |
42 | dpavlin | 738 | my $cmd = 'grep -rn ' . $patt . ' ' . $self->path; |
43 | $self->_grep_command( $cmd ); | ||
44 | dpavlin | 638 | warn "# $cmd"; |
45 | |||
46 | dpavlin | 738 | my @results; |
47 | dpavlin | 638 | |
48 | dpavlin | 738 | open(my $fh, '-|', $cmd) || die "can't open pipe to $cmd $!"; |
49 | while(<$fh>) { | ||
50 | my ( $path, $line, $text ) = split(/:/,$_,3); | ||
51 | if ( ! $line ) { | ||
52 | push @results, { text => $path }; | ||
53 | } else { | ||
54 | push @results, { path => $path, line => $line, text => $text }; | ||
55 | } | ||
56 | } | ||
57 | |||
58 | if ( $INPUT_LINE_NUMBER > 0 ) { # closing pipe grep output results in error | ||
59 | close($fh) || die "can't close pipe to $cmd $!"; | ||
60 | } | ||
61 | |||
62 | # warn "# ", $self->dump( @results ); | ||
63 | |||
64 | return \@results; | ||
65 | }); | ||
66 | |||
67 | sub as_markup { | ||
68 | my $self = shift; | ||
69 | my $callback = {@_}; | ||
70 | |||
71 | my $patt = $self->pattern; | ||
72 | $self->title( $patt ); | ||
73 | |||
74 | dpavlin | 638 | $self->add_css(qq| |
75 | dpavlin | 738 | dt.p { |
76 | color: #888; | ||
77 | white-space: pre-wrap; | ||
78 | font-family: monospace; | ||
79 | margin-top: 1em; | ||
80 | } | ||
81 | dpavlin | 638 | dd a { |
82 | float: left; | ||
83 | width: 3em; | ||
84 | } | ||
85 | dd code b { | ||
86 | background-color: #ff8; | ||
87 | } | ||
88 | |); | ||
89 | |||
90 | dpavlin | 666 | my $html; |
91 | dpavlin | 738 | my $last_path = ''; |
92 | dpavlin | 666 | |
93 | dpavlin | 738 | foreach my $result ( @{ $self->results_as_data } ) { |
94 | |||
95 | warn $self->dump( $result ); | ||
96 | |||
97 | my $text = $result->{text} || die "no text"; | ||
98 | |||
99 | dpavlin | 670 | $text = $self->html_escape( $text ); |
100 | dpavlin | 738 | if ( my $path = $result->{path} ) { |
101 | my $line = $result->{line} || die "no line"; | ||
102 | if ( $path ne $last_path ) { | ||
103 | $html .= qq|<dt class="p">$path</dt>|; | ||
104 | } | ||
105 | if ( my $dd = $callback->{dd} ) { | ||
106 | $html .= $dd->( $patt, $path, $line, $text ); | ||
107 | } else { | ||
108 | $text =~ s{(\Q$patt\E)}{<b>$1</b>}; | ||
109 | $html .= qq|<dd><a target="editor" href="/editor+$path+$line">$line</a> <code>$text</code>|; | ||
110 | } | ||
111 | $last_path = $path; | ||
112 | } else { | ||
113 | $html .= qq|<dt>$text</dt>|; | ||
114 | dpavlin | 638 | } |
115 | } | ||
116 | dpavlin | 666 | |
117 | dpavlin | 738 | if ( $html ) { |
118 | my $command = $self->_grep_command; | ||
119 | dpavlin | 666 | $html = qq| |
120 | <h1>$patt</h1> | ||
121 | dpavlin | 738 | <pre>$command</pre> |
122 | dpavlin | 666 | <dl>$html</dl> |
123 | |; | ||
124 | } else { | ||
125 | $html = $self->error( "No results for $patt\n" ); | ||
126 | dpavlin | 661 | } |
127 | dpavlin | 638 | |
128 | return $html; | ||
129 | } | ||
130 | |||
131 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |