Dear All,
I have tried all the things that you have
mentioned but the problem hasnt gone,there are some
particular files that i need to access in order to
setup a connection with the database, the first one is
a perl module called sys_init.pm where the initial
values are given and a module called dbase.pm where
the connection string is described , they are as
follows.
sys_init.pm:
sub system_init {
# The following variable determines the display of the
client's name in
# HTML titles and page-level titles.
#
---------------------------------------------------------------------
$client_name = "RUCDRTest";
# The following variables tell the system what
external URL the system
# can be found at in order to correctly execute
redirects.
#
---------------------------------------------------------------------
# foo_url should end with a slash.
#
---------------------------------------------------------------------
$client_url = "http://xxxxxxx/RUCDRTest/";;
$redir_url = "http://xxxxxxx/RUCDRTest/";;
# The following variables tell the system what it
needs to know about
# the server it's using to store workflow information
on. sql_server
# and sql_port can be left blank for default values;
the rest need to
# be filled in completely.
#
---------------------------------------------------------------------
$sql_server = "";
$sql_port = "RUCDRTest";
$sql_driver = "ODBC";
$sql_dbase = "RUCDRTest";
$sql_uid = "";
$sql_pwd = "";
dbase.pm:
---> CONNECT DB: Connect to the database.
### ### ### ### ### ### ### ### ### ### ### ### ###
### ### ### ### ### ###
sub connect_db() {
$dsn = "DBI:$sql_driver:$sql_dbase";
$dbh = DBI->connect($dsn, $sql_uid, $sql_pwd);
}
### ### ### ### ### ### ### ### ### ### ### ### ###
### ### ### ### ### ###
# ---> DISCONNECT DB: Disconnect from the database.
### ### ### ### ### ### ### ### ### ### ### ### ###
### ### ### ### ### ###
sub disconnect_db() {
$dbh->disconnect();
}
and here is part of the code for the asp access in
the global.asa file
Application("DSN") =
"DSN=RUCDRTest;UID=sa;PWD=sqladmin" ' Our dsn for
the application
Application("SessionTimeOut") = 120 ' User
timeout in minutes
Application("HTTP") = "http://xxxxxx/RUCDRTest/";
Application("HTTPS") = "http://xxxxxx/RUCDRTest/";
in the original file only the RUCDRTest is changed to
RUCDR, the asp updates work perfect in the new one.
i would really appreciate your help in this matter.
thank you
harsha
--- Zoltan Ness <[EMAIL PROTECTED]> wrote:
> While you did mention that you adjusted the DSN,
> that is the most likely location of the problem.
> The DSN should be pointed to the backup database
> instance. The name of the DSN does not matter, as
> long as it is unique and the perl script is pointing
> to it. Here are a few steps:
>
> 1. Check on SQL Server what the backup db name is
> (and that it is started).
> 2. Configure the DSN with that server and dbname.
> 3. Test the data source connection.
>
>
>
> -----Original Message-----
> From: harsha reddy [mailto:[EMAIL PROTECTED]
> Sent: Tue 3/25/2003 13:18
> To: [EMAIL PROTECTED]
> Cc:
> Subject: Perl Database Problem
>
> Dear All,
> I am working on a SQL server database
> that
> uses ASP and PERL to fetch and update data, I have
> made a copy of the Original database and am making
> changes to it, the original database's name is
> RUCDR
> and the new one is RUCDRTest.
>
> Everything seemed to be working fine until i
> discovered that the perl files that access and
> update
> the data are actually fetching and storing the data
> from the main database instead of the copy i
> created,
> whereas the ASP files access data from the new
> database, I have made sure that all the paths that
> earlier pointed to the main database have been
> changed
> to point to the new one, even the DSN name is
> different.
>
> I would really appreciate it if someone could help
> me
> out in this matter.
>
> regards
> harsha
>
>
>
>
=��Z)��f�y��X��X�����h��` �)��lz��rدy+Z��(�:.�˛���m�m����+-����b��jל�o�j)fj��˛
__________________________________________________
Do you Yahoo!?
Yahoo! Platinum - Watch CBS' NCAA March Madness, live on your desktop!
http://platinum.yahoo.com
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
