0

最近、共有アカウントから 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

よろしくお願いします!

4

1 に答える 1