#! /usr/bin/perl
use warnings;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use JSON;
use JSON::Parse ':all';
use Data::Dumper;
use Time::Piece ();
use feature qw( :all );
my $now = Time::Piece::localtime->strftime('%Y-%m-%d');
my $time = Time::Piece::localtime->strftime('%I:%M %P');
my $ua = LWP::UserAgent->new;
my $json = JSON->new->utf8->allow_nonref;
my $req = HTTP::Request->new(GET => 'https://api.met.gov.my/v2/data?datasetid=FORECAST&datacategoryid=GENERAL&locationid=LOCATION:300&start_date='. $now. '&end_date=' . $now);

my $filename = '/tmp/hello.txt';

$req->content_type('application/json');
$ua->ssl_opts(SSL_verify_mode => 0); #Used to ignore certificate
$ua->default_header('Authorization' => "METToken xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx");
my $response = $ua->request($req);
#my $json = decode_json($response);
if ($response->is_success) {
    #print Dumper($response->content());
    my $perlData = $json->decode($response->content());
    #my $result = Dumper($perlData);
    my $locationname=$perlData->{results}->[5]->{locationname};
    my $tempmaxunit=$perlData->{results}->[4]->{attributes}->{unit};
    my $tempmax=$perlData->{results}->[4]->{value};
    my $tempminunit=$perlData->{results}->[3]->{attributes}->{unit};
    my $tempmin=$perlData->{results}->[3]->{value};
    my $value=$perlData->{results}->[5]->{value};
    my $when=$perlData->{results}->[5]->{attributes}->{when};
    my $code=$perlData->{results}->[5]->{attributes}->{code};
    #my $str = "The time is, " . $time . " , and the location is at " . $locationname . ", today minimum temperature is at " . $tempmin . " degree " . $tempminunit . " and today maximum temperature is at " . $tempmax . " degree " . $tempmaxunit . " and as a result, today will be, " . $value . " , and , " . $when . " , " . $code . "\n";
    my $str = "The time is, " . $time . " , and the location is at " . "Sue-bung- Jar-ya-" . ", today minimum temperature is at " . $tempmin . " degree " . $tempminunit . " and today maximum temperature is at " . $tempmax . " degree " . $tempmaxunit . " and as a result, today will be, " . $value . " , and , " . $when . " , " . $code . " ..........\n";
    open(FH, '>', $filename) or die $!;
    print FH $str;
    close(FH);
    print "Writing to file successfully!\n";
    #print "Location is at " . $locationname . ", " . "today will be " . $value . " and " . $when . " " . $code . "\n";
}
else{
    print " inside failed block\n";
}

crontab your weather script in hello.txt and generate your audio via tts_audio.sh

/root/scripts/getapimetgovmy.pl && cd /tmp && tts_audio.sh /tmp/hello.txt && /usr/bin/asterisk -rx “rpt localplay 47259 /tmp/hello”

Add below crontab :-

20 3 * * * /usr/bin/curl --fail -o /tmp/DMRIds.dat -s http://www.pistar.uk/downloads/DMRIds.dat > /dev/null 2>&1

/path/update_newestdmrid_datfromtmp.sh :-

#!/bin/bash
/usr/bin/mysql --user=dbuser --password='password' -e "source /path/update_newestdmrid_datfromtmp.sql"

/path/update_newestdmrid_datfromtmp.sql :-

USE table;

CREATE TABLE IF NOT EXISTS temp_table SELECT ccs7, callsign, name FROM table LIMIT 0;

CREATE INDEX ccs7 on temp_table (ccs7) USING BTREE;
CREATE INDEX callsign on temp_table (callsign) USING BTREE;
CREATE INDEX name on temp_table (name) USING BTREE;

LOAD DATA LOCAL INFILE '/tmp/DMRIds.dat'
INTO TABLE temp_table
FIELDS TERMINATED BY '\t';

