X-Git-Url: https://git.sesse.net/?p=ccbs;a=blobdiff_plain;f=html%2Fccbs.pm;h=f5deadab8e9c0a28ad1548eb07d04457a86f0c42;hp=61dadf8f529e31638989b8794441509216582292;hb=16d44dda496bb6fec27aeea13decaae16fd08f7e;hpb=d4f2692e015be09f0018f645e32f867f62446d22 diff --git a/html/ccbs.pm b/html/ccbs.pm index 61dadf8..f5deada 100755 --- a/html/ccbs.pm +++ b/html/ccbs.pm @@ -25,14 +25,14 @@ sub print_see_other { my $location = shift; print CGI::header(-status=>'303 See other', - -location=>'http://ccbs.sesse.net/' . $location, + -location=>'http://192.168.1.200/' . $location, -type=>'text/html; charset=utf-8'); } sub db_connect { $ccbs_dbdebug = defined(shift) ? 1 : 0; - my $dbh = DBI->connect("dbi:Pg:dbname=ccbs;host=altersex.samfundet.no", "ccbs", "GeT|>>B_") + my $dbh = DBI->connect("dbi:Pg:dbname=ccbs;host=www.positivegaming.com", "ccbs", "GeT|>>B_") or die "Couldn't connect to database"; $dbh->{RaiseError} = 1; return $dbh;