Lines Matching refs:lines
13 my @lines;
30 @lines=<IN>;
33 print OUT @lines;
37 while ($count<=$#lines)
39 $line=$lines[$count];
44 $lines[$count]="${spaces}localip $localIp $IDString\n";
49 $lines[$count]="# removed by pptpdconfig --- ".$lines[$count]."\n";
57 $lines[$count]="${spaces}remoteip $remoteIp $IDString\n";
62 $lines[$count]="# removed by pptpdconfig --- ".$lines[$count]."\n";
69 push(@lines, "localip $localIp $IDString\n");
73 push(@lines, "remoteip $remoteIp $IDString\n");
79 print OUT @lines;