INSERT INTO table
(ccs7, callsign, name)
SELECT t1.ccs7, t1.callsign, t1.name FROM temp_table t1
WHERE NOT EXISTS(SELECT ccs7 FROM table t2
WHERE t2.ccs7 = t1.ccs7 and t2.callsign = t1.callsign);

DROP TABLE temp_table;

***remark your dbuser,password,table & temp_table to your db/user and table in MySQL database

#!/usr/bin/perl

# Use the DBI module
#use strict;
use DBI;
#use warnings;
#use LWP::Simple;
use JSON::XS qw( decode_json );
use Data::Dumper;
use String::Util qw(trim);
use LWP::Simple qw(get);
use LWP::UserAgent;

#qrz api
use Ham::Reference::QRZ;
use Data::Dumper;


my $ua = LWP::UserAgent->new();
$ua->agent('Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/74.0.3729.169 Safari/537.36');
# PERL SQL Update Example
# my $callsign = uc("9W2LWK");
sub ucwords
{
my $str = shift;
$str = lc($str);
$str =~ s/\b(\w)/\u$1/g;
return $str;
}

print "Enter callsign please: ";
my $callsign = <STDIN>;
chomp $callsign;
$callsign = uc(trim($callsign));
print "\n";
print "Please enter first name first or last name first: (0=firstnamefirst/1=lastnamefirst): ";
my $flchoice = <STDIN>;
chomp $flchoice;
$flchoice = trim($flchoice);

#-------------------------------------
# qrz.com api
#-------------------------------------

my $qrz = Ham::Reference::QRZ->new(
callsign => $callsign,
username => '9w2lwk',
password => 'xxxxxxx'
);

my $listing = $qrz->get_listing;
my $dxcc = $qrz->get_dxcc;
my $session = $qrz->get_session;

$qrz->set_callsign('9W4GWK');
#debug
print "QRZ.com Surname and lastname\n";
#print Dumper($listing);
#print Dumper($dxcc);
#print Dumper($session);
#end-debug

print "Name: $listing->{name}\n";
print "Last Name: $listing->{fname}\n";

my $fname2 = $listing->{fname};
my $name2 = $listing->{name};
#--------------------------------------
# end of qrz.com api
#--------------------------------------

#my $url = 'http://www.radioid.net/api/dmr/user/?callsign=ON2RVQ';
my $url = 'https://radioid.net/api/dmr/user/?callsign='.$callsign;
my $response = $ua->get($url);
my $content = $response->content;
#my $content = get($url);
#print $content;
die "Couldn't get $url" unless defined $content;
my $json_array = decode_json($content);
my $dsn = 'DBI:mysql:database=databasename;host=localhost';
my $db_user_name = 'dbuser';
my $db_password = 'dbpassword';
my $password = "dbpassword";

print "\n";
print "This is the contents from radioio.net : -"."\n";
print "\n";

print $content;
print "\n";
print "\n";

my $fname = $json_array->{results}->[0]->{fname};
my $surname = $json_array->{results}->[0]->{surname};
my $country = $json_array->{results}->[0]->{country};
my $state = $json_array->{results}->[0]->{state};

print "fname count:-\n";
print $fname2 =~ s/[FT]//g;
print "\n";

if (!defined $fname2)
{
print "not change";
}
else
{
$fname = $fname2;
$surname = $name2;
}

if ($flchoice eq '0')
{
$fullname = ucwords(ucwords(lc($fname)) . " " . ucwords(lc($surname)));
#my $fullname = $fname . $surname;
print "First Name = " . $fname ."\n";
print "Surname = " . $surname ."\n";
print "Full Name = " . $fullname ."\n";
}
elsif ($flchoice eq '1')
{
$fullname = ucwords(ucwords(lc($surname)) . " " . ucwords(lc($fname)));
print "First Name = " . $fname ."\n";
print "Surname = " . $surname ."\n";
print "Full Name = " . $fullname ."\n";
}
else
{
$fullname = ucwords(ucwords(lc($fname)) . " " . ucwords(lc($surname)));
print "First Name = " . $fname ."\n";
print "Surname = " . $surname ."\n";
print "Full Name = " . $fullname ."\n";
}


