#!/usr/bin/perl -Tw
-# $Id: persons.cgi,v 1.1 1999-01-27 09:55:05 ivan Exp $
+# $Id: persons.cgi,v 1.2 1999-04-22 04:12:53 ivan Exp $
# Copyright (c) 1999 Ivan Kohler. All rights reserved.
# This program is free software; you can redistribute it and/or modify it under
# the same terms as perl itself
use CGI::Carp qw(fatalsToBrowser);
use DBI;
-$data_source = "DBI:mysql:test";
-$user = "ivan";
-$password = "";
+$data_source = "DBI:mysql:technostate";
+$user = "agent";
+$password = "t3chno";
$table = "PERSONS";
@fields = qw( ID NAME EMAIL AFFILIATION );