Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
Msg.mmp	30 B	-r--r--r--	2014-12-27 11:49
Msg.pkg	406 B	-r--r--r--	2014-12-27 11:49
Msg.pm	148 B	-r--r--r--	2014-12-27 11:49
Msg.xs	1.35 KB	-r--r--r--	2014-12-27 11:49
README	1.7 KB	-r--r--r--	2014-12-27 11:49
bld.inf	50 B	-r--r--r--	2014-12-27 11:49
location.pl	179 B	-r--r--r--	2014-12-27 11:49

Rename

#include <eikenv.h>
#include <e32std.h>

#include "etelbgsm.h" // From Symbian 6.1 SDK (the Communicator SDK)

#ifdef __cplusplus
extern "C" {
#endif
#include "PerlBase.h"
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#ifdef __cplusplus
}
#endif

_LIT(KTsyName, "phonetsy.tsy");

#define XS_SYMBIAN_OR_EMPTY(e, c) errno = (e) = (c); if ((e) != KErrNone) XSRETURN_EMPTY

MODULE = Moped::Msg	PACKAGE = Moped::Msg

PROTOTYPES: ENABLE

extern "C" void
get_gsm_network_info()
    PREINIT:
	TInt			error;
	TInt			enumphone;
	RTelServer		server;
	RBasicGsmPhone		phone;
	RTelServer::TPhoneInfo	info;
	MBasicGsmPhoneNetwork::TCurrentNetworkInfo networkinfo;
    PPCODE:
	if (GIMME != G_ARRAY)
	    XSRETURN_UNDEF;
	XS_SYMBIAN_OR_EMPTY(error, server.Connect());
	XS_SYMBIAN_OR_EMPTY(error, server.LoadPhoneModule(KTsyName));
	XS_SYMBIAN_OR_EMPTY(error, server.EnumeratePhones(enumphone));
	if (enumphone < 1)
	    XSRETURN_EMPTY;
	XS_SYMBIAN_OR_EMPTY(error, server.GetPhoneInfo(0, info));
	XS_SYMBIAN_OR_EMPTY(error, phone.Open(server, info.iName));
	XS_SYMBIAN_OR_EMPTY(error, phone.GetCurrentNetworkInfo(networkinfo));
	EXTEND(SP, 4);
	PUSHs(sv_2mortal(newSViv(networkinfo.iNetworkInfo.iId.iMCC)));
	PUSHs(sv_2mortal(newSViv(networkinfo.iNetworkInfo.iId.iMNC)));
	PUSHs(sv_2mortal(newSViv(networkinfo.iLocationAreaCode)));
	PUSHs(sv_2mortal(newSViv(networkinfo.iCellId)));