freeswitch/scripts/perl/fax.cgi

#!/usr/bin/perl
# Simple Fax Test
#
# 
#
use CGI qw(:standard);
use ESL;
use Data::Dumper;
use Data::UUID;
use XML::Simple;

# Replace Your CID Here
my $cid_num = "1NXXNXXXXXX";

my $q = new CGI; 
my $c = new ESL::ESLconnection("127.0.0.1", "8021", "ClueCon");

my $action = $q->param('action');

if($action eq 'log') {
    my $uuid = $q->param('uuid');
    
    if($uuid =~ m/^[0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}$/) {
	if(-e "/tmp/$uuid.log") {
	    print $q->header('text/plain');
	    open(LOG, "</tmp/$uuid.log");
	    while (<LOG>) { print $_; }
	    close(LOG);
	} else {
	    print $q->header();
	    if(check_call($uuid)) {
		my $pages = pages_sent($uuid);
		print $q->start_html(-title=> 'FreeSWITCH Fax Results',
				     -head =>meta({-http_equiv => 'Refresh',
						   -content => "10;fax.cgi?uuid=$uuid&action=log"})),
		font({-color=>'black', -face=>'Arial', -size=>'4'}),
		"$pages pages(s) sent , Waiting on fax to complete.  Please Wait! Page will reload again in 10 seconds.",br,br,
		end_html;
	    } else {
		print $q->start_html(-title=> 'FreeSWITCH Fax Failed'),
		font({-color=>'black', -face=>'Arial', -size=>'4'}),
		"Fax call appears to have failed.",br,br,
		end_html;
	    }
	}
    }
} elsif ($action eq 'fax') {
    print $q->header;
    
    my $file    = '/var/www/fax.tif';
    my $fax     = $q->param('fax');
    my $ecm     = $q->param('ecm')   || 'false';
    my $v17     = $q->param('v17')   || 'false';
    my $t38     = $q->param('t38')   || 'false';
    my $large   = $q->param('large') || 'false';
    my $gateway = $q->param('gateway');
    my $refresh = 10;
    my $ug    = new Data::UUID;
    my $buuid = $ug->create();
    my $uuid  = $ug->to_string( $buuid );
    
    $fax =~ s/\D+//g;
    
    if($fax =~ m/^(1[2-9]\d{2}[2-9]\d{6})$/) {
	
	if($large eq 'true') {
	    $file = '/var/www/fax_large.tif';
	    $refresh = 60;
	} 
	
	my $e   = $c->sendRecv("api bgapi originate {fax_ident='FreeSWITCH Test Fax',fax_header='FreeSWITCH Test Fax',api_hangup_hook='system /bin/grep $uuid  /usr/local/freeswitch/log/freeswitch.log > /tmp/$uuid.log',origination_uuid=$uuid,fax_disable_v17=$v17,fax_use_ecm=$ecm,origination_caller_id_number=$cid_num,fax_verbose=true,fax_enable_t38=$t38,ignore_early_media=true,fax_enable_t38_request=$t38,t38_passthru=false,absolute_codec_string=PCMU}sofia/gateway/$gateway/$fax &txfax($file)");
	my $res = $e->getBody();
	print $q->start_html(-title=> 'FreeSWITCH Fax Results',
			     -head =>meta({
				 -http_equiv => 'Refresh', 
				 -content => "$refresh;fax.cgi?uuid=$uuid&action=log"})),br
	    font({-color=>'black', -face=>'Arial', -size=>'4'}),
	    "API Results: $res",br,br
	    "Send 10 Pages: $large",br,
	    "Enable T.38: $t38",br,
	    "Enable ECM: $ecm",br,
	    "Disable V17: $v17",br,
	    "Via Gateway: $gateway", br,br,
	    "Fax is queued to $fax immediately and will not retry on failure.",br,br
	    "Your log UUID is $uuid, wait here the page will reload showing you the results once complete",br,br,
	    end_html;
    } else {
	print "Invalid Number 1NXXNXXXXXX Only!";
    }
} else {
    my @gateways = load_gateways();

    print $q->header;

    print $q->start_html(-title=> 'FreeSWITCH Test Fax'), start_form,
    img( {-src => "data:image/png;base64," . <DATA>  }),br,br,font({-color=>'black', -face=>'Arial', -size=>'4'}),
    "Call will be coming from $cid_num",br,br,
    "Customer Fax Number: ", textfield('fax'),br,
    br,"Fax options:",br,hidden('action', 'fax'),
    br,checkbox(-label => 'Send 10 Pages', -name => "large", -value => 'true',  -selected => 0), br,
    br,checkbox(-label => 'Enable T.38',   -name => "t38",   -value => 'true',  -selected => 1), br,
    br,checkbox(-label => 'Enable ECM',    -name => "ecm",   -value => 'true',  -selected => 1), br,
    br,checkbox(-label => 'Disable v.17',  -name => "v17",   -value => 'true',  -selected => 0), br,
    br,'Using Gateway:',popup_menu(        -name=>'gateway', -values => \@gateways),br,
    br,submit('SEND FAX'),end_form,end_html;
}

