#MyAPP name is "NIC",
#NIC/lib/NIC/Model/NiscDB.pm
package NIC::Model::NiscDB;
use strict;
use base 'Catalyst::Model::DBIC::Schema';
__PACKAGE__->config(
schema_class => 'NiscDB',
connect_info => [
'dbi:Pg:dbname=niscdb;host=210.42.1**.***',
'user',
'password',
],
);
#NIC/lib/NiscDB.pm
package NiscDB;
use base qw/DBIx::Class::Schema/;
__PACKAGE__->load_classes({
NiscDB => [qw/UserInfo/]
});
#NIC/lib/NiscDB/UserInfo.pm
package NiscDB::UserInfo;
use base qw/DBIx::Class/;
__PACKAGE__->load_components(qw/PK::Auto Core/);
__PACKAGE__->table('userinfo');
__PACKAGE__->add_columns(qw/serial_no dept_no user_no user_name user_addr
ip_addr mac_addr link_switch node_no phone email memo/);
__PACKAGE__->set_primary_key(qw/serial_no/);
#And in my Controller Macs,the function is below
sub find : Local {
my ( $self, $c, $mac ) = @_;
$c->res->redirect( $c->uri_for('/') ) unless ( $mac );
(my $user) = $c->model('NiscDB::UserInfo')->search({mac_addr => $mac});
$c->stash->{user} = $user;
$c->stash->{template} = 'macs/find.tt2';
}
#But When I locate http://catalyst/nic/macs/find/00:19:21:4b:05:24, There is
an error:
Caught exception in NIC::Controller::Macs->find
"DBIx::Class::ResultSet::search(): DBI Connection failed: could not
connect to server: Permission denied
Is the server running on host "210.42.1**.***" and accepting
TCP/IP connections on port 5432?"
#How can I deal with it? Thanks!
_______________________________________________
List: [email protected]
Listinfo: http://lists.rawmode.org/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/[email protected]/
Dev site: http://dev.catalyst.perl.org/
