Changeset 17830 for misc/runpugs/perl

Show
Ignore:
Timestamp:
09/14/07 12:25:35 (15 months ago)
Author:
azawawi
Message:

[runpugs] client side command history implemented

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • misc/runpugs/perl/runpugs.pl

    r16055 r17830  
    160160     ($replyw=~/^\s*$/) && ($nrows=1); 
    161161    if ($nrows>20) {$nrows=20;} 
    162     my $historylist="\n"; 
    163     for my $entry (@history) { 
    164         my $entryw=HTML::Entities::encode_entities($entry); 
    165         $historylist.='<option value="'.$entryw.'">'.$entryw.'</option>'."\n"; 
    166     } 
    167162    if($replyw!~/Leaving\ pugs\.$/) { 
    168163        $replyw.=$nprompt; 
    … …  
    171166    open(HTML,"<../data/runpugs.html"); 
    172167    while(<HTML>) { 
    173         /_HIST_/ && do { 
    174             $html.=$historylist; 
    175             next; 
    176         }; 
    177168        s/_DEV_/$devc/; 
    178169        s/_REL_/$relc/;