stv0g/comedilib
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Added parsing of Status header and &amp

Browse source
This commit is contained in:
David Schleef 2002-05-11 06:45:40 +00:00
parent 1e25ae3db8
commit 8f29543c11
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
doc/mkdr
View file

@ -19,6 +19,7 @@ while(<>){
}
$secend="";
$status="unknown";
while($s = shift @lines){
@x = $s;
@ -42,6 +43,8 @@ while($s = shift @lines){
$devices = $1;
}elsif($x =~ m/^Author: (.*)/){
$author = $1
}elsif($x =~ m/^Status: (.*)/){
$status = $1
}
}else{
if($s eq "\n"){
@ -52,9 +55,11 @@ while($s = shift @lines){
$comment = $comment . $s;
}
if($blank==3){
$comment =~ s/&/&amp;/g;
$comment =~ s/@/&#64;/g;
$comment =~ s/</&lt;/g;
$comment =~ s/>/&gt;/g;
$author =~ s/&/&amp;/g;
$author =~ s/@/&#64;/g;
$author =~ s/</&lt;/g;
$author =~ s/>/&gt;/g;
@ -67,6 +72,9 @@ $driver -- $description
<para>
Author: $author
</para>
<para>
Status: $status
</para>
";
if($devices ne ""){
print
@ -138,6 +146,7 @@ $comment
$blank=0;
$comment="";
$status="unknown";
}
}