3 # Convert old-style "clients" file to new "clients.conf" format.
5 # Usage: clients.pl clients new-clients.conf
6 # The "new-clients.conf" will be over-written.
12 print "Usage: clients.pl clients new-clients.conf\n";
13 print " The \"new-clients.conf\" will be created if it does not exist.\n";
14 print " If it does exist, it will be over-written.";
21 open OLD, "< $old"or die "Failed to open $old: $!\n";
22 open NEW, "> $new" or die "Failed to open $new: $!\n";
29 print NEW "client $_[0] {\n";
30 print NEW "\tsecret = $_[1]\n";