#print Dumper($json_array);

# Connect to the database
# Note this connection can be used to
# execute more than one statement
# on any number of tables in the database
if ($callsign eq '')
{
print "Input cannot be blank"."\n";
}
else
{
my $dbh = DBI->connect($dsn, $db_user_name, $db_password) or die "Unable to connect: $DBI::errstr\n" ;
print "Select the record out first"."\n";
my $stmt2 = "SELECT * FROM dmrid where callsign = " . "'" . trim("$callsign") . "'";
print "\n";
print $stmt2."\n";
my $sth2 = $dbh->prepare($stmt2) or die "Unable to connect: $DBI::errstr\n" ;
$sth2->execute();

my ($count) = $sth2->fetchrow_array;
if ($count == 0) {
print "NO rows fetched!\n";
#$sth2->finish();
#$dbh->disconnect();
}
else
{
print "Record found!\n";
my $dbh = DBI->connect($dsn, $db_user_name, $db_password) or die "Unable to connect: $DBI::errstr\n" ;

# Create the statement.
#print $flchoice ."\n";
print "debug: Full Name = " . $fullname ."\n";

my $fullname_ = trim($fullname);
my $stmt = "UPDATE dmrid SET name = " . $dbh->quote("$fullname_") . "," . "country = " . $dbh->quote("$country") . "," . "state = " . $dbh->quote("$state") . " WHERE callsign = " . $dbh->quote("$callsign") ;
print "\n";
print "\n";
print $stmt."\n";
# Prepare and execute the SQL query

my $sth = $dbh->prepare($stmt) or die "Unable to connect: $DBI::errstr\n" ;

# Execute the statement
$sth->execute();

$sth->finish();
$dbh->disconnect();
}

}

table structure:-

Original post and credit to : Ronald PE2KMV https://www.pe2kmv.nl/wp/en/dmr-en/sms-functions-via-dmr/

The Brandmeister network has some functions to request information via SMS messages. To access these functions specific keywords are to be sent to DMR ID 262993. Then the system responds as well via SMS on these requests. Below you’ll find an overview of these commands with some explanation. The commands are not case sensitive.

Furthermore it’s possible to route DMR messages into the DAPNet pager network. More information regarding DAPNet can be found at the website of Dutch Amateur Pagernetwork and  RWTH Aachen (Aachen University). Messages for DAPNet are to be sent to DMR ID 262994.

A pager message for DAPNet is to be sent in the format [callsign] [message], for instance PX0XXX This is a message from DMR to DAPNet . This sends a messagetext ‘This is a message from DMR to DAPNet’ to user PX0XXX . Prerequisite is that ‘PX0XXX’ is a registered DAPNet user.

Thanks to PA7LIM http://PA7lim.nl/peanut , we are now able to use computers (wind0ws), android phones (network-radio with android)  to link with DSTAR reflectors, which are linked, e.g. XLX522

in order to link to the reflector, you need an AMBE chip (USB) and running with AMBEServer application. you could either run it on a windows or a linux machine, for me i am running on a raspberry pi 3B+ as David, PA7LIM will connect to it via its server program, hence you should see PA7LIM-D always connected to XLX522 reflector.

Thanks to N4IRS , Now we can utilized the allstarlink’s asterisk USRP module to link to the Analog_bridge program/MMDVM_bridge and of course, the Software AMBE Transcoding MD380-emu.

The basic diagram of the implementation is as below:-

My analog radio Yaesu FT-7900 which connected to serial to windows Echolink (9W2LWK-R) <-> connected to Raspi3 allstarlink asterisk echolink module (9W2LWK-L) , which also connected to allstarlink node 47259 which is also connected to USRP private node 1999 (which internal link via udp port) <-> Analog_Bridge (which need to transcode the audio PCM/DMR via MD380-emu program) <-> MMDVM_Bridge <-> MY BM Master (TG50210) and back forward.

The procedures / process looks very complicated, but if you follow the step from N4IRS documents (at below link), you will get through the setup steps by steps.

