projects
/
technostate.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
59334ec
)
*** empty log message ***
author
ivan
<ivan>
Thu, 22 Apr 1999 04:12:53 +0000
(
04:12
+0000)
committer
ivan
<ivan>
Thu, 22 Apr 1999 04:12:53 +0000
(
04:12
+0000)
cgi/persons.cgi
patch
|
blob
|
history
diff --git
a/cgi/persons.cgi
b/cgi/persons.cgi
index
4c7e03e
..
fc9de50
100755
(executable)
--- a/
cgi/persons.cgi
+++ b/
cgi/persons.cgi
@@
-1,5
+1,5
@@
#!/usr/bin/perl -Tw
#!/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
# 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
@@
-13,9
+13,9
@@
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
-$data_source = "DBI:mysql:te
st
";
-$user = "
ivan
";
-$password = "";
+$data_source = "DBI:mysql:te
chnostate
";
+$user = "
agent
";
+$password = "
t3chno
";
$table = "PERSONS";
@fields = qw( ID NAME EMAIL AFFILIATION );
$table = "PERSONS";
@fields = qw( ID NAME EMAIL AFFILIATION );