How i can make change it

Asterisk Asterisk Support
1

how i can change this file agi to simple file extension because i have some problem with perl in my server !!!

$AGI->stream_file($soupath.“INTRO1”);

$AGI->stream_file($soupath.“P000”);
$AGI->stream_file(‘beep’);
$AGI->stream_file($soupath.“s005”);

$AGI->stream_file($soupath.“P001”);
$AGI->stream_file(‘beep’);
$AGI->stream_file($soupath.“s005”);

$AGI->stream_file($soupath.“P002”);
$AGI->stream_file(‘beep’);
$AGI->stream_file($soupath.“s005”);

$AGI->stream_file($soupath.“P003”);
$AGI->stream_file(‘beep’);
$AGI->stream_file($soupath.“s005”);

$AGI->stream_file($soupath.“P004”);
$AGI->stream_file(‘beep’);
$AGI->stream_file($soupath.“s005”);

$AGI->stream_file($soupath.“P005”);
$AGI->stream_file(‘beep’);
$AGI->stream_file($soupath.“s005”);

$qq=$AGI->get_data($soupath.“P006”,“3000”.“1”);
if($qq ne “1”)
{
$AGI->stream_file(‘beep’);
$AGI->stream_file($soupath.“s005”);
}

$AGI->stream_file($soupath.“P007”);
$AGI->stream_file(‘beep’);
$AGI->stream_file($soupath.“s005”);

$AGI->stream_file($soupath.“P008”);
$AGI->stream_file(‘beep’);
$AGI->stream_file($soupath.“s005”);

$AGI->stream_file($soupath.“P010”);
$AGI->stream_file(‘beep’);
$AGI->stream_file($soupath.“s005”);

$AGI->stream_file($soupath.“P011”);
$AGI->stream_file(‘beep’);
$AGI->stream_file($soupath.“s005”);

$AGI->stream_file($soupath.“P012”);
$AGI->stream_file(‘beep’);
$AGI->stream_file($soupath.“s005”);

$AGI->stream_file($soupath.“P013”);
$AGI->stream_file(‘beep’);
$AGI->stream_file($soupath.“s005”);

$AGI->stream_file($soupath.“P014”);
$AGI->stream_file(‘beep’);
$AGI->stream_file($soupath.“s005”);

$AGI->stream_file($soupath.“P015”);
$AGI->stream_file(‘beep’);
$AGI->stream_file($soupath.“s005”);

$AGI->stream_file($soupath.“P016”);
$AGI->stream_file(‘beep’);
$AGI->stream_file($soupath.“s005”);

$AGI->stream_file($soupath.“P017”);
$AGI->stream_file(‘beep’);
$AGI->stream_file($soupath.“s005”);

$AGI->stream_file($soupath.“P018”);
$AGI->stream_file(‘beep’);
$AGI->stream_file($soupath.“s005”);

$AGI->stream_file($soupath.“P019”);
$AGI->stream_file(‘beep’);
$AGI->stream_file($soupath.“s005”);

$AGI->stream_file($soupath.“P020”);
$AGI->stream_file(‘beep’);
$AGI->stream_file($soupath.“s005”);

$AGI->stream_file($soupath.“P021”);

$AGI->stream_file($soupath.“P022”);
$AGI->stream_file(‘beep’);
$AGI->stream_file($soupath.“s005”);

$AGI->stream_file($soupath.“P023”);
$AGI->stream_file(‘beep’);
$AGI->stream_file($soupath.“s005”);

$AGI->stream_file($soupath.“P024”);
$AGI->stream_file($soupath.“PC”);

$AGI->stream_file($soupath.“END5”);

exit();

2

exten => _X.,n,Answer();
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/INTRO1);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/P000);
exten => _X.,n,Playback(beep);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/s005);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/P001);
exten => _X.,n,Playback(beep);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/s005);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/P002);
exten => _X.,n,Playback(beep);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/s005);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/P003);
exten => _X.,n,Playback(beep);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/s005);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/P004);
exten => _X.,n,Playback(beep);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/s005);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/P005);
exten => _X.,n,Playback(beep);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/s005);

$qq=exten => _X.,n,get_data(“var/lib/asterisk/ChequeFrBulk/sounds/P006”,“3000”.“1”);
if($qq ne “1”)
{
exten => _X.,n,Playback(beep);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/s005);
}

exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/P007);
exten => _X.,n,Playback(beep);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/s005);

exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/P008);
exten => _X.,n,Playback(beep);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/s005);

exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/P010);
exten => _X.,n,Playback(beep);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/s005);

exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/P011);
exten => _X.,n,Playback(beep);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/s005);

exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/P012);
exten => _X.,n,Playback(beep);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/s005);

exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/P013);
exten => _X.,n,Playback(beep);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/s005);

exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/P014);
exten => _X.,n,Playback(beep);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/s005);

exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/P015);
exten => _X.,n,Playback(beep);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/s005);

exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/P016);
exten => _X.,n,Playback(beep);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/s005);

exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/P017);
exten => _X.,n,Playback(beep);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/s005);

exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/P018);
exten => _X.,n,Playback(beep);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/s005);

exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/P019);
exten => _X.,n,Playback(beep);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/s005);

exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/P020);
exten => _X.,n,Playback(beep);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/s005);

exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/P021);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/P022);
exten => _X.,n,Playback(beep);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/s005);

exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/P023);
exten => _X.,n,Playback(beep);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/s005);

exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/P024);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/PC);
exten => _X.,n,Playback(/var/lib/asterisk/ChequeFrBulk/sounds/END5);
exten => _X.,n,Hangup();

it’s ok or no !!! please give me idea