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 https://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 | package Frey::Shell::Grep; |
2 | use Moose; |
3 | |
4 | extends 'Frey'; |
5 | with 'Frey::Web'; |
6 | |
7 | use English; |
8 | |
9 | has pattern => ( |
10 | documentation => 'grep pattern', |
11 | is => 'rw', |
12 | isa => 'Str', |
13 | required => 1, |
14 | default => 'FIXME', |
15 | ); |
16 | |
17 | 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 | my ($self) = @_; |
39 | |
40 | my $patt = $self->pattern; |
41 | |
42 | my $cmd = 'grep -rn ' . $patt . ' ' . $self->path; |
43 | $self->_grep_command( $cmd ); |
44 | warn "# $cmd"; |
45 | |
46 | my @results; |
47 | |
48 | 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 | $self->add_css(qq| |
75 | dt.p { |
76 | color: #888; |
77 | white-space: pre-wrap; |
78 | font-family: monospace; |
79 | margin-top: 1em; |
80 | } |
81 | dd a { |
82 | float: left; |
83 | width: 3em; |
84 | } |
85 | dd code b { |
86 | background-color: #ff8; |
87 | } |
88 | |); |
89 | |
90 | my $html; |
91 | my $last_path = ''; |
92 | |
93 | foreach my $result ( @{ $self->results_as_data } ) { |
94 | |
95 | warn $self->dump( $result ); |
96 | |
97 | my $text = $result->{text} || die "no text"; |
98 | |
99 | $text = $self->html_escape( $text ); |
100 | 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 | } |
115 | } |
116 | |
117 | if ( $html ) { |
118 | my $command = $self->_grep_command; |
119 | $html = qq| |
120 | <h1>$patt</h1> |
121 | <pre>$command</pre> |
122 | <dl>$html</dl> |
123 | |; |
124 | } else { |
125 | $html = $self->error( "No results for $patt\n" ); |
126 | } |
127 | |
128 | return $html; |
129 | } |
130 | |
131 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |