thh/yapfaq
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Activity

Add conversion script for old status files.

Browse source 
Signed-off-by: Thomas Hochstein <thh@thh.name>
This commit is contained in:
Thomas Hochstein 2026-01-31 11:19:33 +01:00
parent de5163c877
commit c969b7c2c1
2 changed files with 17 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
contrib/convert.pl Executable file
View file

@ -0,0 +1,16 @@
#! /usr/bin/perl -w
#
# Convert pre-1.0 yapfaq status file to new format
#
# Usage: convert.pl < old.txt.cfg > new.cfg
while (<>) {
if (/Lastpost/) {
$_ =~ /Lastpost:\s(\d\d?\.\d\d?\.\d\d\d\d)/;
print "Last-Posted: $1\n";
}
if (/LastMID/) {
$_ =~ /LastMID:\s(<[^>]+>)/;
print "Last-Message-ID: $1\n";
}
}