#!/usr/bin/perl

my ($u, $p) = @ARGV;

unless ($u && $p) {
    die "Usage: $0 USER PASSWORD\n";
}

warn "Adding $u with pass $p\n";

print <<END_REC;
[ANDROMEDA - LAN - $u]
host=afserver.andromeda.lan
username=$u
password=NEEDS_ENCODING:$p
directory=
pasvmode=0

[Extern Andromeda - $u]
host=ftps://ftp.andromedafilm.ch
username=$u
password=NEEDS_ENCODING:$p
directory=
pasvmode=1

END_REC
