stupid patch of pg_dumplo

hi all,
i would like to se this patch applied, because i often use
pg_dumplo, and i need to set the port number of the server to contact.
anyway, i don't have C language skill, so be careful with these
lines... they work for me, but...

thanks for your time,
andrea gelmini

*** contrib/pg_dumplo/main.c Thu Nov 8 13:36:14 2001
--- contrib/pg_dumplo/mio Thu Nov 8 13:50:56 2001
***************
*** 31,39 ****

extern int errno;

! char *progname = NULL;

! int main(int argc, char **argv);
static void usage(void);
static void parse_lolist(LODumpMaster * pgLO);

--- 31,40 ----

extern int errno;

! char *progname = NULL;
! char *pgport = NULL;

! int main(int argc, char **argv);
static void usage(void);
static void parse_lolist(LODumpMaster * pgLO);

***************
*** 81,86 ****
--- 82,88 ----
{"pwd", required_argument, 0, 'p'},
{"db", required_argument, 0, 'd'},
{"host", required_argument, 0, 'h'},
+ {"port", required_argument, 0, 'o'},
{"space", required_argument, 0, 's'},
{"import", no_argument, 0, 'i'},
{"export", no_argument, 0, 'e'},
***************
*** 91,100 ****
{NULL, 0, 0, 0}
};

! while ((arg = getopt_long(argc, argv, "?aehu:p:qd:l:t:irs:w", l_opt, &l_index)) != -1)
{
#else
! while ((arg = getopt(argc, argv, "?aehu:p:qd:l:t:irs:w")) != -1)
{
#endif
switch (arg)
--- 93,102 ----
{NULL, 0, 0, 0}
};

! while ((arg = getopt_long(argc, argv, "?aehou:p:qd:l:t:irs:w", l_opt, &l_index)) != -1)
{
#else
! while ((arg = getopt(argc, argv, "?aehou:p:qd:l:t:irs:w")) != -1)
{
#endif
switch (arg)
***************
*** 118,123 ****
--- 120,128 ----
case 's':
pgLO->space = strdup(optarg);
break;
+ case 'o':
+ pgport = optarg;
+ break;
case 'i':
pgLO->action = ACTION_IMPORT;
break;
***************
*** 173,179 ****
/*
* Make connection
*/
! pgLO->conn = PQsetdbLogin(pgLO->host, NULL, NULL, NULL, pgLO->db,
pgLO->user, pwd);

if (PQstatus(pgLO->conn) == CONNECTION_BAD)
--- 178,184 ----
/*
* Make connection
*/
! pgLO->conn = PQsetdbLogin(pgLO->host, pgport, NULL, NULL, pgLO->db,
pgLO->user, pwd);

if (PQstatus(pgLO->conn) == CONNECTION_BAD)
***************
*** 279,284 ****
--- 284,290 ----
"-p --password=<password> password for connection to server\n"
"-d --db=<database> database name\n"
"-t --host=<hostname> server hostname\n"
+ "-o --port=<port> database server port (default: 5432)\n"
"-s --space=<dir> directory with dump tree (for export/import)\n"
"-i --import import large obj dump tree to DB\n"
"-e --export export (dump) large obj to dump tree\n"
***************
*** 295,300 ****
--- 301,307 ----
"-p <password> password for connection to server\n"
"-d <database> database name\n"
"-t <hostname> server hostname\n"
+ "-o <port> database server port (default: 5432)\n"
"-s <dir> directory with dump tree (for export/import)\n"
"-i import large obj dump tree to DB\n"
"-e export (dump) large obj to dump tree\n"