YFKlog Perl Ham Radio logger: https://fkurz.net/ham/yfklog.html
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
31 lines
644 B
31 lines
644 B
4 years ago
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
# yfktest script to import HSC member data
|
||
|
|
# see http://fkurz.net/ham/yfklog/doc/#clubs
|
||
|
|
|
||
|
|
system("wget http://hsc.dj1yfk.de/db/hsc_list_n1mm.txt -O hsc.txt");
|
||
|
|
|
||
|
|
$sql = "delete from clubs where `club`='HSC';\n";
|
||
|
|
|
||
|
|
$sql .= "insert into clubs (`club`, `call`, `nr`) VALUES \n";
|
||
|
|
|
||
|
|
my @out;
|
||
|
|
open HSC, "hsc.txt";
|
||
|
|
while ($line = <HSC>) {
|
||
|
|
$line =~ s/(\r\n)//g;
|
||
|
|
if ($line =~ /^[A-Z0-9]/) {
|
||
|
|
my @a = split(/,/, $line);
|
||
|
|
push @out, "('HSC', '$a[0]', '$a[1]')";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
close HSC;
|
||
|
|
|
||
|
|
$sql .= join(",\n", @out);
|
||
|
|
$sql .= ";";
|
||
|
|
|
||
|
|
open HSC, ">hsc.sql";
|
||
|
|
print HSC $sql;
|
||
|
|
close HSC;
|
||
|
|
|
||
|
|
print "Saved to hsc.sql ($#out records).\n";
|