Google Doc for setup Analog Bridge

The document above uses Rasbian/Debian type of linux distribution, where it utilized apt-get (Repository) to install all the dependencies, if you are someone that uses Archlinux like me, you can install the dependencies by using Pacman -S xxx command instead, and then download the individual binary version of Analog_Bridge, MMDVM_Bridge here at GitHub , the /bin directory should have the Analog_Bridge.amd64 , Analog_Bridge.armhf, Analog_Bridge.i386 | MMDVM_Bridge.amd64, MMDVM_Bridge.armhf, MMDVM_Bridge.i386 accordingly depending on your Linux architecture.

The most difficult part is the MD380-emu, where you need to compile from source from the github if you are not using Rasbian/Debian based linux.

It is a tedious process, what i did was (for armv7h architecture) , i apt-get install md380-emu from my pi-star (Rasbian) then i copy the binary over the the Archlinux (it works perfectly)

For those amateur stations who want to play around with your audio in DMR/C4FM/DSTAR , they can firstly try out Analog-digital on analog radio simplex gateway @ 148.825Mhz CTCSS 177.3Hz hosted by 9W2LWK if you are in USJ/Puchong/Putra Jaya/Cyber Jaya/Shah Alam Area

If you are on android app and you wanted to try out DMR/C4FM/DSTAR , you can use echolink 9W2LWK-L/9W2LWK-R , and listen to your own audio in Broadcastify or Brandmeister Hoseline , of course this is also applied on Analog_bridge , on 148.825Mhz

Looking forward to see new stations try out your audio in C4FM/DMR/DSTAR before jumping to digital devices like FT70D (C4FM) , MD380/390 (DMR), FTM100DR (C4FM, WiresX), Icom ID-51E (DSTAR), Motorola XPR 7550 (DMR) etc. (See my YouTube video on my previous post on how to use SDR to decode DMR signal/RF)

XLX522 Malaysia Reflector added

Link below to see what’s new update available

https://xlx.lucifernet.com/dashboard/index.php?show=news

Recently someone asked me on how to bridge the BM TG from a YSF Reflector.

Previously you would need a BM operator to link up on Brandmeister level but since YSF2DMR is available from github, theoretically we can just use the existing MMDVM’s YSF2DMR module to plug into YSFReflector since both of them is listening to localhost UDP ports.

This is what i have done for the new YSFReflector bridge to BM TG525 by using YSF2DMR

https://ysf.lucifernet.com/

The configuration is as below:-

[Info]
RXFrequency=433550000
TXFrequency=433550000
Power=1
Latitude=2.xxxx
Longitude=10x.xx9
Height=1
Location=DBKL
Description=Multi-Mode Repeater
URL=http://www.qrz.com/db/9w2lwk

[YSF Network]
Callsign=9W2LWK
#Suffix=ND
Suffix=RPT
DstAddress=127.0.0.1
DstPort=42000
LocalAddress=127.0.0.1
LocalPort=42013
EnableWiresX=1
Daemon=1

[DMR Network]
#Need to put another suffix ’01’ behind your dmrid below
Id=502224101
#XLXFile=/etc/XLXHosts.txt
#XLXReflector=950
#XLXModule=D
StartupDstId=525
# For TG call: StartupPC=0
StartupPC=1
Address=211.60.41.188
Port=62031
Jitter=500
EnableUnlink=0
TGUnlink=4000
PCUnlink=0
# Local=62032
Password=passw0rd
# Options=
TGListFile=/etc/TGList.txt
Debug=0

by look at the log above, the YSF2DMR seems working successfully.

YSF Reflector download link – https://github.com/g4klx/YSFClients

YSF2DMR download link – https://github.com/juribeparada/YSF2DMR

** updated on 16-04-2018

The YSF2DMR on server works but not in an optimal condition whereby some of the DMR stations could not hear the station from YSF, hence a more stable and reliable connection would be operator connection directly from Brandmeister. I contacted 9W2POP (https://www.dmrnet.org) and have the TG525 linked to SINGAPORE YSF-V2