18 lines
333 B
PHP
18 lines
333 B
PHP
perl;
|
|
use strict;
|
|
use warnings;
|
|
use Cwd;
|
|
|
|
my $srcdir = getcwd;
|
|
require "$srcdir/include/sdi_perl_func.pl";
|
|
|
|
my $memcached_table=$ENV{'MEMCACHED_TABLE_MAPPING'} or die;
|
|
my $sdi_id = $ENV{'SDI_ID'} or die;
|
|
my $sdi_type = $ENV{'SDI_TYPE'} or die;
|
|
|
|
sdi_switch_table($memcached_table);
|
|
|
|
sdi_get($sdi_type, $sdi_id);
|
|
sdi_disconnect();
|
|
EOF
|