GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-10-02 01:18:40 +02:00
Code Issues Projects Releases Wiki Activity

Added missing section and section title for paragraph specification

Browse Source
This commit is contained in:
Pragmatic Software 2010-04-13 22:07:45 +00:00
parent d90ba033eb
commit c5e1903ded
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
modules/cstd.pl
View File

@ -79,7 +79,7 @@ if($list_only) {
$result = "Sections containing '$search': "; $result = "Sections containing '$search': ";
} }
$search =~ s/\s+/.*/g; $search =~ s/\s+/.*?/g;
while($text =~ m/^\s{4}(\d+\.[0-9\.]*)/msg) { while($text =~ m/^\s{4}(\d+\.[0-9\.]*)/msg) {
$this_section = $1; $this_section = $1;
@ -117,6 +117,8 @@ while($text =~ m/^\s{4}(\d+\.[0-9\.]*)/msg) {
if($paragraph_specified == $USER_SPECIFIED and not length $search and $p == $paragraph) { if($paragraph_specified == $USER_SPECIFIED and not length $search and $p == $paragraph) {
$result = $t if not $found; $result = $t if not $found;
$found_section = $this_section;
$found_section_title = $section_title;
$found = 1; $found = 1;
last; last;
} }
@ -169,7 +171,7 @@ while($text =~ m/^\s{4}(\d+\.[0-9\.]*)/msg) {
} }
if(not $found and $comma eq "") { if(not $found and $comma eq "") {
$search =~ s/\.\*/ /g; $search =~ s/\.\*\?/ /g;
if($section_specified) { if($section_specified) {
print "No such text '$search' found within section '$section' in n1256.\n" if length $search; print "No such text '$search' found within section '$section' in n1256.\n" if length $search;
print "No such section '$section' in n1256.\n" if not length $search; print "No such section '$section' in n1256.\n" if not length $search;