40 lines
1.0 KiB
Perl
40 lines
1.0 KiB
Perl
use File::Find;
|
|
use File::Copy;
|
|
|
|
if ($ARGV[0] =~ m|^\s*$|)
|
|
{
|
|
print "Template to traverse a directory recursively.\n";
|
|
print "Usage: perl $0 TOP_DIR\n";
|
|
print "Example: perl $0 /bin\n";
|
|
exit 0;
|
|
}
|
|
|
|
@dirs = ($ARGV[0]);
|
|
|
|
open LOG, ">$ARGV[0]/SWIevent.log" or die;
|
|
|
|
$time='20060101000000000';
|
|
$defaultdm='Digits';
|
|
$grammar='digits.xml';
|
|
$language='en-GB';
|
|
$meaning='0';
|
|
$ortho='';
|
|
|
|
find ( {wanted => \&wanted},
|
|
@dirs );
|
|
|
|
sub wanted
|
|
{
|
|
if (/\.(ulaw|wav)$/)
|
|
{
|
|
$file = $_;
|
|
print LOG "TIME=$time|CHAN=0|EVNT=SWIclst|UCPU=0|SCPU=0\n";
|
|
print LOG "TIME=$time|CHAN=0|EVNT=SWIdmst|DMTP=CUST|DMNM=$defaultdm|UCPU=0|SCPU=0\n";
|
|
print LOG "TIME=$time|CHAN=0|EVNT=SWIrcst|GURI0=$grammar|GRNM=$grammar|LANG=$language|GRMT=application/srgs+xml|UCPU=0|SCPU=0\n";
|
|
print LOG "TIME=$time|CHAN=0|EVNT=SWIrcnd|RSTT=ok|RSLT=$meaning|RAWT=$ortho|SPOK=$ortho|GRMR=GURI0|CONF=999|WVNM=$file|UCPU=0|SCPU=0\n";
|
|
print LOG "TIME=$time|CHAN=0|EVNT=SWIdmnd|TSTT=Success|UCPU=0|SCPU=0\n";
|
|
print LOG "TIME=$time|CHAN=0|EVNT=SWIclnd|UCPU=0|SCPU=0\n";
|
|
}
|
|
}
|
|
|