最近、共有アカウントから VPS に移動する必要がありました。VPS に移動して以来、私が作成したものではない Perl スクリプトが機能しなくなりました。
メイン スクリプトは次のように始まります。
#!/usr/bin/perl
BEGIN{ push @INC, '../'; }
use CGI qw/:standard *div *form *script/;
use Vamp::Config qw/:site/;
use Vamp::Users;
use Vamp::Utils;
use Vamp::HTML;
use strict;
use warnings;
Perl に関する私の限られた知識から、いくつかのカスタム Perl モジュール (Config、Users、Utils & HTML) を使用しようとしていることがわかります。ただし、ここにはそれらの使用を許可していないものがあります。
フォルダ構造は次のようになります。
- ログイン/index.pl
- Vamp/Config.pm
そして、これはそれらのモジュールの1つがどのように書かれるかです:
package Vamp::Config;
BEGIN{ push @INC, '../' }
use Exporter;
use strict;
use warnings;
our @ISA = ("Exporter");
our @EXPORT_OK = qw/%DB $HOME_URL $ADMIN_URL $SITE_ROOT/;
our %EXPORT_TAGS = (
database => [qw/%DB/],
site => [qw/$HOME_URL $SITE_ROOT/],
admin => [qw/$ADMIN_URL/]
);
our %DB = (
LIVE => {
DATASOURCE => 'DBI:mysql:vamplets:localhost',
USERNAME => 'example',
PASSWORD => 'example'
},
DEV => {
DATASOURCE => 'DBI:mysql:Vamplets:localhost',
USERNAME => 'example',
PASSWORD => 'example'
},
DEV_ADMIN => {
DATASOURCE => 'DBI:mysql:VampletsAdmin:localhost',
USERNAME => 'example',
PASSWORD => 'example'
},
ADMIN => {
DATASOURCE => 'DBI:mysql:vampletsadmin:localhost',
USERNAME => 'example',
PASSWORD => 'example'
}
);
our $HOME_URL = 'http://www.vamplets.com';
#our $HOME_URL = 'http://localhost/vamplets';
#our $ADMIN_URL = 'http://localhost/vamplets/admin';
our $ADMIN_URL = 'http://www.vamplets.com/admin';
our $SITE_ROOT = "/home/content/13/5396413/html/";
#our $SITE_ROOT = "C:/xampp/htdocs/vamplets/";
いろいろなことを試したので、もうどうすればいいのかわかりません。
500 内部サーバー エラーが発生し続けます。
これを使用して確認したため、Perlがインストールされ、機能していることはわかっています:https://ip-50-63-189-142.ip.secureserver.net/cgi-bin/perldiver/perldiver.pl
よろしくお願いします!