sub check_call {
    my $uuid = shift;
    my $e   = $c->api("uuid_getvar $uuid uuid");
    my $res = $e->getBody();
    if($res =~ m/No such channel/) {
	return 0;
    }
    return 1;
}

sub pages_sent {
    my $uuid = shift;
    my $e   = $c->api("uuid_getvar $uuid fax_document_transferred_pages");
    my $res = $e->getBody();
    if ($res =~ /_undef_/) { return 0 };
    return $res;
}

# Query FreeSWITCH for gateway list to populate the test rig.
sub load_gateways {
    my $e     = $c->api('sofia xmlstatus gateways');
    my $gwxml = $e->getBody();
    
    my $ref = XMLin($gwxml);
    my @gateways;
    
    foreach my $key (keys %{ $ref->{gateway} }) {
	push @gateways, $key;
    }
    return @gateways;
}


__DATA__
iVBORw0KGgoAAAANSUhEUgAAAM8AAAA4CAYAAABaFqz+AAAAB3RJTUUH3gUGFgwghhu3VQAAAAlwSFlzAAALEwAACxMBAJqcGAAAAARnQU1BAACxjwv8YQUAADOGSURBVHja7V0JgFTFma6q9153zwzXzDAzMIAHXhxqDm/AOBuvIF5oht1ssrvJblYDHon3kURbc2i8UBHPrEk2cV2dqBEVFS/Eg6hBowkaFRUVhrlhDqanu9+r2u+vqvf6mEYEjag7BT3d/frV/d//X//j7HNZkgIvWTftzNrA8a9mnB2Bi28xLs7sePKqJ8Lft/Uoh8pnu4htPYC/Q+EaMRobncDJXsu9+DdwbTh3Yl9mSv137bRTdtK/J5Ofx7kPlU+wfP4AKJnk9FbdMn4vxvnxys/QV64C3+deYnzgxY43923rgQ6Vz3r5HCJP+EHtxYXn0geIa1zPVeEjU3sbrqPFNr6thztUPrvl84c87EJFf7kQO4DzMP1i4TuQh/MJ9fc1J8y9alsPdqh8hsvnEHls4awaGEQflOEvFokUr+ofXh8zN100xHmGylYXd1sP4OMvFh8Ui2vOwnnAicFwLiG2CSZELO71xbb1KIfKZ798DpHHFs6HcScOVMp4RmQDlxUuU356lO/HvW09vKHy2S9bKrbxvNenunAu3md+f5dS8h0mg/eUDFYrP9MCneeNBJcD5q4LP61Kj5YvzevTv9b/X8uH25jGRoc1TVUFjkWyWK1cydlUXE8mCQi3FSCSX4drKxuNhzUyNvVVVftUpsbPDsRiKj6gyrKcpzzll3NXKu52rfVa2ZSVga6tx08fCJH0cmyLeXBtYl85BQNowv+moODXxjux/nPkNlzjoVKibAZ5iPJdxCOkaUi6rB3camUyM/heIFMy/Kj/fJwIxU1TF/EC/8zfA2mLnad/l7kki+cxONqB1roGa92Ut9Y0tuRQZMSnpfDN/KYBZvSMuXsx5hyllNodXz3FVSuX/C3m8Ncdxd+RauPbHc/c2ju4CSBf4xyxddzJ1qVSTInzyg4NyURftr/KjfFKydlIjKs8EKoMo6/gTMS5kuX6RiHIUJ2GGJcWyulnQvUryVPMUT1uwNen4976rgeTPZscjua04AzgalsMwJurC0SpibMduOI7CsF3wRjxYuOxAXH8+g4W7Ym2JWzRUEjRp6vwD7iuRk07aXvH0MjjuBMbkYN94zdRAYiiUu24uhYfXueKvQiEWiEG1Mp26XeyFTdnt2wsJBla83ERkNXvdUJ5UDGiLqvUrhjTJMn5RAxhR6FUneJiBGoPRxPD8KrgwnGZQ3YCwbS5mkcWOLzQrArw5tOVjfixD78T4tOrA7e8ixrvSO68gfe/ZWTi/fWPntOjTd5RsYhtRNkt5kqjjk2OKk95EwMR7I2mvozB7IH2x9M0uRtzzVJYKQ3jV/4A+XeXccEvbn3owsdYHmEbKtuubAJ5SFzjavSMeeA2fCEQZ4IFONpNn+WMBo4GUOGYapLukbTrzfj1JbyeZ5L9RSjx3kA8/X7v0ps7BvcFqtwIXaWIu1Ttd8oIHnMncca/gHb2Avx/AQC0KwB9JF4OFy7gyqGPkSNU0T8/TdW7caVbEXJwPoA2sorqaEquwIkEEYJK7iZ0O9GsCR4lWbR9Al58Ef1o+l1cfgWA+yI470t+1n2t8/EfrS2cgtX/SnDI8Y1Xlcnuge0DHoxHG5PQ+N6Yx74Y7o6YQILmoMev146qA2sUM5jDyaCDcTsxQiAQInVZ6wHsAktYhhBoG5fNim3D9z2pGlr3LIgUJ2CnpnNQdE21lQry6oebqL2SBAx0HxfY9Gw/AcWT3HEu7HhqwZMWMZmW+4uQpvbg79epAXWQcsRX0QaoMtsVlHh4SIkVUWO0LYSnv0vN+tg68IRXcP2vuO1NgPx7whFdLBP0STfWH5cD6ZTrZiucMiftsJjw/TIm+TDUHon2xwkhdgKBmIL6QFIFgHbAubyIQxHl1whGHCBIE2C/hcm+goku9Tl/pOOh4M2cOBVypCZploSr6iN/Os4NAPCM/YuIDysjFiKzKctZdJEGa2ndlMVgphFGz1n6b+Htt9INbu9YnHxjWwPMUMmVzVnbIuq2Q8O3E31++aEAtO/i6yHY3HKDRAG224o0mgFAaid/SpDZAFB6CJfuzLiJp3rZ8A1saTJgjY0iH2Hqpn2v1hex6ah7FKDnYDSwHXc93ZilxCT6AYIdhxCSBRnIMOxFJfjT6PUJXHuprerNjg/Siz7MOlTNTA6PSYiDin0FYz4Il/YB4tYRsBuOy3wMydOIBW6hgixgXa3Hr8sxlvskE493LD4/B9x5hofRL5ZVOH5AprQ54F7HYMw75drlwCJp9wG8yQXBCbCu0n8Bc/+dijl3tC36Yeu2BpShMrh8CFO1taLl6SBV0046AKD9Lc55IxNuTb4uBJGnBQDyOxHw2zv+uPDFor4iMaN62rx9lHD+CW18DaLLFM7dHHcBcQbiBZxELcfTAZ1gdG9pO64Si0eWDzy/6sEF6UFDJZN6WCITNJXQn3NRoUlbm4XvlIX6jCn1hyUnBcw5FAxnDnqfQQ5XJbM0lKxmnZxBbnRYKHYpP0MA/gQIye3e8MQja5pOT5nlK7SQESfyAmc2JvnvQMIvaZ1Mc1RCyAx1sATz/rVwM4ub70v2m1oRR/soBGKofMxlSxxwvJhr1Bwwb2clxL8CuOjMTBlev/Ed/svuZde9o28gwLmv2YkMB1OTsdGV7YdBmP93NHcoEGOYvk4UmMJnwuhNKCjgPsLoIMGf8PdWNy7ual1yRVs0GkKUCEGSIfBvrQ6QM1YY3SXyqYxvPK3M7636Bwzwu7hwpHDjnpEWWaBRSBeBEQsguo5goLovovatvlR/6Hj4h+v0LWR67m3m4VqA043wRKwRDczDvROAlEuEYDetK9/5WdY0x6yx9u80lkTuobLty9Z4rwchUVXDKeOddJBoX379quiehqQDMU2btAhwqrLtxwHW5gI/GozeFJDeJIloa7JrLGKBEc9I7PNfgVh0TTyrbl+zfH6qqO9NOQwLLXaawxQVQjgqSf1n05ayCDlzXGPM137SoJj4AZSuY7RoKrOSh9YKbnUXQiKtI3ESMd/Elf/2mfhl++KzW0y/Vpyz7W4365LKjOD1LfeduzLX9xDSfBbKRwn94IOU/mToKDVAOXLG3EqXiQYA0Kn4fhD0JE6iD6rS/QL8xRoPwHXokxMTQJr1gJmrMxl2Xc/y+V263VIRDiTKRGZtHR3wEQDNtlUyYiLfCKAxU4yZGTsOyHEB9JM9SPfBVeJCjr1dkTKkF0h4GlGg25AudDNXzu/XLT7zXdNusZXRjuEjz2WofFLlY4qbCpXjELjNYbOqafO+Dgz5HY+Vx+lEp9KQps8JODw8Z0PcRoDbaJnff0gweU7bU9e8opvRSFOgkxjOU8QRotKYjFV3ZmuEo2ocFRulhBwumYxzCQmQQFsJMp9tFFx1K5d1BE5Ze8eic0o4d6mfO8Ug6m/CZDSwa46h+LlAojPASR1Mja470aoqjUE+F9wTXhlxWTCi1PzWB84+vbCrEGmGHKCftfJ3DTokx2YqnpjIefCvkGv+EXrMdkS7IbJJrS5AZIOI5uB7GuQ62SlGXqFFvUJOw8Oj1fkAVn9UsjzT1z9BMGcqeNgXcWkyEHIHtFMDgKaogjL9Ms4gUwkAjU8DaDGlFE/h8gZ08h7G8gZw92URiJcFy65e83CyKzeL0GAScgTiRE0iRKIxR152BBBjPnfju0IXCsVJDoIgtHjqp/sg0C3GxVvizF/x3gPnbhjiLJ+P8olF7FZ95fQJXGa+iS6/JZzYVH2RTL4y8xa07e91Lp3/qL6mEceKMvmfmQnF6RUD0xxoVFLxaeBhX4a0VKkdtdqvZCUngt/AJ05H1qpecBwyM5OYCKTiIwHokZXMmoyNjAYkBj6/CkVsOVdimfLk0gIzcb4uokVUg1Cjj/5FvSv5TWj3SGrP+IQyHZBGf4+5/br13rOe29YbPVQ+/vL3Rh7DNZL00XCN4Q1njE4EwZEAWehBvF8Ewb+1PbvgrQIRzZh3I72j+itnTxYup8Q