Allow ' in name, qth and comment fields

Closes #3

yfksubs.pl

@@ -1069,9 +1069,9 @@ sub saveqso {
                 $dbh->do("UPDATE log_$mycall SET `CALL`='$qso[0]',
                         `DATE`='$qso[1]',
                         `T_ON`='$qso[2]', `T_OFF`='$qso[3]', `BAND`='$qso[4]',
-                        `MODE`='$qso[5]', `QTH`='$qso[6]', `NAME`='$qso[7]',
+                        `MODE`='$qso[5]', `QTH`=".$dbh->quote($qso[6]).", `NAME`=".$dbh->quote($qso[7]).",
                         `QSLS`='$qso[8]', `QSLR`='$qso[9]', `RSTS`='$qso[10]',
-                        `RSTR`='$qso[11]', `REM`='$qso[12]', `PWR`='$qso[13]',
+                        `RSTR`='$qso[11]', `REM`=".$dbh->quote($qso[12]).", `PWR`='$qso[13]',
                         `QSLINFO`='$qslinfo' WHERE NR='$editnr';");
             }
             else {                        # new QSO
@@ -1081,9 +1081,9 @@ sub saveqso {
                     `DXCC`, `PFX`, `CONT`, `QSLINFO`,
                     `ITUZ`, `CQZ`, `IOTA`, `STATE`, `QSLRL`, `OPERATOR`, `GRID`)
                     VALUES ('$qso[0]', '$qso[1]', '$qso[2]', '$qso[3]', 
-                            '$qso[4]', '$qso[5]', '$qso[6]', '$qso[7]', 
+                            '$qso[4]', '$qso[5]', ".$dbh->quote($qso[6]).", ".$dbh->quote($qso[7]).", 
                             '$qso[8]', '$qso[9]', '$qso[10]', '$qso[11]', 
-                            '$qso[12]', '$qso[13]', '$dxcc', '$pfx', 
+                            ".$dbh->quote($qso[12]).", '$qso[13]', '$dxcc', '$pfx', 
                             '$cont', '$qslinfo', '$ituz', '$cqz', '$iota',
                             '$state', 'N', '$operator', '$grid');");
             }
@@ -1111,7 +1111,7 @@ sub saveqso {
             unless ($sth->fetch()) {    # check if callsign not in DB
                 if (($qso[7] ne "") || ($qso[6] ne "")) {    # new things to add
                     $dbh->do("INSERT INTO `calls` (`CALL`, `NAME`, `QTH`) VALUES
-                            ('$call', '$qso[7]', '$qso[6]');");    
+                            ('$call', ".$dbh->quote($qso[7]).", ".$dbh->quote($qso[6]).");");    
                 }
             }
 
@@ -1216,7 +1216,7 @@ sub readw {
     # For the Name, QTH and Remarks letters, figures and punctuation is allowed 
     # to achieve this, invoke readw with $_[1] = 3
     if ((defined $_[1]) && ($_[1] == "3")) {     
-        $match = '[\w\d!"$%&/()=?.,;:\-@ ]';        # set match expression
+        $match = "[\\w\\d!'\"$%&/()=?.,;:\\-@ ]";        # set match expression
     }
     
     #  In the BAND-field, numbers and a decimal point are allowed.