Ok, I followed the suggestions posted and changed the script to this:
-: use strict;;;use vars qw($Application $Session $Response $Server $Request);;
-: #line 1 d:/websites/default.asp
1: ;;
2: use Win32::OLE;
3: use strict;
4:
5: my $proc = Win32::OLE->new('Project.clsInitialClass');
6: $proc->{Application} = $Application;
7: $proc->{Request} = $Request;
8: $proc->{Response} = $Response;
9: $proc->{Server} = $Server;
10: $proc->{Session} = $Session;
11: $proc->{LoadPage}("D:\RootConfig\config.inc");
Ok, my syntax errors have been fixed for the most part. Now the error seems to be occuring at the last line, line 11. Here's the error:
Errors Output
Can't use string ("") as a subroutine ref while "strict refs" in use at d:/websites/default.asp line 11. , D:/Perl/site/lib/Apache/ASP.pm line 1514
Loadpage is a function in my class 'clsInitialClass'. I'm trying to pass the string "D:\RootConfig\config.inc" to it. How should I accomplish this?
By the way, please pardon my ignorance in Perl. I'm starting to learn the syntax of it. Thanks to Thanos, Csongor, and Helmut for your help in my silly syntax errors. :)
