--- radsqlrelay.org     2006-10-08 23:33:39.000000000 +0200
+++ radsqlrelay 2006-10-12 18:16:41.000000000 +0200
@@ -75,7 +75,8 @@
        -d sql_driver   Driver to use: mysql, pg, oracle.
        -h host         Connect to host.
        -P port         Port number to use for connection.
-       -p passord      Password to use when connecting to server.
+       -p password     Password to use when connecting to server.
+       -f pwfile       File with password to use when connecting to server.
        -u user         User for login.
        -x              Turn on debugging.
 HERE
@@ -141,7 +142,7 @@
            p => 'radius',
            u => 'radius',
 );
-my $ret = getopts("b:d:fh:P:p:u:x1?", \%args);
+my $ret = getopts("f:b:d:fh:P:p:u:x1?", \%args);
 if (!$ret or @ARGV != 1) {
     usage();
     exit 1;
@@ -167,10 +168,22 @@
 $SIG{INT} = \&got_signal;
 $SIG{TERM} = \&got_signal;

+my $pw;
+if(defined($args{f})) {
+       open(F, "$args{f}") or die "Unable to read $args{f}: $!\n";
+       $pw = <F>;
+       chomp $pw;
+       close F;
+} elsif(defined($args{p})) {
+       # args{p} is always defined.
+       $pw = $args{p};
+}
+
+
 my %dbinfo = (
              base => $data_source,
              user => $args{u},
-             pass => $args{p},
+             pass => $pw,
 );
 connect_wait(\%dbinfo);