This w_eval() will parse the <% %> and only pass the
code to eval. the rest will go to lines().
sub w_eval {
my $file = $_[0];
my $script = w_read ($file);
while( $script =~ /\<\%.*\%\>/sx )
{
my ($head, $body, $tail) = $script =~ /^
(.*?)\<\%
(.*?)\%\>
(.*)$/xs;
print lines( $head );
eval $body;
print ('<br>'. $@.'<br>') if $@;
$script = $tail;
}
print lines( $script);
}
Nobody/Anonymous ( nobody ) - 2004-05-21 21:57
5
Closed
None
Nobody/Anonymous
None
None
Public
|
Date: 2007-07-10 02:20
|
|
Date: 2007-06-26 00:30
|
|
Date: 2004-06-02 15:16 Logged In: NO |
| Field | Old Value | Date | By |
|---|---|---|---|
| status_id | Pending | 2007-07-10 02:20 | sf-robot |
| close_date | 2007-06-26 00:30 | 2007-07-10 02:20 | sf-robot |
| status_id | Open | 2007-06-26 00:30 | rkiesling |
| close_date | - | 2007-06-26 00:30 | rkiesling |
Copyright © 2009 Geeknet, Inc. All rights reserved. Terms of Use