From 4f1bc49076e1f6a822df63e4bd19b123e835076a Mon Sep 17 00:00:00 2001 From: Jon Warbrick Date: Fri, 27 Nov 2015 09:46:55 +0000 Subject: [PATCH] Initial commit -- packaging in progress --- MANIFEST | 2 + MYMETA.json | 42 + MYMETA.yml | 23 + Makefile | 839 ++++++++++++++++++ Makefile.PL | 12 + Send.pm | 262 ++++++ Ucam-SMS-Send-1.00.tar.gz | Bin 0 -> 2340 bytes Ucam-SMS-Send-1.tar.gz | Bin 0 -> 2136 bytes blib/arch/.exists | 0 blib/arch/auto/Ucam/SMS/Send/.exists | 0 blib/bin/.exists | 0 blib/lib/Ucam/SMS/.exists | 0 blib/lib/Ucam/SMS/Send.pm | 262 ++++++ blib/lib/auto/Ucam/SMS/Send/.exists | 0 blib/man1/.exists | 0 blib/man3/.exists | 0 blib/script/.exists | 0 build/BUILD/Ucam-SMS-Send-1.00/META.json | 42 + build/BUILD/Ucam-SMS-Send-1.00/META.yml | 23 + build/BUILD/Ucam-SMS-Send-1.00/MYMETA.json | 42 + build/BUILD/Ucam-SMS-Send-1.00/MYMETA.yml | 23 + build/BUILD/Ucam-SMS-Send-1.00/Makefile | 839 ++++++++++++++++++ build/BUILD/Ucam-SMS-Send-1.00/Makefile.PL | 12 + build/BUILD/Ucam-SMS-Send-1.00/Send.pm | 262 ++++++ .../Ucam-SMS-Send-1.00/blib/arch/.exists | 0 .../blib/arch/auto/Ucam/SMS/Send/.exists | 0 .../BUILD/Ucam-SMS-Send-1.00/blib/bin/.exists | 0 .../blib/lib/Ucam/SMS/.exists | 0 .../blib/lib/Ucam/SMS/Send.pm | 262 ++++++ .../blib/lib/auto/Ucam/SMS/Send/.exists | 0 .../Ucam-SMS-Send-1.00/blib/man1/.exists | 0 .../Ucam-SMS-Send-1.00/blib/man3/.exists | 0 .../Ucam-SMS-Send-1.00/blib/script/.exists | 0 build/BUILD/Ucam-SMS-Send-1.00/pm_to_blib | 0 .../perl/5.18.2/auto/Ucam/SMS/Send/.packlist | 2 + .../usr/local/lib/perl/5.18.2/perllocal.pod | 22 + .../local/share/perl/5.18.2/Ucam/SMS/Send.pm | 262 ++++++ build/SOURCES/Ucam-SMS-Send-1.00.tar.gz | Bin 0 -> 2340 bytes build/SPECS/perl-Ucam-SMS-Send.spec | 52 ++ build_rpm.sh | 18 + perl-Ucam-SMS-Send.spec | 52 ++ pm_to_blib | 0 42 files changed, 3355 insertions(+) create mode 100644 MANIFEST create mode 100644 MYMETA.json create mode 100644 MYMETA.yml create mode 100644 Makefile create mode 100644 Makefile.PL create mode 100644 Send.pm create mode 100644 Ucam-SMS-Send-1.00.tar.gz create mode 100644 Ucam-SMS-Send-1.tar.gz create mode 100644 blib/arch/.exists create mode 100644 blib/arch/auto/Ucam/SMS/Send/.exists create mode 100644 blib/bin/.exists create mode 100644 blib/lib/Ucam/SMS/.exists create mode 100644 blib/lib/Ucam/SMS/Send.pm create mode 100644 blib/lib/auto/Ucam/SMS/Send/.exists create mode 100644 blib/man1/.exists create mode 100644 blib/man3/.exists create mode 100644 blib/script/.exists create mode 100644 build/BUILD/Ucam-SMS-Send-1.00/META.json create mode 100644 build/BUILD/Ucam-SMS-Send-1.00/META.yml create mode 100644 build/BUILD/Ucam-SMS-Send-1.00/MYMETA.json create mode 100644 build/BUILD/Ucam-SMS-Send-1.00/MYMETA.yml create mode 100644 build/BUILD/Ucam-SMS-Send-1.00/Makefile create mode 100644 build/BUILD/Ucam-SMS-Send-1.00/Makefile.PL create mode 100644 build/BUILD/Ucam-SMS-Send-1.00/Send.pm create mode 100644 build/BUILD/Ucam-SMS-Send-1.00/blib/arch/.exists create mode 100644 build/BUILD/Ucam-SMS-Send-1.00/blib/arch/auto/Ucam/SMS/Send/.exists create mode 100644 build/BUILD/Ucam-SMS-Send-1.00/blib/bin/.exists create mode 100644 build/BUILD/Ucam-SMS-Send-1.00/blib/lib/Ucam/SMS/.exists create mode 100644 build/BUILD/Ucam-SMS-Send-1.00/blib/lib/Ucam/SMS/Send.pm create mode 100644 build/BUILD/Ucam-SMS-Send-1.00/blib/lib/auto/Ucam/SMS/Send/.exists create mode 100644 build/BUILD/Ucam-SMS-Send-1.00/blib/man1/.exists create mode 100644 build/BUILD/Ucam-SMS-Send-1.00/blib/man3/.exists create mode 100644 build/BUILD/Ucam-SMS-Send-1.00/blib/script/.exists create mode 100644 build/BUILD/Ucam-SMS-Send-1.00/pm_to_blib create mode 100644 build/BUILDROOT/perl-Ucam-SMS-Send-1.00-1.x86_64/usr/local/lib/perl/5.18.2/auto/Ucam/SMS/Send/.packlist create mode 100644 build/BUILDROOT/perl-Ucam-SMS-Send-1.00-1.x86_64/usr/local/lib/perl/5.18.2/perllocal.pod create mode 100644 build/BUILDROOT/perl-Ucam-SMS-Send-1.00-1.x86_64/usr/local/share/perl/5.18.2/Ucam/SMS/Send.pm create mode 100644 build/SOURCES/Ucam-SMS-Send-1.00.tar.gz create mode 100644 build/SPECS/perl-Ucam-SMS-Send.spec create mode 100755 build_rpm.sh create mode 100644 perl-Ucam-SMS-Send.spec create mode 100644 pm_to_blib diff --git a/MANIFEST b/MANIFEST new file mode 100644 index 0000000..bfba1a8 --- /dev/null +++ b/MANIFEST @@ -0,0 +1,2 @@ +Makefile.PL +Send.pm diff --git a/MYMETA.json b/MYMETA.json new file mode 100644 index 0000000..8832f1c --- /dev/null +++ b/MYMETA.json @@ -0,0 +1,42 @@ +{ + "abstract" : "unknown", + "author" : [ + "unknown" + ], + "dynamic_config" : 0, + "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.120921", + "license" : [ + "unknown" + ], + "meta-spec" : { + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", + "version" : "2" + }, + "name" : "Ucam-SMS-Send", + "no_index" : { + "directory" : [ + "t", + "inc" + ] + }, + "prereqs" : { + "build" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + }, + "configure" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + }, + "runtime" : { + "requires" : { + "HTML::Entities" : "0", + "LWP::UserAgent" : "0" + } + } + }, + "release_status" : "stable", + "version" : "1.00" +} diff --git a/MYMETA.yml b/MYMETA.yml new file mode 100644 index 0000000..b62d70e --- /dev/null +++ b/MYMETA.yml @@ -0,0 +1,23 @@ +--- +abstract: unknown +author: + - unknown +build_requires: + ExtUtils::MakeMaker: 0 +configure_requires: + ExtUtils::MakeMaker: 0 +dynamic_config: 0 +generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.120921' +license: unknown +meta-spec: + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: 1.4 +name: Ucam-SMS-Send +no_index: + directory: + - t + - inc +requires: + HTML::Entities: 0 + LWP::UserAgent: 0 +version: 1.00 diff --git a/Makefile b/Makefile new file mode 100644 index 0000000..b3bf955 --- /dev/null +++ b/Makefile @@ -0,0 +1,839 @@ +# This Makefile is for the Ucam::SMS::Send extension to perl. +# +# It was generated automatically by MakeMaker version +# 6.66 (Revision: 66600) from the contents of +# Makefile.PL. Don't edit this file, edit Makefile.PL instead. +# +# ANY CHANGES MADE HERE WILL BE LOST! +# +# MakeMaker ARGV: () +# + +# MakeMaker Parameters: + +# BUILD_REQUIRES => { } +# CONFIGURE_REQUIRES => { } +# NAME => q[Ucam::SMS::Send] +# PREREQ_PM => { LWP::UserAgent=>q[0], HTML::Entities=>q[0] } +# TEST_REQUIRES => { } +# VERSION_FROM => q[Send.pm] + +# --- MakeMaker post_initialize section: + + +# --- MakeMaker const_config section: + +# These definitions are from config.sh (via /usr/lib/perl/5.18/Config.pm). +# They may have been overridden via Makefile.PL or on the command line. +AR = ar +CC = cc +CCCDLFLAGS = -fPIC +CCDLFLAGS = -Wl,-E +DLEXT = so +DLSRC = dl_dlopen.xs +EXE_EXT = +FULL_AR = /usr/bin/ar +LD = cc +LDDLFLAGS = -shared -L/usr/local/lib -fstack-protector +LDFLAGS = -fstack-protector -L/usr/local/lib +LIBC = +LIB_EXT = .a +OBJ_EXT = .o +OSNAME = linux +OSVERS = 3.2.0-58-generic +RANLIB = : +SITELIBEXP = /usr/local/share/perl/5.18.2 +SITEARCHEXP = /usr/local/lib/perl/5.18.2 +SO = so +VENDORARCHEXP = /usr/lib/perl5 +VENDORLIBEXP = /usr/share/perl5 + + +# --- MakeMaker constants section: +AR_STATIC_ARGS = cr +DIRFILESEP = / +DFSEP = $(DIRFILESEP) +NAME = Ucam::SMS::Send +NAME_SYM = Ucam_SMS_Send +VERSION = 1.00 +VERSION_MACRO = VERSION +VERSION_SYM = 1_00 +DEFINE_VERSION = -D$(VERSION_MACRO)=\"$(VERSION)\" +XS_VERSION = 1.00 +XS_VERSION_MACRO = XS_VERSION +XS_DEFINE_VERSION = -D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\" +INST_ARCHLIB = blib/arch +INST_SCRIPT = blib/script +INST_BIN = blib/bin +INST_LIB = blib/lib +INST_MAN1DIR = blib/man1 +INST_MAN3DIR = blib/man3 +MAN1EXT = 1p +MAN3EXT = 3pm +INSTALLDIRS = site +DESTDIR = +PREFIX = /usr +PERLPREFIX = $(PREFIX) +SITEPREFIX = $(PREFIX)/local +VENDORPREFIX = $(PREFIX) +INSTALLPRIVLIB = $(PERLPREFIX)/share/perl/5.18 +DESTINSTALLPRIVLIB = $(DESTDIR)$(INSTALLPRIVLIB) +INSTALLSITELIB = $(SITEPREFIX)/share/perl/5.18.2 +DESTINSTALLSITELIB = $(DESTDIR)$(INSTALLSITELIB) +INSTALLVENDORLIB = $(VENDORPREFIX)/share/perl5 +DESTINSTALLVENDORLIB = $(DESTDIR)$(INSTALLVENDORLIB) +INSTALLARCHLIB = $(PERLPREFIX)/lib/perl/5.18 +DESTINSTALLARCHLIB = $(DESTDIR)$(INSTALLARCHLIB) +INSTALLSITEARCH = $(SITEPREFIX)/lib/perl/5.18.2 +DESTINSTALLSITEARCH = $(DESTDIR)$(INSTALLSITEARCH) +INSTALLVENDORARCH = $(VENDORPREFIX)/lib/perl5 +DESTINSTALLVENDORARCH = $(DESTDIR)$(INSTALLVENDORARCH) +INSTALLBIN = $(PERLPREFIX)/bin +DESTINSTALLBIN = $(DESTDIR)$(INSTALLBIN) +INSTALLSITEBIN = $(SITEPREFIX)/bin +DESTINSTALLSITEBIN = $(DESTDIR)$(INSTALLSITEBIN) +INSTALLVENDORBIN = $(VENDORPREFIX)/bin +DESTINSTALLVENDORBIN = $(DESTDIR)$(INSTALLVENDORBIN) +INSTALLSCRIPT = $(PERLPREFIX)/bin +DESTINSTALLSCRIPT = $(DESTDIR)$(INSTALLSCRIPT) +INSTALLSITESCRIPT = $(SITEPREFIX)/bin +DESTINSTALLSITESCRIPT = $(DESTDIR)$(INSTALLSITESCRIPT) +INSTALLVENDORSCRIPT = $(VENDORPREFIX)/bin +DESTINSTALLVENDORSCRIPT = $(DESTDIR)$(INSTALLVENDORSCRIPT) +INSTALLMAN1DIR = $(PERLPREFIX)/share/man/man1 +DESTINSTALLMAN1DIR = $(DESTDIR)$(INSTALLMAN1DIR) +INSTALLSITEMAN1DIR = $(SITEPREFIX)/man/man1 +DESTINSTALLSITEMAN1DIR = $(DESTDIR)$(INSTALLSITEMAN1DIR) +INSTALLVENDORMAN1DIR = $(VENDORPREFIX)/share/man/man1 +DESTINSTALLVENDORMAN1DIR = $(DESTDIR)$(INSTALLVENDORMAN1DIR) +INSTALLMAN3DIR = $(PERLPREFIX)/share/man/man3 +DESTINSTALLMAN3DIR = $(DESTDIR)$(INSTALLMAN3DIR) +INSTALLSITEMAN3DIR = $(SITEPREFIX)/man/man3 +DESTINSTALLSITEMAN3DIR = $(DESTDIR)$(INSTALLSITEMAN3DIR) +INSTALLVENDORMAN3DIR = $(VENDORPREFIX)/share/man/man3 +DESTINSTALLVENDORMAN3DIR = $(DESTDIR)$(INSTALLVENDORMAN3DIR) +PERL_LIB = /usr/share/perl/5.18 +PERL_ARCHLIB = /usr/lib/perl/5.18 +LIBPERL_A = libperl.a +FIRST_MAKEFILE = Makefile +MAKEFILE_OLD = Makefile.old +MAKE_APERL_FILE = Makefile.aperl +PERLMAINCC = $(CC) +PERL_INC = /usr/lib/perl/5.18/CORE +PERL = /usr/bin/perl +FULLPERL = /usr/bin/perl +ABSPERL = $(PERL) +PERLRUN = $(PERL) +FULLPERLRUN = $(FULLPERL) +ABSPERLRUN = $(ABSPERL) +PERLRUNINST = $(PERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" +FULLPERLRUNINST = $(FULLPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" +ABSPERLRUNINST = $(ABSPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" +PERL_CORE = 0 +PERM_DIR = 755 +PERM_RW = 644 +PERM_RWX = 755 + +MAKEMAKER = /usr/share/perl/5.18/ExtUtils/MakeMaker.pm +MM_VERSION = 6.66 +MM_REVISION = 66600 + +# FULLEXT = Pathname for extension directory (eg Foo/Bar/Oracle). +# BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT. (eg Oracle) +# PARENT_NAME = NAME without BASEEXT and no trailing :: (eg Foo::Bar) +# DLBASE = Basename part of dynamic library. May be just equal BASEEXT. +MAKE = make +FULLEXT = Ucam/SMS/Send +BASEEXT = Send +PARENT_NAME = Ucam::SMS +DLBASE = $(BASEEXT) +VERSION_FROM = Send.pm +OBJECT = +LDFROM = $(OBJECT) +LINKTYPE = dynamic +BOOTDEP = + +# Handy lists of source code files: +XS_FILES = +C_FILES = +O_FILES = +H_FILES = +MAN1PODS = +MAN3PODS = + +# Where is the Config information that we are using/depend on +CONFIGDEP = $(PERL_ARCHLIB)$(DFSEP)Config.pm $(PERL_INC)$(DFSEP)config.h + +# Where to build things +INST_LIBDIR = $(INST_LIB)/Ucam/SMS +INST_ARCHLIBDIR = $(INST_ARCHLIB)/Ucam/SMS + +INST_AUTODIR = $(INST_LIB)/auto/$(FULLEXT) +INST_ARCHAUTODIR = $(INST_ARCHLIB)/auto/$(FULLEXT) + +INST_STATIC = +INST_DYNAMIC = +INST_BOOT = + +# Extra linker info +EXPORT_LIST = +PERL_ARCHIVE = +PERL_ARCHIVE_AFTER = + + +TO_INST_PM = Send.pm + +PM_TO_BLIB = Send.pm \ + $(INST_LIB)/Ucam/SMS/Send.pm + + +# --- MakeMaker platform_constants section: +MM_Unix_VERSION = 6.66 +PERL_MALLOC_DEF = -DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc -Dfree=Perl_mfree -Drealloc=Perl_realloc -Dcalloc=Perl_calloc + + +# --- MakeMaker tool_autosplit section: +# Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto +AUTOSPLITFILE = $(ABSPERLRUN) -e 'use AutoSplit; autosplit($$$$ARGV[0], $$$$ARGV[1], 0, 1, 1)' -- + + + +# --- MakeMaker tool_xsubpp section: + + +# --- MakeMaker tools_other section: +SHELL = /bin/sh +CHMOD = chmod +CP = cp +MV = mv +NOOP = $(TRUE) +NOECHO = @ +RM_F = rm -f +RM_RF = rm -rf +TEST_F = test -f +TOUCH = touch +UMASK_NULL = umask 0 +DEV_NULL = > /dev/null 2>&1 +MKPATH = $(ABSPERLRUN) -MExtUtils::Command -e 'mkpath' -- +EQUALIZE_TIMESTAMP = $(ABSPERLRUN) -MExtUtils::Command -e 'eqtime' -- +FALSE = false +TRUE = true +ECHO = echo +ECHO_N = echo -n +UNINST = 0 +VERBINST = 0 +MOD_INSTALL = $(ABSPERLRUN) -MExtUtils::Install -e 'install([ from_to => {@ARGV}, verbose => '\''$(VERBINST)'\'', uninstall_shadows => '\''$(UNINST)'\'', dir_mode => '\''$(PERM_DIR)'\'' ]);' -- +DOC_INSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'perllocal_install' -- +UNINSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'uninstall' -- +WARN_IF_OLD_PACKLIST = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'warn_if_old_packlist' -- +MACROSTART = +MACROEND = +USEMAKEFILE = -f +FIXIN = $(ABSPERLRUN) -MExtUtils::MY -e 'MY->fixin(shift)' -- + + +# --- MakeMaker makemakerdflt section: +makemakerdflt : all + $(NOECHO) $(NOOP) + + +# --- MakeMaker dist section: +TAR = tar +TARFLAGS = cvf +ZIP = zip +ZIPFLAGS = -r +COMPRESS = gzip --best +SUFFIX = .gz +SHAR = shar +PREOP = $(NOECHO) $(NOOP) +POSTOP = $(NOECHO) $(NOOP) +TO_UNIX = $(NOECHO) $(NOOP) +CI = ci -u +RCS_LABEL = rcs -Nv$(VERSION_SYM): -q +DIST_CP = best +DIST_DEFAULT = tardist +DISTNAME = Ucam-SMS-Send +DISTVNAME = Ucam-SMS-Send-1.00 + + +# --- MakeMaker macro section: + + +# --- MakeMaker depend section: + + +# --- MakeMaker cflags section: + + +# --- MakeMaker const_loadlibs section: + + +# --- MakeMaker const_cccmd section: + + +# --- MakeMaker post_constants section: + + +# --- MakeMaker pasthru section: + +PASTHRU = LIBPERL_A="$(LIBPERL_A)"\ + LINKTYPE="$(LINKTYPE)"\ + LD="$(LD)"\ + PREFIX="$(PREFIX)" + + +# --- MakeMaker special_targets section: +.SUFFIXES : .xs .c .C .cpp .i .s .cxx .cc $(OBJ_EXT) + +.PHONY: all config static dynamic test linkext manifest blibdirs clean realclean disttest distdir + + + +# --- MakeMaker c_o section: + + +# --- MakeMaker xs_c section: + + +# --- MakeMaker xs_o section: + + +# --- MakeMaker top_targets section: +all :: pure_all manifypods + $(NOECHO) $(NOOP) + + +pure_all :: config pm_to_blib subdirs linkext + $(NOECHO) $(NOOP) + +subdirs :: $(MYEXTLIB) + $(NOECHO) $(NOOP) + +config :: $(FIRST_MAKEFILE) blibdirs + $(NOECHO) $(NOOP) + +help : + perldoc ExtUtils::MakeMaker + + +# --- MakeMaker blibdirs section: +blibdirs : $(INST_LIBDIR)$(DFSEP).exists $(INST_ARCHLIB)$(DFSEP).exists $(INST_AUTODIR)$(DFSEP).exists $(INST_ARCHAUTODIR)$(DFSEP).exists $(INST_BIN)$(DFSEP).exists $(INST_SCRIPT)$(DFSEP).exists $(INST_MAN1DIR)$(DFSEP).exists $(INST_MAN3DIR)$(DFSEP).exists + $(NOECHO) $(NOOP) + +# Backwards compat with 6.18 through 6.25 +blibdirs.ts : blibdirs + $(NOECHO) $(NOOP) + +$(INST_LIBDIR)$(DFSEP).exists :: Makefile.PL + $(NOECHO) $(MKPATH) $(INST_LIBDIR) + $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_LIBDIR) + $(NOECHO) $(TOUCH) $(INST_LIBDIR)$(DFSEP).exists + +$(INST_ARCHLIB)$(DFSEP).exists :: Makefile.PL + $(NOECHO) $(MKPATH) $(INST_ARCHLIB) + $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHLIB) + $(NOECHO) $(TOUCH) $(INST_ARCHLIB)$(DFSEP).exists + +$(INST_AUTODIR)$(DFSEP).exists :: Makefile.PL + $(NOECHO) $(MKPATH) $(INST_AUTODIR) + $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_AUTODIR) + $(NOECHO) $(TOUCH) $(INST_AUTODIR)$(DFSEP).exists + +$(INST_ARCHAUTODIR)$(DFSEP).exists :: Makefile.PL + $(NOECHO) $(MKPATH) $(INST_ARCHAUTODIR) + $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHAUTODIR) + $(NOECHO) $(TOUCH) $(INST_ARCHAUTODIR)$(DFSEP).exists + +$(INST_BIN)$(DFSEP).exists :: Makefile.PL + $(NOECHO) $(MKPATH) $(INST_BIN) + $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_BIN) + $(NOECHO) $(TOUCH) $(INST_BIN)$(DFSEP).exists + +$(INST_SCRIPT)$(DFSEP).exists :: Makefile.PL + $(NOECHO) $(MKPATH) $(INST_SCRIPT) + $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_SCRIPT) + $(NOECHO) $(TOUCH) $(INST_SCRIPT)$(DFSEP).exists + +$(INST_MAN1DIR)$(DFSEP).exists :: Makefile.PL + $(NOECHO) $(MKPATH) $(INST_MAN1DIR) + $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN1DIR) + $(NOECHO) $(TOUCH) $(INST_MAN1DIR)$(DFSEP).exists + +$(INST_MAN3DIR)$(DFSEP).exists :: Makefile.PL + $(NOECHO) $(MKPATH) $(INST_MAN3DIR) + $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN3DIR) + $(NOECHO) $(TOUCH) $(INST_MAN3DIR)$(DFSEP).exists + + + +# --- MakeMaker linkext section: + +linkext :: $(LINKTYPE) + $(NOECHO) $(NOOP) + + +# --- MakeMaker dlsyms section: + + +# --- MakeMaker dynamic section: + +dynamic :: $(FIRST_MAKEFILE) $(INST_DYNAMIC) $(INST_BOOT) + $(NOECHO) $(NOOP) + + +# --- MakeMaker dynamic_bs section: + +BOOTSTRAP = + + +# --- MakeMaker dynamic_lib section: + + +# --- MakeMaker static section: + +## $(INST_PM) has been moved to the all: target. +## It remains here for awhile to allow for old usage: "make static" +static :: $(FIRST_MAKEFILE) $(INST_STATIC) + $(NOECHO) $(NOOP) + + +# --- MakeMaker static_lib section: + + +# --- MakeMaker manifypods section: + +POD2MAN_EXE = $(PERLRUN) "-MExtUtils::Command::MM" -e pod2man "--" +POD2MAN = $(POD2MAN_EXE) + + +manifypods : pure_all + $(NOECHO) $(NOOP) + + + + +# --- MakeMaker processPL section: + + +# --- MakeMaker installbin section: + + +# --- MakeMaker subdirs section: + +# none + +# --- MakeMaker clean_subdirs section: +clean_subdirs : + $(NOECHO) $(NOOP) + + +# --- MakeMaker clean section: + +# Delete temporary files but do not touch installed files. We don't delete +# the Makefile here so a later make realclean still has a makefile to use. + +clean :: clean_subdirs + - $(RM_F) \ + core.*perl.*.? MYMETA.yml \ + $(BASEEXT).exp perl \ + *$(LIB_EXT) pm_to_blib \ + perlmain.c $(MAKE_APERL_FILE) \ + so_locations $(BASEEXT).bso \ + MYMETA.json core.[0-9][0-9][0-9] \ + pm_to_blib.ts perl.exe \ + core.[0-9][0-9][0-9][0-9][0-9] $(INST_ARCHAUTODIR)/extralibs.all \ + core.[0-9][0-9] blibdirs.ts \ + *$(OBJ_EXT) *perl.core \ + $(BASEEXT).def $(BASEEXT).x \ + mon.out perl$(EXE_EXT) \ + core.[0-9] $(BOOTSTRAP) \ + core.[0-9][0-9][0-9][0-9] core \ + tmon.out lib$(BASEEXT).def \ + $(INST_ARCHAUTODIR)/extralibs.ld + - $(RM_RF) \ + blib + - $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) $(DEV_NULL) + + +# --- MakeMaker realclean_subdirs section: +realclean_subdirs : + $(NOECHO) $(NOOP) + + +# --- MakeMaker realclean section: +# Delete temporary files (via clean) and also delete dist files +realclean purge :: clean realclean_subdirs + - $(RM_F) \ + $(MAKEFILE_OLD) $(FIRST_MAKEFILE) + - $(RM_RF) \ + $(DISTVNAME) + + +# --- MakeMaker metafile section: +metafile : create_distdir + $(NOECHO) $(ECHO) Generating META.yml + $(NOECHO) $(ECHO) '---' > META_new.yml + $(NOECHO) $(ECHO) 'abstract: unknown' >> META_new.yml + $(NOECHO) $(ECHO) 'author:' >> META_new.yml + $(NOECHO) $(ECHO) ' - unknown' >> META_new.yml + $(NOECHO) $(ECHO) 'build_requires:' >> META_new.yml + $(NOECHO) $(ECHO) ' ExtUtils::MakeMaker: 0' >> META_new.yml + $(NOECHO) $(ECHO) 'configure_requires:' >> META_new.yml + $(NOECHO) $(ECHO) ' ExtUtils::MakeMaker: 0' >> META_new.yml + $(NOECHO) $(ECHO) 'dynamic_config: 1' >> META_new.yml + $(NOECHO) $(ECHO) 'generated_by: '\''ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.120921'\''' >> META_new.yml + $(NOECHO) $(ECHO) 'license: unknown' >> META_new.yml + $(NOECHO) $(ECHO) 'meta-spec:' >> META_new.yml + $(NOECHO) $(ECHO) ' url: http://module-build.sourceforge.net/META-spec-v1.4.html' >> META_new.yml + $(NOECHO) $(ECHO) ' version: 1.4' >> META_new.yml + $(NOECHO) $(ECHO) 'name: Ucam-SMS-Send' >> META_new.yml + $(NOECHO) $(ECHO) 'no_index:' >> META_new.yml + $(NOECHO) $(ECHO) ' directory:' >> META_new.yml + $(NOECHO) $(ECHO) ' - t' >> META_new.yml + $(NOECHO) $(ECHO) ' - inc' >> META_new.yml + $(NOECHO) $(ECHO) 'requires:' >> META_new.yml + $(NOECHO) $(ECHO) ' HTML::Entities: 0' >> META_new.yml + $(NOECHO) $(ECHO) ' LWP::UserAgent: 0' >> META_new.yml + $(NOECHO) $(ECHO) 'version: 1.00' >> META_new.yml + -$(NOECHO) $(MV) META_new.yml $(DISTVNAME)/META.yml + $(NOECHO) $(ECHO) Generating META.json + $(NOECHO) $(ECHO) '{' > META_new.json + $(NOECHO) $(ECHO) ' "abstract" : "unknown",' >> META_new.json + $(NOECHO) $(ECHO) ' "author" : [' >> META_new.json + $(NOECHO) $(ECHO) ' "unknown"' >> META_new.json + $(NOECHO) $(ECHO) ' ],' >> META_new.json + $(NOECHO) $(ECHO) ' "dynamic_config" : 1,' >> META_new.json + $(NOECHO) $(ECHO) ' "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.120921",' >> META_new.json + $(NOECHO) $(ECHO) ' "license" : [' >> META_new.json + $(NOECHO) $(ECHO) ' "unknown"' >> META_new.json + $(NOECHO) $(ECHO) ' ],' >> META_new.json + $(NOECHO) $(ECHO) ' "meta-spec" : {' >> META_new.json + $(NOECHO) $(ECHO) ' "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",' >> META_new.json + $(NOECHO) $(ECHO) ' "version" : "2"' >> META_new.json + $(NOECHO) $(ECHO) ' },' >> META_new.json + $(NOECHO) $(ECHO) ' "name" : "Ucam-SMS-Send",' >> META_new.json + $(NOECHO) $(ECHO) ' "no_index" : {' >> META_new.json + $(NOECHO) $(ECHO) ' "directory" : [' >> META_new.json + $(NOECHO) $(ECHO) ' "t",' >> META_new.json + $(NOECHO) $(ECHO) ' "inc"' >> META_new.json + $(NOECHO) $(ECHO) ' ]' >> META_new.json + $(NOECHO) $(ECHO) ' },' >> META_new.json + $(NOECHO) $(ECHO) ' "prereqs" : {' >> META_new.json + $(NOECHO) $(ECHO) ' "build" : {' >> META_new.json + $(NOECHO) $(ECHO) ' "requires" : {' >> META_new.json + $(NOECHO) $(ECHO) ' "ExtUtils::MakeMaker" : "0"' >> META_new.json + $(NOECHO) $(ECHO) ' }' >> META_new.json + $(NOECHO) $(ECHO) ' },' >> META_new.json + $(NOECHO) $(ECHO) ' "configure" : {' >> META_new.json + $(NOECHO) $(ECHO) ' "requires" : {' >> META_new.json + $(NOECHO) $(ECHO) ' "ExtUtils::MakeMaker" : "0"' >> META_new.json + $(NOECHO) $(ECHO) ' }' >> META_new.json + $(NOECHO) $(ECHO) ' },' >> META_new.json + $(NOECHO) $(ECHO) ' "runtime" : {' >> META_new.json + $(NOECHO) $(ECHO) ' "requires" : {' >> META_new.json + $(NOECHO) $(ECHO) ' "HTML::Entities" : "0",' >> META_new.json + $(NOECHO) $(ECHO) ' "LWP::UserAgent" : "0"' >> META_new.json + $(NOECHO) $(ECHO) ' }' >> META_new.json + $(NOECHO) $(ECHO) ' }' >> META_new.json + $(NOECHO) $(ECHO) ' },' >> META_new.json + $(NOECHO) $(ECHO) ' "release_status" : "stable",' >> META_new.json + $(NOECHO) $(ECHO) ' "version" : "1.00"' >> META_new.json + $(NOECHO) $(ECHO) '}' >> META_new.json + -$(NOECHO) $(MV) META_new.json $(DISTVNAME)/META.json + + +# --- MakeMaker signature section: +signature : + cpansign -s + + +# --- MakeMaker dist_basics section: +distclean :: realclean distcheck + $(NOECHO) $(NOOP) + +distcheck : + $(PERLRUN) "-MExtUtils::Manifest=fullcheck" -e fullcheck + +skipcheck : + $(PERLRUN) "-MExtUtils::Manifest=skipcheck" -e skipcheck + +manifest : + $(PERLRUN) "-MExtUtils::Manifest=mkmanifest" -e mkmanifest + +veryclean : realclean + $(RM_F) *~ */*~ *.orig */*.orig *.bak */*.bak *.old */*.old + + + +# --- MakeMaker dist_core section: + +dist : $(DIST_DEFAULT) $(FIRST_MAKEFILE) + $(NOECHO) $(ABSPERLRUN) -l -e 'print '\''Warning: Makefile possibly out of date with $(VERSION_FROM)'\''' \ + -e ' if -e '\''$(VERSION_FROM)'\'' and -M '\''$(VERSION_FROM)'\'' < -M '\''$(FIRST_MAKEFILE)'\'';' -- + +tardist : $(DISTVNAME).tar$(SUFFIX) + $(NOECHO) $(NOOP) + +uutardist : $(DISTVNAME).tar$(SUFFIX) + uuencode $(DISTVNAME).tar$(SUFFIX) $(DISTVNAME).tar$(SUFFIX) > $(DISTVNAME).tar$(SUFFIX)_uu + +$(DISTVNAME).tar$(SUFFIX) : distdir + $(PREOP) + $(TO_UNIX) + $(TAR) $(TARFLAGS) $(DISTVNAME).tar $(DISTVNAME) + $(RM_RF) $(DISTVNAME) + $(COMPRESS) $(DISTVNAME).tar + $(POSTOP) + +zipdist : $(DISTVNAME).zip + $(NOECHO) $(NOOP) + +$(DISTVNAME).zip : distdir + $(PREOP) + $(ZIP) $(ZIPFLAGS) $(DISTVNAME).zip $(DISTVNAME) + $(RM_RF) $(DISTVNAME) + $(POSTOP) + +shdist : distdir + $(PREOP) + $(SHAR) $(DISTVNAME) > $(DISTVNAME).shar + $(RM_RF) $(DISTVNAME) + $(POSTOP) + + +# --- MakeMaker distdir section: +create_distdir : + $(RM_RF) $(DISTVNAME) + $(PERLRUN) "-MExtUtils::Manifest=manicopy,maniread" \ + -e "manicopy(maniread(),'$(DISTVNAME)', '$(DIST_CP)');" + +distdir : create_distdir distmeta + $(NOECHO) $(NOOP) + + + +# --- MakeMaker dist_test section: +disttest : distdir + cd $(DISTVNAME) && $(ABSPERLRUN) Makefile.PL + cd $(DISTVNAME) && $(MAKE) $(PASTHRU) + cd $(DISTVNAME) && $(MAKE) test $(PASTHRU) + + + +# --- MakeMaker dist_ci section: + +ci : + $(PERLRUN) "-MExtUtils::Manifest=maniread" \ + -e "@all = keys %{ maniread() };" \ + -e "print(qq{Executing $(CI) @all\n}); system(qq{$(CI) @all});" \ + -e "print(qq{Executing $(RCS_LABEL) ...\n}); system(qq{$(RCS_LABEL) @all});" + + +# --- MakeMaker distmeta section: +distmeta : create_distdir metafile + $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'exit unless -e q{META.yml};' \ + -e 'eval { maniadd({q{META.yml} => q{Module YAML meta-data (added by MakeMaker)}}) }' \ + -e ' or print "Could not add META.yml to MANIFEST: $$$${'\''@'\''}\n"' -- + $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'exit unless -f q{META.json};' \ + -e 'eval { maniadd({q{META.json} => q{Module JSON meta-data (added by MakeMaker)}}) }' \ + -e ' or print "Could not add META.json to MANIFEST: $$$${'\''@'\''}\n"' -- + + + +# --- MakeMaker distsignature section: +distsignature : create_distdir + $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{SIGNATURE} => q{Public-key signature (added by MakeMaker)}}) } ' \ + -e ' or print "Could not add SIGNATURE to MANIFEST: $$$${'\''@'\''}\n"' -- + $(NOECHO) cd $(DISTVNAME) && $(TOUCH) SIGNATURE + cd $(DISTVNAME) && cpansign -s + + + +# --- MakeMaker install section: + +install :: pure_install doc_install + $(NOECHO) $(NOOP) + +install_perl :: pure_perl_install doc_perl_install + $(NOECHO) $(NOOP) + +install_site :: pure_site_install doc_site_install + $(NOECHO) $(NOOP) + +install_vendor :: pure_vendor_install doc_vendor_install + $(NOECHO) $(NOOP) + +pure_install :: pure_$(INSTALLDIRS)_install + $(NOECHO) $(NOOP) + +doc_install :: doc_$(INSTALLDIRS)_install + $(NOECHO) $(NOOP) + +pure__install : pure_site_install + $(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site + +doc__install : doc_site_install + $(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site + +pure_perl_install :: all + $(NOECHO) umask 022; $(MOD_INSTALL) \ + $(INST_LIB) $(DESTINSTALLPRIVLIB) \ + $(INST_ARCHLIB) $(DESTINSTALLARCHLIB) \ + $(INST_BIN) $(DESTINSTALLBIN) \ + $(INST_SCRIPT) $(DESTINSTALLSCRIPT) \ + $(INST_MAN1DIR) $(DESTINSTALLMAN1DIR) \ + $(INST_MAN3DIR) $(DESTINSTALLMAN3DIR) + $(NOECHO) $(WARN_IF_OLD_PACKLIST) \ + $(SITEARCHEXP)/auto/$(FULLEXT) + + +pure_site_install :: all + $(NOECHO) umask 02; $(MOD_INSTALL) \ + read $(SITEARCHEXP)/auto/$(FULLEXT)/.packlist \ + write $(DESTINSTALLSITEARCH)/auto/$(FULLEXT)/.packlist \ + $(INST_LIB) $(DESTINSTALLSITELIB) \ + $(INST_ARCHLIB) $(DESTINSTALLSITEARCH) \ + $(INST_BIN) $(DESTINSTALLSITEBIN) \ + $(INST_SCRIPT) $(DESTINSTALLSITESCRIPT) \ + $(INST_MAN1DIR) $(DESTINSTALLSITEMAN1DIR) \ + $(INST_MAN3DIR) $(DESTINSTALLSITEMAN3DIR) + $(NOECHO) $(WARN_IF_OLD_PACKLIST) \ + $(PERL_ARCHLIB)/auto/$(FULLEXT) + +pure_vendor_install :: all + $(NOECHO) umask 022; $(MOD_INSTALL) \ + $(INST_LIB) $(DESTINSTALLVENDORLIB) \ + $(INST_ARCHLIB) $(DESTINSTALLVENDORARCH) \ + $(INST_BIN) $(DESTINSTALLVENDORBIN) \ + $(INST_SCRIPT) $(DESTINSTALLVENDORSCRIPT) \ + $(INST_MAN1DIR) $(DESTINSTALLVENDORMAN1DIR) \ + $(INST_MAN3DIR) $(DESTINSTALLVENDORMAN3DIR) + +doc_perl_install :: all + +doc_site_install :: all + $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLSITEARCH)/perllocal.pod + -$(NOECHO) umask 02; $(MKPATH) $(DESTINSTALLSITEARCH) + -$(NOECHO) umask 02; $(DOC_INSTALL) \ + "Module" "$(NAME)" \ + "installed into" "$(INSTALLSITELIB)" \ + LINKTYPE "$(LINKTYPE)" \ + VERSION "$(VERSION)" \ + EXE_FILES "$(EXE_FILES)" \ + >> $(DESTINSTALLSITEARCH)/perllocal.pod + +doc_vendor_install :: all + + +uninstall :: uninstall_from_$(INSTALLDIRS)dirs + $(NOECHO) $(NOOP) + +uninstall_from_perldirs :: + +uninstall_from_sitedirs :: + $(NOECHO) $(UNINSTALL) $(SITEARCHEXP)/auto/$(FULLEXT)/.packlist + +uninstall_from_vendordirs :: + + + +# --- MakeMaker force section: +# Phony target to force checking subdirectories. +FORCE : + $(NOECHO) $(NOOP) + + +# --- MakeMaker perldepend section: + + +# --- MakeMaker makefile section: +# We take a very conservative approach here, but it's worth it. +# We move Makefile to Makefile.old here to avoid gnu make looping. +$(FIRST_MAKEFILE) : Makefile.PL $(CONFIGDEP) + $(NOECHO) $(ECHO) "Makefile out-of-date with respect to $?" + $(NOECHO) $(ECHO) "Cleaning current config before rebuilding Makefile..." + -$(NOECHO) $(RM_F) $(MAKEFILE_OLD) + -$(NOECHO) $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) + - $(MAKE) $(USEMAKEFILE) $(MAKEFILE_OLD) clean $(DEV_NULL) + $(PERLRUN) Makefile.PL + $(NOECHO) $(ECHO) "==> Your Makefile has been rebuilt. <==" + $(NOECHO) $(ECHO) "==> Please rerun the $(MAKE) command. <==" + $(FALSE) + + + +# --- MakeMaker staticmake section: + +# --- MakeMaker makeaperl section --- +MAP_TARGET = perl +FULLPERL = /usr/bin/perl + +$(MAP_TARGET) :: static $(MAKE_APERL_FILE) + $(MAKE) $(USEMAKEFILE) $(MAKE_APERL_FILE) $@ + +$(MAKE_APERL_FILE) : $(FIRST_MAKEFILE) pm_to_blib + $(NOECHO) $(ECHO) Writing \"$(MAKE_APERL_FILE)\" for this $(MAP_TARGET) + $(NOECHO) $(PERLRUNINST) \ + Makefile.PL DIR= \ + MAKEFILE=$(MAKE_APERL_FILE) LINKTYPE=static \ + MAKEAPERL=1 NORECURS=1 CCCDLFLAGS= + + +# --- MakeMaker test section: + +TEST_VERBOSE=0 +TEST_TYPE=test_$(LINKTYPE) +TEST_FILE = test.pl +TEST_FILES = +TESTDB_SW = -d + +testdb :: testdb_$(LINKTYPE) + +test :: $(TEST_TYPE) subdirs-test + +subdirs-test :: + $(NOECHO) $(NOOP) + + $(NOECHO) $(ECHO) 'No tests defined for $(NAME) extension.' + +test_dynamic :: pure_all + +testdb_dynamic :: pure_all + PERL_DL_NONLAZY=1 $(FULLPERLRUN) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE) + +test_ : test_dynamic + +test_static :: test_dynamic +testdb_static :: testdb_dynamic + + +# --- MakeMaker ppd section: +# Creates a PPD (Perl Package Description) for a binary distribution. +ppd : + $(NOECHO) $(ECHO) '' > $(DISTNAME).ppd + $(NOECHO) $(ECHO) ' ' >> $(DISTNAME).ppd + $(NOECHO) $(ECHO) ' ' >> $(DISTNAME).ppd + $(NOECHO) $(ECHO) ' ' >> $(DISTNAME).ppd + $(NOECHO) $(ECHO) ' ' >> $(DISTNAME).ppd + $(NOECHO) $(ECHO) ' ' >> $(DISTNAME).ppd + $(NOECHO) $(ECHO) ' ' >> $(DISTNAME).ppd + $(NOECHO) $(ECHO) ' ' >> $(DISTNAME).ppd + $(NOECHO) $(ECHO) ' ' >> $(DISTNAME).ppd + $(NOECHO) $(ECHO) '' >> $(DISTNAME).ppd + + +# --- MakeMaker pm_to_blib section: + +pm_to_blib : $(FIRST_MAKEFILE) $(TO_INST_PM) + $(NOECHO) $(ABSPERLRUN) -MExtUtils::Install -e 'pm_to_blib({@ARGV}, '\''$(INST_LIB)/auto'\'', q[$(PM_FILTER)], '\''$(PERM_DIR)'\'')' -- \ + Send.pm $(INST_LIB)/Ucam/SMS/Send.pm + $(NOECHO) $(TOUCH) pm_to_blib + + +# --- MakeMaker selfdocument section: + + +# --- MakeMaker postamble section: + + +# End. diff --git a/Makefile.PL b/Makefile.PL new file mode 100644 index 0000000..9f92d17 --- /dev/null +++ b/Makefile.PL @@ -0,0 +1,12 @@ +use ExtUtils::MakeMaker; + +# See lib/ExtUtils/MakeMaker.pm for details of how to influence +# the contents of the Makefile that is written. + +WriteMakefile( + 'NAME' => 'Ucam::SMS::Send', + 'VERSION_FROM' => 'Send.pm', # finds $VERSION + 'PREREQ_PM' => {LWP::UserAgent => 0, + HTML::Entities => 0, + } +); diff --git a/Send.pm b/Send.pm new file mode 100644 index 0000000..7ab0f36 --- /dev/null +++ b/Send.pm @@ -0,0 +1,262 @@ +#!/usr/bin/perl + +{ package Ucam::SMS::Send; + +use warnings; +use strict; +use LWP::UserAgent; +use HTML::Entities; + +use vars qw/$VERSION/; +$VERSION = '1.00'; + +sub new +{ + my $proto = shift; + my $class = ref($proto) || $proto; + my $self = {}; + bless ($self,$class); + + my %args = (@_); + + # Save allowed arguments in $self, ignore extraneous ones (e.g. that + # can only be used in other calls). + $self->{'url'} = $args{'url'}; + # The message-specific details... + $self->{'msg'}{'token'} = $args{'token'}; + $self->{'msg'}{'bulk'} = $args{'bulk'}; + $self->{'msg'}{'truncate'} = $args{'truncate'}; + $self->{'msg'}{'long_message'} = $args{'long_message'}; + $self->{'msg'}{'test'} = $args{'test'}; + + return $self; +} + +sub SendMessage +{ + my $self = shift; + my %args = (@_); + + # Set default URL for retrieving status. + $self->{'url'} = "https://api.phone.cam.ac.uk/api/text/1/submitSMS"; + + # Save allowed arguments in $self, ignore extraneous ones (e.g. that + # can only be used in other calls or are misspelled). + $self->{'url'} = $args{'url'} if defined $args{'url'}; + # The message-specific details... + $self->{'msg'}{'token'} = $args{'token'} if defined $args{'token'}; + $self->{'msg'}{'number'} = $args{'number'} if defined $args{'number'}; + $self->{'msg'}{'message'} = $args{'message'} if defined $args{'message'}; + $self->{'msg'}{'bulk'} = $args{'bulk'} if defined $args{'bulk'}; + $self->{'msg'}{'truncate'} = $args{'truncate'} if defined $args{'truncate'}; + $self->{'msg'}{'long_message'} = $args{'long_message'} if defined $args{'long_message'}; + $self->{'msg'}{'test'} = $args{'test'} if defined $args{'test'}; + + my $ourname = (caller(0))[3]; + die "$ourname: mandatory argument token is undefined\n" unless defined $self->{'msg'}{'token'}; + die "$ourname: mandatory argument number is undefined\n" unless defined $self->{'msg'}{'number'}; + die "$ourname: mandatory argument message is undefined\n" unless defined $self->{'msg'}{'message'}; + + print ""; + my $ua = LWP::UserAgent->new; + $ua->timeout(10); # max 10s for response + + + my $url = $self->{'url'}; + my $response = $ua->post($url,$self->{'msg'}); + print ""; # for breakpointing + unless ($response->is_success) + { + my $msg = $self->{'msg'}{'message'}; + my $number = $self->{'msg'}{'number'}; + my $status = $response->code; + my $message = $response->message; + die "$0: error sending SMS message '$msg' to $number: HTTP status $status message '$message'\n"; + } + + # Parse SMS service response (HTTP response content). + + my @content = split(/\n/,$response->content); + my %results = (); + foreach my $line (@content) + { + chomp($line); + if ($line =~ /^(\S+):\s+(.*)\s*$/) + { + my ($key,$value) = ($1,$2); + $results{$1} = $2; + + $self->{'msg'}{'messageid'} = $2 if $1 eq 'Msg-ID'; +# warn "$key: $value\n"; + } + else + { + warn "unrecognised result line: $line"; + } + } + + my $status = $results{'Status'} eq 'OK'; + return ($status,%results); + +} + +sub GetStatus +{ + my $self = shift; + my %args = (@_); + + # Set default URL for retrieving status. + $self->{'url'} = "https://api.phone.cam.ac.uk/api/text/1/getMessageStatus"; + + # Save allowed arguments in $self, ignore extraneous ones (e.g. that + # can only be used in other calls or are misspelled). + + $self->{'url'} = $args{'url'} if defined $args{'url'}; + $self->{'msg'}{'token'} = $args{'token'} if defined $args{'token'}; + $self->{'msg'}{'messageid'} = $args{'messageid'} if defined $args{'messageid'}; + + my $ourname = (caller(0))[3]; + die "$ourname: mandatory argument token is undefined\n" unless defined $self->{'msg'}{'token'}; + die "$ourname: mandatory argument messageid is undefined (was it a test-mode message?)\n" unless defined $self->{'msg'}{'messageid'}; + + print ""; + my $ua = LWP::UserAgent->new; + $ua->timeout(10); # max 10s for response + + my $url = $self->{'url'}; + my $response = $ua->post($url,$self->{'msg'}); + print ""; # for breakpointing + unless ($response->is_success) + { + my $msgid = $self->{'msg'}{'messageid'}; + my $msg = $self->{'msg'}{'message'}; + my $number = $self->{'msg'}{'number'}; + my $status = $response->code; + my $message = $response->message; + die "$0: error getting SMS message ID '$msgid' status: HTTP status $status message '$message'\n"; + } + + # Parse SMS service response (HTTP response content). + + my @content = split(/\n/,$response->content); + my %results = (); + foreach my $line (@content) + { + chomp($line); + if ($line =~ /^(\S+):\s+(.*)\s*$/) + { + my ($key,$value) = ($1,$2); + $results{$1} = $2; + } + else + { + warn "unrecognised result line: $line"; + } + } + + + my $status = $results{'Status'} eq 'OK'; + + print ""; + return ($status,%results); + +} +#~~~ +sub GetBalance +{ + my $self = shift; + my %args = (@_); + + # Set default URL for retrieving status. + $self->{'url'} = "https://api.phone.cam.ac.uk/api/text/1/getBalance"; + + # Save allowed arguments in $self, ignore extraneous ones (e.g. that + # can only be used in other calls or are misspelled). + + $self->{'msg'}{'token'} = $args{'token'} if defined $args{'token'}; + + my $ourname = (caller(0))[3]; + die "$ourname: mandatory argument token is undefined\n" unless defined $self->{'msg'}{'token'}; + + print ""; + my $ua = LWP::UserAgent->new; + $ua->timeout(10); # max 10s for response + + my $url = $self->{'url'}; + my $response = $ua->post($url,$self->{'msg'}); + print ""; # for breakpointing + unless ($response->is_success) + { + my $msgid = $self->{'msg'}{'messageid'}; + my $msg = $self->{'msg'}{'message'}; + my $number = $self->{'msg'}{'number'}; + my $status = $response->code; + my $message = $response->message; + die "$0: error getting SMS message ID '$msgid' status: HTTP status $status message '$message'\n"; + } + + # Parse SMS service response (HTTP response content). + + my @content = split(/\n/,$response->content); + my %results = (); + foreach my $line (@content) + { + chomp($line); + if ($line =~ /^(\S+):\s+(.*)\s*$/) + { + my ($key,$value) = ($1,$2); + $results{$1} = $2; + } + else + { + warn "unrecognised result line: $line"; + } + } + + + my $status = $results{'Status'} eq 'OK'; + + print ""; + return ($status,%results); + +} + + +#my $testmsg = Ucam::SMS::Send->new();#test => 'true'); +#my $token = 'vjaa-aaqb-zlni-hwvo-rhee'; +#my ($status,%results) = $testmsg->SendMessage(number => '07757080423', +# token => $token, +# message => 'test message 1-2-3'); +#($status,%results) = $testmsg->GetStatus(token => $token); +#print "SendMessage status: $status\n"; +#foreach my $key (sort(keys(%results))) +#{ +# printf "%-11s %s\n",$key,$results{$key}; +#} +#sleep(1); +#($status,%results) = $testmsg->GetStatus(token => $token); +#print "GetStatus#1: $status\n"; +#foreach my $key (sort(keys(%results))) +#{ +# printf "%-11s %s\n",$key,$results{$key}; +#} +#sleep(1); +#($status,%results) = $testmsg->GetStatus(token => $token); +#print "GetStatus#2: $status\n"; +#foreach my $key (sort(keys(%results))) +#{ +# printf "%-11s %s\n",$key,$results{$key}; +#} +#($status,%results) = $testmsg->GetBalance(token => $token); +#print "Balance status:: $status\n"; +#foreach my $key (sort(keys(%results))) +#{ +# printf "%-11s %s\n",$key,$results{$key}; +#} +# +#print ""; + + +} # end of package + +1; diff --git a/Ucam-SMS-Send-1.00.tar.gz b/Ucam-SMS-Send-1.00.tar.gz new file mode 100644 index 0000000000000000000000000000000000000000..4ede06ad11ef22b29f0eaceb6153b0e9b4db1409 GIT binary patch literal 2340 zcmV+<3ETD`iwFqmC0JGh165;TZ7owxQ!P_vZe%SnE-)}IbYXG;?HX%y+cwf)%U^+$ zoFUbU6iL1A=&{?h_1$GIPJDKJ{m|q*5Cut$DN+GIJ3iO>?YDT4B4zoJ#?d4h?o48G zvDjT;pP+CO;<vpyt8(e^4zc2pwdVaV3H-|0HANT{;_lJFN%k_NM z>u#a`)&?MB98-k0-d=R?ly~3wR|+RL?Ju63#r$#YKj`&tvA;L$ddmL&L9aU;4#56h ze*pG(Yx{q8X#S;>G1?hLNoPT5Y#3K)fx|OAB}lkN5P)yMf8Y{3hLJIXE-+1^WXg8r z8{;$zxq5#7+hGu#FhZYBNuqK8e0A_V2=)^m@rW?Z;v7?k-d%LI|FeH|{Osk6&W@2k zqFrPPCp3YSWh0c33**W_0P{<6AG$j*D(X`MXe`xY086)uo zsIIORY7`TgWl3~f@o0fmP5lJZso-h-bedzE=op_9gyT59AY%js*&G(iP?RXn&VBj;47*Hz-pFbaP>-OqVqHzu5KOe5^v@FN5 z2+$NF8PAD`M&YM~T5hZLd-si!GmZ#qnR*Sg32L)K0GQ;*BkLHkC zxaGO69dr|#pznL+xlCt8wn!63jHMMJDG1|NQpr+*e1aem(iSP>mYCD7E~d3pT>-is zno^SyCHQQS0y(5;IahC%RmimWB6iBMFa&fjr|$n%~^iGO>1q-Fs|Z6dzeL z1o={%FddUBRc`kRnMN)tmH)T_B9y|)8B{w_mY|jtj$?|&m=F=Uq5-sNuMTzTD%2^F z>s5l6DM8nHRXT)Dj!5R@MPnTbcLc0uM*IJEl#b^dF;KK`K< zyk?DOA@hJu?PtG2XWT3^5dAn<98?LA(xotyGFARWVhF|ci%~qXgpx3w zCXwh0l-fvaO`x{+2Gi?hTvt3;F4sJkC|HG1{pG*RopMWN=^5?Zq@usl4cb2lS98DE z_H0VH?jV(-Ur3ksscqWlYQR=py3!j-yLa#FH&E{(HSyJY|Lj*)@?nuW|J4P5qXmC6wfN(T@y!r? zKz(k0`0ydG(LduDCn5Qgi?mkpi!9HdP-DN4dRSMXx(d}*sIEdAuR?~=6aqvet>R?fp+(h_~uDWn5^c>thbBI^S2n=7{43Y|BI8zo?V=$Hk}b-D#Dx6#bUHn zd$066f|W-eh;oO+{?Pra+w;3-8>yqZmbj;7w-vUCETN##G)H*0Z+E4-_oz^ul&uvB zVy@oRlA1->X|6J^nq^l8$3hlMDYxK>S%uVA%V=IHttHzDYCN$$kD(`mNn1H&;c@T= zsiq0-0*eV*Sl%NorJ!kg-@qFD4X)vS#dWK6hvu3hccKkyU#K7&IpZ4gKln6CC;1Q6 zhT-iPTQxk^{f~qFS5KX{EKMHu{>R|9`yZ~?@2}qf>GrzA`u@izK$iUm9x*uaguHg)#+Pu)h{99of+o>aP zw%w=S9Jt9}o(17mK}ch%lQ>esiINda!Qp5l+#EG{k2^;$LO-bH@5=!2&3dd0v z#p5zYAb~0aNo)l#hSpd{F2QXq>GJ0By4V6`@r;tsE{SG|I5~cVoa*f(EuvkesUB5t zSEIDql*9xxa;gfToC1%dm}vW!y+UNv1~jc-TmHYC$6Fi9|L)NDSM$F=sPq3uz_x88 z&;9|@nbS~7KLBsG3!F?Rr+KuAu{B{FAlE1|!b6Cwg#*flQLY#PG9Rm6n1(JD%T*Rd zLFfmyAV9hh%+qle6I-s>VQEG~0uAnzI0@l0Jmf6<+;e))jL&13uEoIuoSvb+xK%>S z$dkU1Rpk0WW)~ZA{TH&kQQov_0u%d%R=%wXTuHX;8lN8ju*Z`qCeGpWP2B%=-G1NK z_kX)Xzt@NO?};nnb^LE+`D9&a!bwYfrY9(lMxA`TQw%$cx%?)oukeY(*etyeS4yH} z5@$sGFwjJNR(ybyB;q}HF8MWGe0#p25eEv#Fn)t4l8;+5BFq<05BAOPz7yX_R=)C> zs*aob;_&I;k6s>_l2G4YH{0UFEyNr{`R!sg#KIY$r8KY*athoii{kM)CGWF{5+=@GeBh@%idhgG;|n7G(Exc? zm?o2Gno)8e;_+32=TUgBE(OT9rX(R0b22_3T?MGQ;0|kH?24dNy5n5$~jzd*n)&Yzl_EKnsL4eI-Pks&SK(7i(Qsx zG$fOhPKlckE-OUda+bc^cV~Pa!*wkV3~>7vm;_=frDY}Qd6bOF2O(<=P6>HRuf&7! zG1s3_5?W=a{o~E?s~~uh@Q6o%0e>O%>ff(};FJ;i96ZGZZY|q-nEHRm(qwn_@9+2b zH|xLKGxfg{xE7gL%R4{~1*oRWqt;eOvK5Gf-(-@aHGz13tEj4FEU0~TP_Aal{h{hv ztEY?lF8zv97lhXZA&sR@y6hRjG@QBN0w*q%duKstJWj*!$_kwb9_^fgR!TDIN_i_K zPjmo@t<;y+Id26OU5cJiHborpLY#Pl4pGyOZ%gtPltABL6^^ofl`#UDcb5&kINA~! zX@XZ<)2;N^RpEl7+dsM_nn53&e~z4L`_v-ZRhnu$ykPl?=Lpy3^#z<-bxL(9q-L6?{&Q8Hyi`2=Gl3c31Ttt5r3R-k6F#FU}; zmz~DHUi^CU@|T}GLo5G^4q<`vJRoG*2qomwQYAgVLX8DYc?tw<7EOSCjt*nY7@#Sc z*ovlwe*ayQugMsRCqQ+*QYffaxMfRpTk&XtR89R1)2ZNTe}A51>*xe83BqxlUXn2a zf@}_EGT7M^^EQg6NlFPKA7GXyB+VE~69PhrJ9QDCVXhg4IDwP+3XKQ?e~bl-l+R$u zg}|P*TuCRHI!D({m{QFZDAN#1>BpgF^=3xU94vu&$?+CVq7aQ?QbBih-3>-_Hf^r1 zn>@WBNtvTY47XB`viPD*te&^ia%j;Z4EqZ60=NB6oF>zAZ9@586@QC7!gxiNeAWS@ zglAO8W(ZAKW|T-5w$%vwf za7vT_zsF9}EwVnDzDYJ85n5(cU~Y2CkG8YglB8?YO=frG?)JLc!sm|{+%{i5NHuO@ z{Kw06o0jD|76l5g;9{c|)hP0mP}^&@e(Swea>fxswVWnEbDWH^*rba}K{7>9#NgFm zi#mh#EKB4ND1>iM!TZWk$@95FswsE36z$^A6;q0g6ttibFss$p^D)EV-RcN;j$i=m zP-fUU65Ds0aohJ=Lv$1BpzjCddrWslwn*X4%vwhgnt}*^rIoA|$S(*IA#IT|Zi_qZ zsxhr$)dF-o)TJgPO7O)Z1#)Q7@~(E4UC4BfB6iNQFa&fxwaCrObJ@$Q|UGAaYQnQj9J2qcoB4DOP<9eyd-i+C>SPrxWCsZF?JVm z#O=;m(rH&*psuXvF`U8Jl_ObWA-V*IGwGlh@*ZY&er+R&;VhjmY)RBwy9+vx!lA>D zsPiBD?Bv^4aK^s1-EUfF?3+fXRghNSEJ2{%xFA>U#uCRFX$hSge!I~vF_&edb-r%+ zvhQ_u`4#8eGb$RZHrW*#Hhe_hqvkQ2Ixl}}4y}5bf!M|&;-E@^lrBY>%5Sd-kr+yG zyD^GKmQWI=(RjGqQDBF`Y-=%4$CW)DiWy+JBPpU9T>XVA z5}S=Phwh$}e%HGH^e#DMm-G9p7~c?*!%zG5E137tn)v3tfBBOd`Cz2(e`etCbl~r1 z7JuF_zFC6zn9uc(A3x?Z`Uf22BqUFHNNW|J^|A3Ym25W|7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0Rsm9 OFX4aJ{i`DYPyhhb-5bsT literal 0 HcmV?d00001 diff --git a/blib/arch/.exists b/blib/arch/.exists new file mode 100644 index 0000000..e69de29 diff --git a/blib/arch/auto/Ucam/SMS/Send/.exists b/blib/arch/auto/Ucam/SMS/Send/.exists new file mode 100644 index 0000000..e69de29 diff --git a/blib/bin/.exists b/blib/bin/.exists new file mode 100644 index 0000000..e69de29 diff --git a/blib/lib/Ucam/SMS/.exists b/blib/lib/Ucam/SMS/.exists new file mode 100644 index 0000000..e69de29 diff --git a/blib/lib/Ucam/SMS/Send.pm b/blib/lib/Ucam/SMS/Send.pm new file mode 100644 index 0000000..7ab0f36 --- /dev/null +++ b/blib/lib/Ucam/SMS/Send.pm @@ -0,0 +1,262 @@ +#!/usr/bin/perl + +{ package Ucam::SMS::Send; + +use warnings; +use strict; +use LWP::UserAgent; +use HTML::Entities; + +use vars qw/$VERSION/; +$VERSION = '1.00'; + +sub new +{ + my $proto = shift; + my $class = ref($proto) || $proto; + my $self = {}; + bless ($self,$class); + + my %args = (@_); + + # Save allowed arguments in $self, ignore extraneous ones (e.g. that + # can only be used in other calls). + $self->{'url'} = $args{'url'}; + # The message-specific details... + $self->{'msg'}{'token'} = $args{'token'}; + $self->{'msg'}{'bulk'} = $args{'bulk'}; + $self->{'msg'}{'truncate'} = $args{'truncate'}; + $self->{'msg'}{'long_message'} = $args{'long_message'}; + $self->{'msg'}{'test'} = $args{'test'}; + + return $self; +} + +sub SendMessage +{ + my $self = shift; + my %args = (@_); + + # Set default URL for retrieving status. + $self->{'url'} = "https://api.phone.cam.ac.uk/api/text/1/submitSMS"; + + # Save allowed arguments in $self, ignore extraneous ones (e.g. that + # can only be used in other calls or are misspelled). + $self->{'url'} = $args{'url'} if defined $args{'url'}; + # The message-specific details... + $self->{'msg'}{'token'} = $args{'token'} if defined $args{'token'}; + $self->{'msg'}{'number'} = $args{'number'} if defined $args{'number'}; + $self->{'msg'}{'message'} = $args{'message'} if defined $args{'message'}; + $self->{'msg'}{'bulk'} = $args{'bulk'} if defined $args{'bulk'}; + $self->{'msg'}{'truncate'} = $args{'truncate'} if defined $args{'truncate'}; + $self->{'msg'}{'long_message'} = $args{'long_message'} if defined $args{'long_message'}; + $self->{'msg'}{'test'} = $args{'test'} if defined $args{'test'}; + + my $ourname = (caller(0))[3]; + die "$ourname: mandatory argument token is undefined\n" unless defined $self->{'msg'}{'token'}; + die "$ourname: mandatory argument number is undefined\n" unless defined $self->{'msg'}{'number'}; + die "$ourname: mandatory argument message is undefined\n" unless defined $self->{'msg'}{'message'}; + + print ""; + my $ua = LWP::UserAgent->new; + $ua->timeout(10); # max 10s for response + + + my $url = $self->{'url'}; + my $response = $ua->post($url,$self->{'msg'}); + print ""; # for breakpointing + unless ($response->is_success) + { + my $msg = $self->{'msg'}{'message'}; + my $number = $self->{'msg'}{'number'}; + my $status = $response->code; + my $message = $response->message; + die "$0: error sending SMS message '$msg' to $number: HTTP status $status message '$message'\n"; + } + + # Parse SMS service response (HTTP response content). + + my @content = split(/\n/,$response->content); + my %results = (); + foreach my $line (@content) + { + chomp($line); + if ($line =~ /^(\S+):\s+(.*)\s*$/) + { + my ($key,$value) = ($1,$2); + $results{$1} = $2; + + $self->{'msg'}{'messageid'} = $2 if $1 eq 'Msg-ID'; +# warn "$key: $value\n"; + } + else + { + warn "unrecognised result line: $line"; + } + } + + my $status = $results{'Status'} eq 'OK'; + return ($status,%results); + +} + +sub GetStatus +{ + my $self = shift; + my %args = (@_); + + # Set default URL for retrieving status. + $self->{'url'} = "https://api.phone.cam.ac.uk/api/text/1/getMessageStatus"; + + # Save allowed arguments in $self, ignore extraneous ones (e.g. that + # can only be used in other calls or are misspelled). + + $self->{'url'} = $args{'url'} if defined $args{'url'}; + $self->{'msg'}{'token'} = $args{'token'} if defined $args{'token'}; + $self->{'msg'}{'messageid'} = $args{'messageid'} if defined $args{'messageid'}; + + my $ourname = (caller(0))[3]; + die "$ourname: mandatory argument token is undefined\n" unless defined $self->{'msg'}{'token'}; + die "$ourname: mandatory argument messageid is undefined (was it a test-mode message?)\n" unless defined $self->{'msg'}{'messageid'}; + + print ""; + my $ua = LWP::UserAgent->new; + $ua->timeout(10); # max 10s for response + + my $url = $self->{'url'}; + my $response = $ua->post($url,$self->{'msg'}); + print ""; # for breakpointing + unless ($response->is_success) + { + my $msgid = $self->{'msg'}{'messageid'}; + my $msg = $self->{'msg'}{'message'}; + my $number = $self->{'msg'}{'number'}; + my $status = $response->code; + my $message = $response->message; + die "$0: error getting SMS message ID '$msgid' status: HTTP status $status message '$message'\n"; + } + + # Parse SMS service response (HTTP response content). + + my @content = split(/\n/,$response->content); + my %results = (); + foreach my $line (@content) + { + chomp($line); + if ($line =~ /^(\S+):\s+(.*)\s*$/) + { + my ($key,$value) = ($1,$2); + $results{$1} = $2; + } + else + { + warn "unrecognised result line: $line"; + } + } + + + my $status = $results{'Status'} eq 'OK'; + + print ""; + return ($status,%results); + +} +#~~~ +sub GetBalance +{ + my $self = shift; + my %args = (@_); + + # Set default URL for retrieving status. + $self->{'url'} = "https://api.phone.cam.ac.uk/api/text/1/getBalance"; + + # Save allowed arguments in $self, ignore extraneous ones (e.g. that + # can only be used in other calls or are misspelled). + + $self->{'msg'}{'token'} = $args{'token'} if defined $args{'token'}; + + my $ourname = (caller(0))[3]; + die "$ourname: mandatory argument token is undefined\n" unless defined $self->{'msg'}{'token'}; + + print ""; + my $ua = LWP::UserAgent->new; + $ua->timeout(10); # max 10s for response + + my $url = $self->{'url'}; + my $response = $ua->post($url,$self->{'msg'}); + print ""; # for breakpointing + unless ($response->is_success) + { + my $msgid = $self->{'msg'}{'messageid'}; + my $msg = $self->{'msg'}{'message'}; + my $number = $self->{'msg'}{'number'}; + my $status = $response->code; + my $message = $response->message; + die "$0: error getting SMS message ID '$msgid' status: HTTP status $status message '$message'\n"; + } + + # Parse SMS service response (HTTP response content). + + my @content = split(/\n/,$response->content); + my %results = (); + foreach my $line (@content) + { + chomp($line); + if ($line =~ /^(\S+):\s+(.*)\s*$/) + { + my ($key,$value) = ($1,$2); + $results{$1} = $2; + } + else + { + warn "unrecognised result line: $line"; + } + } + + + my $status = $results{'Status'} eq 'OK'; + + print ""; + return ($status,%results); + +} + + +#my $testmsg = Ucam::SMS::Send->new();#test => 'true'); +#my $token = 'vjaa-aaqb-zlni-hwvo-rhee'; +#my ($status,%results) = $testmsg->SendMessage(number => '07757080423', +# token => $token, +# message => 'test message 1-2-3'); +#($status,%results) = $testmsg->GetStatus(token => $token); +#print "SendMessage status: $status\n"; +#foreach my $key (sort(keys(%results))) +#{ +# printf "%-11s %s\n",$key,$results{$key}; +#} +#sleep(1); +#($status,%results) = $testmsg->GetStatus(token => $token); +#print "GetStatus#1: $status\n"; +#foreach my $key (sort(keys(%results))) +#{ +# printf "%-11s %s\n",$key,$results{$key}; +#} +#sleep(1); +#($status,%results) = $testmsg->GetStatus(token => $token); +#print "GetStatus#2: $status\n"; +#foreach my $key (sort(keys(%results))) +#{ +# printf "%-11s %s\n",$key,$results{$key}; +#} +#($status,%results) = $testmsg->GetBalance(token => $token); +#print "Balance status:: $status\n"; +#foreach my $key (sort(keys(%results))) +#{ +# printf "%-11s %s\n",$key,$results{$key}; +#} +# +#print ""; + + +} # end of package + +1; diff --git a/blib/lib/auto/Ucam/SMS/Send/.exists b/blib/lib/auto/Ucam/SMS/Send/.exists new file mode 100644 index 0000000..e69de29 diff --git a/blib/man1/.exists b/blib/man1/.exists new file mode 100644 index 0000000..e69de29 diff --git a/blib/man3/.exists b/blib/man3/.exists new file mode 100644 index 0000000..e69de29 diff --git a/blib/script/.exists b/blib/script/.exists new file mode 100644 index 0000000..e69de29 diff --git a/build/BUILD/Ucam-SMS-Send-1.00/META.json b/build/BUILD/Ucam-SMS-Send-1.00/META.json new file mode 100644 index 0000000..30562e2 --- /dev/null +++ b/build/BUILD/Ucam-SMS-Send-1.00/META.json @@ -0,0 +1,42 @@ +{ + "abstract" : "unknown", + "author" : [ + "unknown" + ], + "dynamic_config" : 1, + "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.120921", + "license" : [ + "unknown" + ], + "meta-spec" : { + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", + "version" : "2" + }, + "name" : "Ucam-SMS-Send", + "no_index" : { + "directory" : [ + "t", + "inc" + ] + }, + "prereqs" : { + "build" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + }, + "configure" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + }, + "runtime" : { + "requires" : { + "HTML::Entities" : "0", + "LWP::UserAgent" : "0" + } + } + }, + "release_status" : "stable", + "version" : "1.00" +} diff --git a/build/BUILD/Ucam-SMS-Send-1.00/META.yml b/build/BUILD/Ucam-SMS-Send-1.00/META.yml new file mode 100644 index 0000000..4dd4ced --- /dev/null +++ b/build/BUILD/Ucam-SMS-Send-1.00/META.yml @@ -0,0 +1,23 @@ +--- +abstract: unknown +author: + - unknown +build_requires: + ExtUtils::MakeMaker: 0 +configure_requires: + ExtUtils::MakeMaker: 0 +dynamic_config: 1 +generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.120921' +license: unknown +meta-spec: + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: 1.4 +name: Ucam-SMS-Send +no_index: + directory: + - t + - inc +requires: + HTML::Entities: 0 + LWP::UserAgent: 0 +version: 1.00 diff --git a/build/BUILD/Ucam-SMS-Send-1.00/MYMETA.json b/build/BUILD/Ucam-SMS-Send-1.00/MYMETA.json new file mode 100644 index 0000000..8832f1c --- /dev/null +++ b/build/BUILD/Ucam-SMS-Send-1.00/MYMETA.json @@ -0,0 +1,42 @@ +{ + "abstract" : "unknown", + "author" : [ + "unknown" + ], + "dynamic_config" : 0, + "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.120921", + "license" : [ + "unknown" + ], + "meta-spec" : { + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", + "version" : "2" + }, + "name" : "Ucam-SMS-Send", + "no_index" : { + "directory" : [ + "t", + "inc" + ] + }, + "prereqs" : { + "build" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + }, + "configure" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + }, + "runtime" : { + "requires" : { + "HTML::Entities" : "0", + "LWP::UserAgent" : "0" + } + } + }, + "release_status" : "stable", + "version" : "1.00" +} diff --git a/build/BUILD/Ucam-SMS-Send-1.00/MYMETA.yml b/build/BUILD/Ucam-SMS-Send-1.00/MYMETA.yml new file mode 100644 index 0000000..b62d70e --- /dev/null +++ b/build/BUILD/Ucam-SMS-Send-1.00/MYMETA.yml @@ -0,0 +1,23 @@ +--- +abstract: unknown +author: + - unknown +build_requires: + ExtUtils::MakeMaker: 0 +configure_requires: + ExtUtils::MakeMaker: 0 +dynamic_config: 0 +generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.120921' +license: unknown +meta-spec: + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: 1.4 +name: Ucam-SMS-Send +no_index: + directory: + - t + - inc +requires: + HTML::Entities: 0 + LWP::UserAgent: 0 +version: 1.00 diff --git a/build/BUILD/Ucam-SMS-Send-1.00/Makefile b/build/BUILD/Ucam-SMS-Send-1.00/Makefile new file mode 100644 index 0000000..a882e97 --- /dev/null +++ b/build/BUILD/Ucam-SMS-Send-1.00/Makefile @@ -0,0 +1,839 @@ +# This Makefile is for the Ucam::SMS::Send extension to perl. +# +# It was generated automatically by MakeMaker version +# 6.66 (Revision: 66600) from the contents of +# Makefile.PL. Don't edit this file, edit Makefile.PL instead. +# +# ANY CHANGES MADE HERE WILL BE LOST! +# +# MakeMaker ARGV: () +# + +# MakeMaker Parameters: + +# BUILD_REQUIRES => { } +# CONFIGURE_REQUIRES => { } +# NAME => q[Ucam::SMS::Send] +# PREREQ_PM => { HTML::Entities=>q[0], LWP::UserAgent=>q[0] } +# TEST_REQUIRES => { } +# VERSION_FROM => q[Send.pm] + +# --- MakeMaker post_initialize section: + + +# --- MakeMaker const_config section: + +# These definitions are from config.sh (via /usr/lib/perl/5.18/Config.pm). +# They may have been overridden via Makefile.PL or on the command line. +AR = ar +CC = cc +CCCDLFLAGS = -fPIC +CCDLFLAGS = -Wl,-E +DLEXT = so +DLSRC = dl_dlopen.xs +EXE_EXT = +FULL_AR = /usr/bin/ar +LD = cc +LDDLFLAGS = -shared -L/usr/local/lib -fstack-protector +LDFLAGS = -fstack-protector -L/usr/local/lib +LIBC = +LIB_EXT = .a +OBJ_EXT = .o +OSNAME = linux +OSVERS = 3.2.0-58-generic +RANLIB = : +SITELIBEXP = /usr/local/share/perl/5.18.2 +SITEARCHEXP = /usr/local/lib/perl/5.18.2 +SO = so +VENDORARCHEXP = /usr/lib/perl5 +VENDORLIBEXP = /usr/share/perl5 + + +# --- MakeMaker constants section: +AR_STATIC_ARGS = cr +DIRFILESEP = / +DFSEP = $(DIRFILESEP) +NAME = Ucam::SMS::Send +NAME_SYM = Ucam_SMS_Send +VERSION = 1.00 +VERSION_MACRO = VERSION +VERSION_SYM = 1_00 +DEFINE_VERSION = -D$(VERSION_MACRO)=\"$(VERSION)\" +XS_VERSION = 1.00 +XS_VERSION_MACRO = XS_VERSION +XS_DEFINE_VERSION = -D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\" +INST_ARCHLIB = blib/arch +INST_SCRIPT = blib/script +INST_BIN = blib/bin +INST_LIB = blib/lib +INST_MAN1DIR = blib/man1 +INST_MAN3DIR = blib/man3 +MAN1EXT = 1p +MAN3EXT = 3pm +INSTALLDIRS = site +DESTDIR = +PREFIX = /usr +PERLPREFIX = $(PREFIX) +SITEPREFIX = $(PREFIX)/local +VENDORPREFIX = $(PREFIX) +INSTALLPRIVLIB = $(PERLPREFIX)/share/perl/5.18 +DESTINSTALLPRIVLIB = $(DESTDIR)$(INSTALLPRIVLIB) +INSTALLSITELIB = $(SITEPREFIX)/share/perl/5.18.2 +DESTINSTALLSITELIB = $(DESTDIR)$(INSTALLSITELIB) +INSTALLVENDORLIB = $(VENDORPREFIX)/share/perl5 +DESTINSTALLVENDORLIB = $(DESTDIR)$(INSTALLVENDORLIB) +INSTALLARCHLIB = $(PERLPREFIX)/lib/perl/5.18 +DESTINSTALLARCHLIB = $(DESTDIR)$(INSTALLARCHLIB) +INSTALLSITEARCH = $(SITEPREFIX)/lib/perl/5.18.2 +DESTINSTALLSITEARCH = $(DESTDIR)$(INSTALLSITEARCH) +INSTALLVENDORARCH = $(VENDORPREFIX)/lib/perl5 +DESTINSTALLVENDORARCH = $(DESTDIR)$(INSTALLVENDORARCH) +INSTALLBIN = $(PERLPREFIX)/bin +DESTINSTALLBIN = $(DESTDIR)$(INSTALLBIN) +INSTALLSITEBIN = $(SITEPREFIX)/bin +DESTINSTALLSITEBIN = $(DESTDIR)$(INSTALLSITEBIN) +INSTALLVENDORBIN = $(VENDORPREFIX)/bin +DESTINSTALLVENDORBIN = $(DESTDIR)$(INSTALLVENDORBIN) +INSTALLSCRIPT = $(PERLPREFIX)/bin +DESTINSTALLSCRIPT = $(DESTDIR)$(INSTALLSCRIPT) +INSTALLSITESCRIPT = $(SITEPREFIX)/bin +DESTINSTALLSITESCRIPT = $(DESTDIR)$(INSTALLSITESCRIPT) +INSTALLVENDORSCRIPT = $(VENDORPREFIX)/bin +DESTINSTALLVENDORSCRIPT = $(DESTDIR)$(INSTALLVENDORSCRIPT) +INSTALLMAN1DIR = $(PERLPREFIX)/share/man/man1 +DESTINSTALLMAN1DIR = $(DESTDIR)$(INSTALLMAN1DIR) +INSTALLSITEMAN1DIR = $(SITEPREFIX)/man/man1 +DESTINSTALLSITEMAN1DIR = $(DESTDIR)$(INSTALLSITEMAN1DIR) +INSTALLVENDORMAN1DIR = $(VENDORPREFIX)/share/man/man1 +DESTINSTALLVENDORMAN1DIR = $(DESTDIR)$(INSTALLVENDORMAN1DIR) +INSTALLMAN3DIR = $(PERLPREFIX)/share/man/man3 +DESTINSTALLMAN3DIR = $(DESTDIR)$(INSTALLMAN3DIR) +INSTALLSITEMAN3DIR = $(SITEPREFIX)/man/man3 +DESTINSTALLSITEMAN3DIR = $(DESTDIR)$(INSTALLSITEMAN3DIR) +INSTALLVENDORMAN3DIR = $(VENDORPREFIX)/share/man/man3 +DESTINSTALLVENDORMAN3DIR = $(DESTDIR)$(INSTALLVENDORMAN3DIR) +PERL_LIB = /usr/share/perl/5.18 +PERL_ARCHLIB = /usr/lib/perl/5.18 +LIBPERL_A = libperl.a +FIRST_MAKEFILE = Makefile +MAKEFILE_OLD = Makefile.old +MAKE_APERL_FILE = Makefile.aperl +PERLMAINCC = $(CC) +PERL_INC = /usr/lib/perl/5.18/CORE +PERL = /usr/bin/perl +FULLPERL = /usr/bin/perl +ABSPERL = $(PERL) +PERLRUN = $(PERL) +FULLPERLRUN = $(FULLPERL) +ABSPERLRUN = $(ABSPERL) +PERLRUNINST = $(PERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" +FULLPERLRUNINST = $(FULLPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" +ABSPERLRUNINST = $(ABSPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" +PERL_CORE = 0 +PERM_DIR = 755 +PERM_RW = 644 +PERM_RWX = 755 + +MAKEMAKER = /usr/share/perl/5.18/ExtUtils/MakeMaker.pm +MM_VERSION = 6.66 +MM_REVISION = 66600 + +# FULLEXT = Pathname for extension directory (eg Foo/Bar/Oracle). +# BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT. (eg Oracle) +# PARENT_NAME = NAME without BASEEXT and no trailing :: (eg Foo::Bar) +# DLBASE = Basename part of dynamic library. May be just equal BASEEXT. +MAKE = make +FULLEXT = Ucam/SMS/Send +BASEEXT = Send +PARENT_NAME = Ucam::SMS +DLBASE = $(BASEEXT) +VERSION_FROM = Send.pm +OBJECT = +LDFROM = $(OBJECT) +LINKTYPE = dynamic +BOOTDEP = + +# Handy lists of source code files: +XS_FILES = +C_FILES = +O_FILES = +H_FILES = +MAN1PODS = +MAN3PODS = + +# Where is the Config information that we are using/depend on +CONFIGDEP = $(PERL_ARCHLIB)$(DFSEP)Config.pm $(PERL_INC)$(DFSEP)config.h + +# Where to build things +INST_LIBDIR = $(INST_LIB)/Ucam/SMS +INST_ARCHLIBDIR = $(INST_ARCHLIB)/Ucam/SMS + +INST_AUTODIR = $(INST_LIB)/auto/$(FULLEXT) +INST_ARCHAUTODIR = $(INST_ARCHLIB)/auto/$(FULLEXT) + +INST_STATIC = +INST_DYNAMIC = +INST_BOOT = + +# Extra linker info +EXPORT_LIST = +PERL_ARCHIVE = +PERL_ARCHIVE_AFTER = + + +TO_INST_PM = Send.pm + +PM_TO_BLIB = Send.pm \ + $(INST_LIB)/Ucam/SMS/Send.pm + + +# --- MakeMaker platform_constants section: +MM_Unix_VERSION = 6.66 +PERL_MALLOC_DEF = -DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc -Dfree=Perl_mfree -Drealloc=Perl_realloc -Dcalloc=Perl_calloc + + +# --- MakeMaker tool_autosplit section: +# Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto +AUTOSPLITFILE = $(ABSPERLRUN) -e 'use AutoSplit; autosplit($$$$ARGV[0], $$$$ARGV[1], 0, 1, 1)' -- + + + +# --- MakeMaker tool_xsubpp section: + + +# --- MakeMaker tools_other section: +SHELL = /bin/sh +CHMOD = chmod +CP = cp +MV = mv +NOOP = $(TRUE) +NOECHO = @ +RM_F = rm -f +RM_RF = rm -rf +TEST_F = test -f +TOUCH = touch +UMASK_NULL = umask 0 +DEV_NULL = > /dev/null 2>&1 +MKPATH = $(ABSPERLRUN) -MExtUtils::Command -e 'mkpath' -- +EQUALIZE_TIMESTAMP = $(ABSPERLRUN) -MExtUtils::Command -e 'eqtime' -- +FALSE = false +TRUE = true +ECHO = echo +ECHO_N = echo -n +UNINST = 0 +VERBINST = 0 +MOD_INSTALL = $(ABSPERLRUN) -MExtUtils::Install -e 'install([ from_to => {@ARGV}, verbose => '\''$(VERBINST)'\'', uninstall_shadows => '\''$(UNINST)'\'', dir_mode => '\''$(PERM_DIR)'\'' ]);' -- +DOC_INSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'perllocal_install' -- +UNINSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'uninstall' -- +WARN_IF_OLD_PACKLIST = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'warn_if_old_packlist' -- +MACROSTART = +MACROEND = +USEMAKEFILE = -f +FIXIN = $(ABSPERLRUN) -MExtUtils::MY -e 'MY->fixin(shift)' -- + + +# --- MakeMaker makemakerdflt section: +makemakerdflt : all + $(NOECHO) $(NOOP) + + +# --- MakeMaker dist section: +TAR = tar +TARFLAGS = cvf +ZIP = zip +ZIPFLAGS = -r +COMPRESS = gzip --best +SUFFIX = .gz +SHAR = shar +PREOP = $(NOECHO) $(NOOP) +POSTOP = $(NOECHO) $(NOOP) +TO_UNIX = $(NOECHO) $(NOOP) +CI = ci -u +RCS_LABEL = rcs -Nv$(VERSION_SYM): -q +DIST_CP = best +DIST_DEFAULT = tardist +DISTNAME = Ucam-SMS-Send +DISTVNAME = Ucam-SMS-Send-1.00 + + +# --- MakeMaker macro section: + + +# --- MakeMaker depend section: + + +# --- MakeMaker cflags section: + + +# --- MakeMaker const_loadlibs section: + + +# --- MakeMaker const_cccmd section: + + +# --- MakeMaker post_constants section: + + +# --- MakeMaker pasthru section: + +PASTHRU = LIBPERL_A="$(LIBPERL_A)"\ + LINKTYPE="$(LINKTYPE)"\ + LD="$(LD)"\ + PREFIX="$(PREFIX)" + + +# --- MakeMaker special_targets section: +.SUFFIXES : .xs .c .C .cpp .i .s .cxx .cc $(OBJ_EXT) + +.PHONY: all config static dynamic test linkext manifest blibdirs clean realclean disttest distdir + + + +# --- MakeMaker c_o section: + + +# --- MakeMaker xs_c section: + + +# --- MakeMaker xs_o section: + + +# --- MakeMaker top_targets section: +all :: pure_all manifypods + $(NOECHO) $(NOOP) + + +pure_all :: config pm_to_blib subdirs linkext + $(NOECHO) $(NOOP) + +subdirs :: $(MYEXTLIB) + $(NOECHO) $(NOOP) + +config :: $(FIRST_MAKEFILE) blibdirs + $(NOECHO) $(NOOP) + +help : + perldoc ExtUtils::MakeMaker + + +# --- MakeMaker blibdirs section: +blibdirs : $(INST_LIBDIR)$(DFSEP).exists $(INST_ARCHLIB)$(DFSEP).exists $(INST_AUTODIR)$(DFSEP).exists $(INST_ARCHAUTODIR)$(DFSEP).exists $(INST_BIN)$(DFSEP).exists $(INST_SCRIPT)$(DFSEP).exists $(INST_MAN1DIR)$(DFSEP).exists $(INST_MAN3DIR)$(DFSEP).exists + $(NOECHO) $(NOOP) + +# Backwards compat with 6.18 through 6.25 +blibdirs.ts : blibdirs + $(NOECHO) $(NOOP) + +$(INST_LIBDIR)$(DFSEP).exists :: Makefile.PL + $(NOECHO) $(MKPATH) $(INST_LIBDIR) + $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_LIBDIR) + $(NOECHO) $(TOUCH) $(INST_LIBDIR)$(DFSEP).exists + +$(INST_ARCHLIB)$(DFSEP).exists :: Makefile.PL + $(NOECHO) $(MKPATH) $(INST_ARCHLIB) + $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHLIB) + $(NOECHO) $(TOUCH) $(INST_ARCHLIB)$(DFSEP).exists + +$(INST_AUTODIR)$(DFSEP).exists :: Makefile.PL + $(NOECHO) $(MKPATH) $(INST_AUTODIR) + $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_AUTODIR) + $(NOECHO) $(TOUCH) $(INST_AUTODIR)$(DFSEP).exists + +$(INST_ARCHAUTODIR)$(DFSEP).exists :: Makefile.PL + $(NOECHO) $(MKPATH) $(INST_ARCHAUTODIR) + $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHAUTODIR) + $(NOECHO) $(TOUCH) $(INST_ARCHAUTODIR)$(DFSEP).exists + +$(INST_BIN)$(DFSEP).exists :: Makefile.PL + $(NOECHO) $(MKPATH) $(INST_BIN) + $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_BIN) + $(NOECHO) $(TOUCH) $(INST_BIN)$(DFSEP).exists + +$(INST_SCRIPT)$(DFSEP).exists :: Makefile.PL + $(NOECHO) $(MKPATH) $(INST_SCRIPT) + $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_SCRIPT) + $(NOECHO) $(TOUCH) $(INST_SCRIPT)$(DFSEP).exists + +$(INST_MAN1DIR)$(DFSEP).exists :: Makefile.PL + $(NOECHO) $(MKPATH) $(INST_MAN1DIR) + $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN1DIR) + $(NOECHO) $(TOUCH) $(INST_MAN1DIR)$(DFSEP).exists + +$(INST_MAN3DIR)$(DFSEP).exists :: Makefile.PL + $(NOECHO) $(MKPATH) $(INST_MAN3DIR) + $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN3DIR) + $(NOECHO) $(TOUCH) $(INST_MAN3DIR)$(DFSEP).exists + + + +# --- MakeMaker linkext section: + +linkext :: $(LINKTYPE) + $(NOECHO) $(NOOP) + + +# --- MakeMaker dlsyms section: + + +# --- MakeMaker dynamic section: + +dynamic :: $(FIRST_MAKEFILE) $(INST_DYNAMIC) $(INST_BOOT) + $(NOECHO) $(NOOP) + + +# --- MakeMaker dynamic_bs section: + +BOOTSTRAP = + + +# --- MakeMaker dynamic_lib section: + + +# --- MakeMaker static section: + +## $(INST_PM) has been moved to the all: target. +## It remains here for awhile to allow for old usage: "make static" +static :: $(FIRST_MAKEFILE) $(INST_STATIC) + $(NOECHO) $(NOOP) + + +# --- MakeMaker static_lib section: + + +# --- MakeMaker manifypods section: + +POD2MAN_EXE = $(PERLRUN) "-MExtUtils::Command::MM" -e pod2man "--" +POD2MAN = $(POD2MAN_EXE) + + +manifypods : pure_all + $(NOECHO) $(NOOP) + + + + +# --- MakeMaker processPL section: + + +# --- MakeMaker installbin section: + + +# --- MakeMaker subdirs section: + +# none + +# --- MakeMaker clean_subdirs section: +clean_subdirs : + $(NOECHO) $(NOOP) + + +# --- MakeMaker clean section: + +# Delete temporary files but do not touch installed files. We don't delete +# the Makefile here so a later make realclean still has a makefile to use. + +clean :: clean_subdirs + - $(RM_F) \ + perlmain.c core \ + MYMETA.yml lib$(BASEEXT).def \ + $(MAKE_APERL_FILE) $(BASEEXT).exp \ + mon.out core.[0-9][0-9][0-9][0-9] \ + *perl.core $(BASEEXT).bso \ + *$(LIB_EXT) perl$(EXE_EXT) \ + perl pm_to_blib \ + MYMETA.json $(BASEEXT).x \ + *$(OBJ_EXT) tmon.out \ + $(INST_ARCHAUTODIR)/extralibs.ld core.[0-9][0-9][0-9] \ + $(INST_ARCHAUTODIR)/extralibs.all core.[0-9][0-9] \ + pm_to_blib.ts core.*perl.*.? \ + so_locations $(BASEEXT).def \ + blibdirs.ts $(BOOTSTRAP) \ + perl.exe core.[0-9][0-9][0-9][0-9][0-9] \ + core.[0-9] + - $(RM_RF) \ + blib + - $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) $(DEV_NULL) + + +# --- MakeMaker realclean_subdirs section: +realclean_subdirs : + $(NOECHO) $(NOOP) + + +# --- MakeMaker realclean section: +# Delete temporary files (via clean) and also delete dist files +realclean purge :: clean realclean_subdirs + - $(RM_F) \ + $(FIRST_MAKEFILE) $(MAKEFILE_OLD) + - $(RM_RF) \ + $(DISTVNAME) + + +# --- MakeMaker metafile section: +metafile : create_distdir + $(NOECHO) $(ECHO) Generating META.yml + $(NOECHO) $(ECHO) '---' > META_new.yml + $(NOECHO) $(ECHO) 'abstract: unknown' >> META_new.yml + $(NOECHO) $(ECHO) 'author:' >> META_new.yml + $(NOECHO) $(ECHO) ' - unknown' >> META_new.yml + $(NOECHO) $(ECHO) 'build_requires:' >> META_new.yml + $(NOECHO) $(ECHO) ' ExtUtils::MakeMaker: 0' >> META_new.yml + $(NOECHO) $(ECHO) 'configure_requires:' >> META_new.yml + $(NOECHO) $(ECHO) ' ExtUtils::MakeMaker: 0' >> META_new.yml + $(NOECHO) $(ECHO) 'dynamic_config: 1' >> META_new.yml + $(NOECHO) $(ECHO) 'generated_by: '\''ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.120921'\''' >> META_new.yml + $(NOECHO) $(ECHO) 'license: unknown' >> META_new.yml + $(NOECHO) $(ECHO) 'meta-spec:' >> META_new.yml + $(NOECHO) $(ECHO) ' url: http://module-build.sourceforge.net/META-spec-v1.4.html' >> META_new.yml + $(NOECHO) $(ECHO) ' version: 1.4' >> META_new.yml + $(NOECHO) $(ECHO) 'name: Ucam-SMS-Send' >> META_new.yml + $(NOECHO) $(ECHO) 'no_index:' >> META_new.yml + $(NOECHO) $(ECHO) ' directory:' >> META_new.yml + $(NOECHO) $(ECHO) ' - t' >> META_new.yml + $(NOECHO) $(ECHO) ' - inc' >> META_new.yml + $(NOECHO) $(ECHO) 'requires:' >> META_new.yml + $(NOECHO) $(ECHO) ' HTML::Entities: 0' >> META_new.yml + $(NOECHO) $(ECHO) ' LWP::UserAgent: 0' >> META_new.yml + $(NOECHO) $(ECHO) 'version: 1.00' >> META_new.yml + -$(NOECHO) $(MV) META_new.yml $(DISTVNAME)/META.yml + $(NOECHO) $(ECHO) Generating META.json + $(NOECHO) $(ECHO) '{' > META_new.json + $(NOECHO) $(ECHO) ' "abstract" : "unknown",' >> META_new.json + $(NOECHO) $(ECHO) ' "author" : [' >> META_new.json + $(NOECHO) $(ECHO) ' "unknown"' >> META_new.json + $(NOECHO) $(ECHO) ' ],' >> META_new.json + $(NOECHO) $(ECHO) ' "dynamic_config" : 1,' >> META_new.json + $(NOECHO) $(ECHO) ' "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.120921",' >> META_new.json + $(NOECHO) $(ECHO) ' "license" : [' >> META_new.json + $(NOECHO) $(ECHO) ' "unknown"' >> META_new.json + $(NOECHO) $(ECHO) ' ],' >> META_new.json + $(NOECHO) $(ECHO) ' "meta-spec" : {' >> META_new.json + $(NOECHO) $(ECHO) ' "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",' >> META_new.json + $(NOECHO) $(ECHO) ' "version" : "2"' >> META_new.json + $(NOECHO) $(ECHO) ' },' >> META_new.json + $(NOECHO) $(ECHO) ' "name" : "Ucam-SMS-Send",' >> META_new.json + $(NOECHO) $(ECHO) ' "no_index" : {' >> META_new.json + $(NOECHO) $(ECHO) ' "directory" : [' >> META_new.json + $(NOECHO) $(ECHO) ' "t",' >> META_new.json + $(NOECHO) $(ECHO) ' "inc"' >> META_new.json + $(NOECHO) $(ECHO) ' ]' >> META_new.json + $(NOECHO) $(ECHO) ' },' >> META_new.json + $(NOECHO) $(ECHO) ' "prereqs" : {' >> META_new.json + $(NOECHO) $(ECHO) ' "build" : {' >> META_new.json + $(NOECHO) $(ECHO) ' "requires" : {' >> META_new.json + $(NOECHO) $(ECHO) ' "ExtUtils::MakeMaker" : "0"' >> META_new.json + $(NOECHO) $(ECHO) ' }' >> META_new.json + $(NOECHO) $(ECHO) ' },' >> META_new.json + $(NOECHO) $(ECHO) ' "configure" : {' >> META_new.json + $(NOECHO) $(ECHO) ' "requires" : {' >> META_new.json + $(NOECHO) $(ECHO) ' "ExtUtils::MakeMaker" : "0"' >> META_new.json + $(NOECHO) $(ECHO) ' }' >> META_new.json + $(NOECHO) $(ECHO) ' },' >> META_new.json + $(NOECHO) $(ECHO) ' "runtime" : {' >> META_new.json + $(NOECHO) $(ECHO) ' "requires" : {' >> META_new.json + $(NOECHO) $(ECHO) ' "HTML::Entities" : "0",' >> META_new.json + $(NOECHO) $(ECHO) ' "LWP::UserAgent" : "0"' >> META_new.json + $(NOECHO) $(ECHO) ' }' >> META_new.json + $(NOECHO) $(ECHO) ' }' >> META_new.json + $(NOECHO) $(ECHO) ' },' >> META_new.json + $(NOECHO) $(ECHO) ' "release_status" : "stable",' >> META_new.json + $(NOECHO) $(ECHO) ' "version" : "1.00"' >> META_new.json + $(NOECHO) $(ECHO) '}' >> META_new.json + -$(NOECHO) $(MV) META_new.json $(DISTVNAME)/META.json + + +# --- MakeMaker signature section: +signature : + cpansign -s + + +# --- MakeMaker dist_basics section: +distclean :: realclean distcheck + $(NOECHO) $(NOOP) + +distcheck : + $(PERLRUN) "-MExtUtils::Manifest=fullcheck" -e fullcheck + +skipcheck : + $(PERLRUN) "-MExtUtils::Manifest=skipcheck" -e skipcheck + +manifest : + $(PERLRUN) "-MExtUtils::Manifest=mkmanifest" -e mkmanifest + +veryclean : realclean + $(RM_F) *~ */*~ *.orig */*.orig *.bak */*.bak *.old */*.old + + + +# --- MakeMaker dist_core section: + +dist : $(DIST_DEFAULT) $(FIRST_MAKEFILE) + $(NOECHO) $(ABSPERLRUN) -l -e 'print '\''Warning: Makefile possibly out of date with $(VERSION_FROM)'\''' \ + -e ' if -e '\''$(VERSION_FROM)'\'' and -M '\''$(VERSION_FROM)'\'' < -M '\''$(FIRST_MAKEFILE)'\'';' -- + +tardist : $(DISTVNAME).tar$(SUFFIX) + $(NOECHO) $(NOOP) + +uutardist : $(DISTVNAME).tar$(SUFFIX) + uuencode $(DISTVNAME).tar$(SUFFIX) $(DISTVNAME).tar$(SUFFIX) > $(DISTVNAME).tar$(SUFFIX)_uu + +$(DISTVNAME).tar$(SUFFIX) : distdir + $(PREOP) + $(TO_UNIX) + $(TAR) $(TARFLAGS) $(DISTVNAME).tar $(DISTVNAME) + $(RM_RF) $(DISTVNAME) + $(COMPRESS) $(DISTVNAME).tar + $(POSTOP) + +zipdist : $(DISTVNAME).zip + $(NOECHO) $(NOOP) + +$(DISTVNAME).zip : distdir + $(PREOP) + $(ZIP) $(ZIPFLAGS) $(DISTVNAME).zip $(DISTVNAME) + $(RM_RF) $(DISTVNAME) + $(POSTOP) + +shdist : distdir + $(PREOP) + $(SHAR) $(DISTVNAME) > $(DISTVNAME).shar + $(RM_RF) $(DISTVNAME) + $(POSTOP) + + +# --- MakeMaker distdir section: +create_distdir : + $(RM_RF) $(DISTVNAME) + $(PERLRUN) "-MExtUtils::Manifest=manicopy,maniread" \ + -e "manicopy(maniread(),'$(DISTVNAME)', '$(DIST_CP)');" + +distdir : create_distdir distmeta + $(NOECHO) $(NOOP) + + + +# --- MakeMaker dist_test section: +disttest : distdir + cd $(DISTVNAME) && $(ABSPERLRUN) Makefile.PL + cd $(DISTVNAME) && $(MAKE) $(PASTHRU) + cd $(DISTVNAME) && $(MAKE) test $(PASTHRU) + + + +# --- MakeMaker dist_ci section: + +ci : + $(PERLRUN) "-MExtUtils::Manifest=maniread" \ + -e "@all = keys %{ maniread() };" \ + -e "print(qq{Executing $(CI) @all\n}); system(qq{$(CI) @all});" \ + -e "print(qq{Executing $(RCS_LABEL) ...\n}); system(qq{$(RCS_LABEL) @all});" + + +# --- MakeMaker distmeta section: +distmeta : create_distdir metafile + $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'exit unless -e q{META.yml};' \ + -e 'eval { maniadd({q{META.yml} => q{Module YAML meta-data (added by MakeMaker)}}) }' \ + -e ' or print "Could not add META.yml to MANIFEST: $$$${'\''@'\''}\n"' -- + $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'exit unless -f q{META.json};' \ + -e 'eval { maniadd({q{META.json} => q{Module JSON meta-data (added by MakeMaker)}}) }' \ + -e ' or print "Could not add META.json to MANIFEST: $$$${'\''@'\''}\n"' -- + + + +# --- MakeMaker distsignature section: +distsignature : create_distdir + $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{SIGNATURE} => q{Public-key signature (added by MakeMaker)}}) } ' \ + -e ' or print "Could not add SIGNATURE to MANIFEST: $$$${'\''@'\''}\n"' -- + $(NOECHO) cd $(DISTVNAME) && $(TOUCH) SIGNATURE + cd $(DISTVNAME) && cpansign -s + + + +# --- MakeMaker install section: + +install :: pure_install doc_install + $(NOECHO) $(NOOP) + +install_perl :: pure_perl_install doc_perl_install + $(NOECHO) $(NOOP) + +install_site :: pure_site_install doc_site_install + $(NOECHO) $(NOOP) + +install_vendor :: pure_vendor_install doc_vendor_install + $(NOECHO) $(NOOP) + +pure_install :: pure_$(INSTALLDIRS)_install + $(NOECHO) $(NOOP) + +doc_install :: doc_$(INSTALLDIRS)_install + $(NOECHO) $(NOOP) + +pure__install : pure_site_install + $(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site + +doc__install : doc_site_install + $(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site + +pure_perl_install :: all + $(NOECHO) umask 022; $(MOD_INSTALL) \ + $(INST_LIB) $(DESTINSTALLPRIVLIB) \ + $(INST_ARCHLIB) $(DESTINSTALLARCHLIB) \ + $(INST_BIN) $(DESTINSTALLBIN) \ + $(INST_SCRIPT) $(DESTINSTALLSCRIPT) \ + $(INST_MAN1DIR) $(DESTINSTALLMAN1DIR) \ + $(INST_MAN3DIR) $(DESTINSTALLMAN3DIR) + $(NOECHO) $(WARN_IF_OLD_PACKLIST) \ + $(SITEARCHEXP)/auto/$(FULLEXT) + + +pure_site_install :: all + $(NOECHO) umask 02; $(MOD_INSTALL) \ + read $(SITEARCHEXP)/auto/$(FULLEXT)/.packlist \ + write $(DESTINSTALLSITEARCH)/auto/$(FULLEXT)/.packlist \ + $(INST_LIB) $(DESTINSTALLSITELIB) \ + $(INST_ARCHLIB) $(DESTINSTALLSITEARCH) \ + $(INST_BIN) $(DESTINSTALLSITEBIN) \ + $(INST_SCRIPT) $(DESTINSTALLSITESCRIPT) \ + $(INST_MAN1DIR) $(DESTINSTALLSITEMAN1DIR) \ + $(INST_MAN3DIR) $(DESTINSTALLSITEMAN3DIR) + $(NOECHO) $(WARN_IF_OLD_PACKLIST) \ + $(PERL_ARCHLIB)/auto/$(FULLEXT) + +pure_vendor_install :: all + $(NOECHO) umask 022; $(MOD_INSTALL) \ + $(INST_LIB) $(DESTINSTALLVENDORLIB) \ + $(INST_ARCHLIB) $(DESTINSTALLVENDORARCH) \ + $(INST_BIN) $(DESTINSTALLVENDORBIN) \ + $(INST_SCRIPT) $(DESTINSTALLVENDORSCRIPT) \ + $(INST_MAN1DIR) $(DESTINSTALLVENDORMAN1DIR) \ + $(INST_MAN3DIR) $(DESTINSTALLVENDORMAN3DIR) + +doc_perl_install :: all + +doc_site_install :: all + $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLSITEARCH)/perllocal.pod + -$(NOECHO) umask 02; $(MKPATH) $(DESTINSTALLSITEARCH) + -$(NOECHO) umask 02; $(DOC_INSTALL) \ + "Module" "$(NAME)" \ + "installed into" "$(INSTALLSITELIB)" \ + LINKTYPE "$(LINKTYPE)" \ + VERSION "$(VERSION)" \ + EXE_FILES "$(EXE_FILES)" \ + >> $(DESTINSTALLSITEARCH)/perllocal.pod + +doc_vendor_install :: all + + +uninstall :: uninstall_from_$(INSTALLDIRS)dirs + $(NOECHO) $(NOOP) + +uninstall_from_perldirs :: + +uninstall_from_sitedirs :: + $(NOECHO) $(UNINSTALL) $(SITEARCHEXP)/auto/$(FULLEXT)/.packlist + +uninstall_from_vendordirs :: + + + +# --- MakeMaker force section: +# Phony target to force checking subdirectories. +FORCE : + $(NOECHO) $(NOOP) + + +# --- MakeMaker perldepend section: + + +# --- MakeMaker makefile section: +# We take a very conservative approach here, but it's worth it. +# We move Makefile to Makefile.old here to avoid gnu make looping. +$(FIRST_MAKEFILE) : Makefile.PL $(CONFIGDEP) + $(NOECHO) $(ECHO) "Makefile out-of-date with respect to $?" + $(NOECHO) $(ECHO) "Cleaning current config before rebuilding Makefile..." + -$(NOECHO) $(RM_F) $(MAKEFILE_OLD) + -$(NOECHO) $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) + - $(MAKE) $(USEMAKEFILE) $(MAKEFILE_OLD) clean $(DEV_NULL) + $(PERLRUN) Makefile.PL + $(NOECHO) $(ECHO) "==> Your Makefile has been rebuilt. <==" + $(NOECHO) $(ECHO) "==> Please rerun the $(MAKE) command. <==" + $(FALSE) + + + +# --- MakeMaker staticmake section: + +# --- MakeMaker makeaperl section --- +MAP_TARGET = perl +FULLPERL = /usr/bin/perl + +$(MAP_TARGET) :: static $(MAKE_APERL_FILE) + $(MAKE) $(USEMAKEFILE) $(MAKE_APERL_FILE) $@ + +$(MAKE_APERL_FILE) : $(FIRST_MAKEFILE) pm_to_blib + $(NOECHO) $(ECHO) Writing \"$(MAKE_APERL_FILE)\" for this $(MAP_TARGET) + $(NOECHO) $(PERLRUNINST) \ + Makefile.PL DIR= \ + MAKEFILE=$(MAKE_APERL_FILE) LINKTYPE=static \ + MAKEAPERL=1 NORECURS=1 CCCDLFLAGS= + + +# --- MakeMaker test section: + +TEST_VERBOSE=0 +TEST_TYPE=test_$(LINKTYPE) +TEST_FILE = test.pl +TEST_FILES = +TESTDB_SW = -d + +testdb :: testdb_$(LINKTYPE) + +test :: $(TEST_TYPE) subdirs-test + +subdirs-test :: + $(NOECHO) $(NOOP) + + $(NOECHO) $(ECHO) 'No tests defined for $(NAME) extension.' + +test_dynamic :: pure_all + +testdb_dynamic :: pure_all + PERL_DL_NONLAZY=1 $(FULLPERLRUN) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE) + +test_ : test_dynamic + +test_static :: test_dynamic +testdb_static :: testdb_dynamic + + +# --- MakeMaker ppd section: +# Creates a PPD (Perl Package Description) for a binary distribution. +ppd : + $(NOECHO) $(ECHO) '' > $(DISTNAME).ppd + $(NOECHO) $(ECHO) ' ' >> $(DISTNAME).ppd + $(NOECHO) $(ECHO) ' ' >> $(DISTNAME).ppd + $(NOECHO) $(ECHO) ' ' >> $(DISTNAME).ppd + $(NOECHO) $(ECHO) ' ' >> $(DISTNAME).ppd + $(NOECHO) $(ECHO) ' ' >> $(DISTNAME).ppd + $(NOECHO) $(ECHO) ' ' >> $(DISTNAME).ppd + $(NOECHO) $(ECHO) ' ' >> $(DISTNAME).ppd + $(NOECHO) $(ECHO) ' ' >> $(DISTNAME).ppd + $(NOECHO) $(ECHO) '' >> $(DISTNAME).ppd + + +# --- MakeMaker pm_to_blib section: + +pm_to_blib : $(FIRST_MAKEFILE) $(TO_INST_PM) + $(NOECHO) $(ABSPERLRUN) -MExtUtils::Install -e 'pm_to_blib({@ARGV}, '\''$(INST_LIB)/auto'\'', q[$(PM_FILTER)], '\''$(PERM_DIR)'\'')' -- \ + Send.pm $(INST_LIB)/Ucam/SMS/Send.pm + $(NOECHO) $(TOUCH) pm_to_blib + + +# --- MakeMaker selfdocument section: + + +# --- MakeMaker postamble section: + + +# End. diff --git a/build/BUILD/Ucam-SMS-Send-1.00/Makefile.PL b/build/BUILD/Ucam-SMS-Send-1.00/Makefile.PL new file mode 100644 index 0000000..9f92d17 --- /dev/null +++ b/build/BUILD/Ucam-SMS-Send-1.00/Makefile.PL @@ -0,0 +1,12 @@ +use ExtUtils::MakeMaker; + +# See lib/ExtUtils/MakeMaker.pm for details of how to influence +# the contents of the Makefile that is written. + +WriteMakefile( + 'NAME' => 'Ucam::SMS::Send', + 'VERSION_FROM' => 'Send.pm', # finds $VERSION + 'PREREQ_PM' => {LWP::UserAgent => 0, + HTML::Entities => 0, + } +); diff --git a/build/BUILD/Ucam-SMS-Send-1.00/Send.pm b/build/BUILD/Ucam-SMS-Send-1.00/Send.pm new file mode 100644 index 0000000..7ab0f36 --- /dev/null +++ b/build/BUILD/Ucam-SMS-Send-1.00/Send.pm @@ -0,0 +1,262 @@ +#!/usr/bin/perl + +{ package Ucam::SMS::Send; + +use warnings; +use strict; +use LWP::UserAgent; +use HTML::Entities; + +use vars qw/$VERSION/; +$VERSION = '1.00'; + +sub new +{ + my $proto = shift; + my $class = ref($proto) || $proto; + my $self = {}; + bless ($self,$class); + + my %args = (@_); + + # Save allowed arguments in $self, ignore extraneous ones (e.g. that + # can only be used in other calls). + $self->{'url'} = $args{'url'}; + # The message-specific details... + $self->{'msg'}{'token'} = $args{'token'}; + $self->{'msg'}{'bulk'} = $args{'bulk'}; + $self->{'msg'}{'truncate'} = $args{'truncate'}; + $self->{'msg'}{'long_message'} = $args{'long_message'}; + $self->{'msg'}{'test'} = $args{'test'}; + + return $self; +} + +sub SendMessage +{ + my $self = shift; + my %args = (@_); + + # Set default URL for retrieving status. + $self->{'url'} = "https://api.phone.cam.ac.uk/api/text/1/submitSMS"; + + # Save allowed arguments in $self, ignore extraneous ones (e.g. that + # can only be used in other calls or are misspelled). + $self->{'url'} = $args{'url'} if defined $args{'url'}; + # The message-specific details... + $self->{'msg'}{'token'} = $args{'token'} if defined $args{'token'}; + $self->{'msg'}{'number'} = $args{'number'} if defined $args{'number'}; + $self->{'msg'}{'message'} = $args{'message'} if defined $args{'message'}; + $self->{'msg'}{'bulk'} = $args{'bulk'} if defined $args{'bulk'}; + $self->{'msg'}{'truncate'} = $args{'truncate'} if defined $args{'truncate'}; + $self->{'msg'}{'long_message'} = $args{'long_message'} if defined $args{'long_message'}; + $self->{'msg'}{'test'} = $args{'test'} if defined $args{'test'}; + + my $ourname = (caller(0))[3]; + die "$ourname: mandatory argument token is undefined\n" unless defined $self->{'msg'}{'token'}; + die "$ourname: mandatory argument number is undefined\n" unless defined $self->{'msg'}{'number'}; + die "$ourname: mandatory argument message is undefined\n" unless defined $self->{'msg'}{'message'}; + + print ""; + my $ua = LWP::UserAgent->new; + $ua->timeout(10); # max 10s for response + + + my $url = $self->{'url'}; + my $response = $ua->post($url,$self->{'msg'}); + print ""; # for breakpointing + unless ($response->is_success) + { + my $msg = $self->{'msg'}{'message'}; + my $number = $self->{'msg'}{'number'}; + my $status = $response->code; + my $message = $response->message; + die "$0: error sending SMS message '$msg' to $number: HTTP status $status message '$message'\n"; + } + + # Parse SMS service response (HTTP response content). + + my @content = split(/\n/,$response->content); + my %results = (); + foreach my $line (@content) + { + chomp($line); + if ($line =~ /^(\S+):\s+(.*)\s*$/) + { + my ($key,$value) = ($1,$2); + $results{$1} = $2; + + $self->{'msg'}{'messageid'} = $2 if $1 eq 'Msg-ID'; +# warn "$key: $value\n"; + } + else + { + warn "unrecognised result line: $line"; + } + } + + my $status = $results{'Status'} eq 'OK'; + return ($status,%results); + +} + +sub GetStatus +{ + my $self = shift; + my %args = (@_); + + # Set default URL for retrieving status. + $self->{'url'} = "https://api.phone.cam.ac.uk/api/text/1/getMessageStatus"; + + # Save allowed arguments in $self, ignore extraneous ones (e.g. that + # can only be used in other calls or are misspelled). + + $self->{'url'} = $args{'url'} if defined $args{'url'}; + $self->{'msg'}{'token'} = $args{'token'} if defined $args{'token'}; + $self->{'msg'}{'messageid'} = $args{'messageid'} if defined $args{'messageid'}; + + my $ourname = (caller(0))[3]; + die "$ourname: mandatory argument token is undefined\n" unless defined $self->{'msg'}{'token'}; + die "$ourname: mandatory argument messageid is undefined (was it a test-mode message?)\n" unless defined $self->{'msg'}{'messageid'}; + + print ""; + my $ua = LWP::UserAgent->new; + $ua->timeout(10); # max 10s for response + + my $url = $self->{'url'}; + my $response = $ua->post($url,$self->{'msg'}); + print ""; # for breakpointing + unless ($response->is_success) + { + my $msgid = $self->{'msg'}{'messageid'}; + my $msg = $self->{'msg'}{'message'}; + my $number = $self->{'msg'}{'number'}; + my $status = $response->code; + my $message = $response->message; + die "$0: error getting SMS message ID '$msgid' status: HTTP status $status message '$message'\n"; + } + + # Parse SMS service response (HTTP response content). + + my @content = split(/\n/,$response->content); + my %results = (); + foreach my $line (@content) + { + chomp($line); + if ($line =~ /^(\S+):\s+(.*)\s*$/) + { + my ($key,$value) = ($1,$2); + $results{$1} = $2; + } + else + { + warn "unrecognised result line: $line"; + } + } + + + my $status = $results{'Status'} eq 'OK'; + + print ""; + return ($status,%results); + +} +#~~~ +sub GetBalance +{ + my $self = shift; + my %args = (@_); + + # Set default URL for retrieving status. + $self->{'url'} = "https://api.phone.cam.ac.uk/api/text/1/getBalance"; + + # Save allowed arguments in $self, ignore extraneous ones (e.g. that + # can only be used in other calls or are misspelled). + + $self->{'msg'}{'token'} = $args{'token'} if defined $args{'token'}; + + my $ourname = (caller(0))[3]; + die "$ourname: mandatory argument token is undefined\n" unless defined $self->{'msg'}{'token'}; + + print ""; + my $ua = LWP::UserAgent->new; + $ua->timeout(10); # max 10s for response + + my $url = $self->{'url'}; + my $response = $ua->post($url,$self->{'msg'}); + print ""; # for breakpointing + unless ($response->is_success) + { + my $msgid = $self->{'msg'}{'messageid'}; + my $msg = $self->{'msg'}{'message'}; + my $number = $self->{'msg'}{'number'}; + my $status = $response->code; + my $message = $response->message; + die "$0: error getting SMS message ID '$msgid' status: HTTP status $status message '$message'\n"; + } + + # Parse SMS service response (HTTP response content). + + my @content = split(/\n/,$response->content); + my %results = (); + foreach my $line (@content) + { + chomp($line); + if ($line =~ /^(\S+):\s+(.*)\s*$/) + { + my ($key,$value) = ($1,$2); + $results{$1} = $2; + } + else + { + warn "unrecognised result line: $line"; + } + } + + + my $status = $results{'Status'} eq 'OK'; + + print ""; + return ($status,%results); + +} + + +#my $testmsg = Ucam::SMS::Send->new();#test => 'true'); +#my $token = 'vjaa-aaqb-zlni-hwvo-rhee'; +#my ($status,%results) = $testmsg->SendMessage(number => '07757080423', +# token => $token, +# message => 'test message 1-2-3'); +#($status,%results) = $testmsg->GetStatus(token => $token); +#print "SendMessage status: $status\n"; +#foreach my $key (sort(keys(%results))) +#{ +# printf "%-11s %s\n",$key,$results{$key}; +#} +#sleep(1); +#($status,%results) = $testmsg->GetStatus(token => $token); +#print "GetStatus#1: $status\n"; +#foreach my $key (sort(keys(%results))) +#{ +# printf "%-11s %s\n",$key,$results{$key}; +#} +#sleep(1); +#($status,%results) = $testmsg->GetStatus(token => $token); +#print "GetStatus#2: $status\n"; +#foreach my $key (sort(keys(%results))) +#{ +# printf "%-11s %s\n",$key,$results{$key}; +#} +#($status,%results) = $testmsg->GetBalance(token => $token); +#print "Balance status:: $status\n"; +#foreach my $key (sort(keys(%results))) +#{ +# printf "%-11s %s\n",$key,$results{$key}; +#} +# +#print ""; + + +} # end of package + +1; diff --git a/build/BUILD/Ucam-SMS-Send-1.00/blib/arch/.exists b/build/BUILD/Ucam-SMS-Send-1.00/blib/arch/.exists new file mode 100644 index 0000000..e69de29 diff --git a/build/BUILD/Ucam-SMS-Send-1.00/blib/arch/auto/Ucam/SMS/Send/.exists b/build/BUILD/Ucam-SMS-Send-1.00/blib/arch/auto/Ucam/SMS/Send/.exists new file mode 100644 index 0000000..e69de29 diff --git a/build/BUILD/Ucam-SMS-Send-1.00/blib/bin/.exists b/build/BUILD/Ucam-SMS-Send-1.00/blib/bin/.exists new file mode 100644 index 0000000..e69de29 diff --git a/build/BUILD/Ucam-SMS-Send-1.00/blib/lib/Ucam/SMS/.exists b/build/BUILD/Ucam-SMS-Send-1.00/blib/lib/Ucam/SMS/.exists new file mode 100644 index 0000000..e69de29 diff --git a/build/BUILD/Ucam-SMS-Send-1.00/blib/lib/Ucam/SMS/Send.pm b/build/BUILD/Ucam-SMS-Send-1.00/blib/lib/Ucam/SMS/Send.pm new file mode 100644 index 0000000..7ab0f36 --- /dev/null +++ b/build/BUILD/Ucam-SMS-Send-1.00/blib/lib/Ucam/SMS/Send.pm @@ -0,0 +1,262 @@ +#!/usr/bin/perl + +{ package Ucam::SMS::Send; + +use warnings; +use strict; +use LWP::UserAgent; +use HTML::Entities; + +use vars qw/$VERSION/; +$VERSION = '1.00'; + +sub new +{ + my $proto = shift; + my $class = ref($proto) || $proto; + my $self = {}; + bless ($self,$class); + + my %args = (@_); + + # Save allowed arguments in $self, ignore extraneous ones (e.g. that + # can only be used in other calls). + $self->{'url'} = $args{'url'}; + # The message-specific details... + $self->{'msg'}{'token'} = $args{'token'}; + $self->{'msg'}{'bulk'} = $args{'bulk'}; + $self->{'msg'}{'truncate'} = $args{'truncate'}; + $self->{'msg'}{'long_message'} = $args{'long_message'}; + $self->{'msg'}{'test'} = $args{'test'}; + + return $self; +} + +sub SendMessage +{ + my $self = shift; + my %args = (@_); + + # Set default URL for retrieving status. + $self->{'url'} = "https://api.phone.cam.ac.uk/api/text/1/submitSMS"; + + # Save allowed arguments in $self, ignore extraneous ones (e.g. that + # can only be used in other calls or are misspelled). + $self->{'url'} = $args{'url'} if defined $args{'url'}; + # The message-specific details... + $self->{'msg'}{'token'} = $args{'token'} if defined $args{'token'}; + $self->{'msg'}{'number'} = $args{'number'} if defined $args{'number'}; + $self->{'msg'}{'message'} = $args{'message'} if defined $args{'message'}; + $self->{'msg'}{'bulk'} = $args{'bulk'} if defined $args{'bulk'}; + $self->{'msg'}{'truncate'} = $args{'truncate'} if defined $args{'truncate'}; + $self->{'msg'}{'long_message'} = $args{'long_message'} if defined $args{'long_message'}; + $self->{'msg'}{'test'} = $args{'test'} if defined $args{'test'}; + + my $ourname = (caller(0))[3]; + die "$ourname: mandatory argument token is undefined\n" unless defined $self->{'msg'}{'token'}; + die "$ourname: mandatory argument number is undefined\n" unless defined $self->{'msg'}{'number'}; + die "$ourname: mandatory argument message is undefined\n" unless defined $self->{'msg'}{'message'}; + + print ""; + my $ua = LWP::UserAgent->new; + $ua->timeout(10); # max 10s for response + + + my $url = $self->{'url'}; + my $response = $ua->post($url,$self->{'msg'}); + print ""; # for breakpointing + unless ($response->is_success) + { + my $msg = $self->{'msg'}{'message'}; + my $number = $self->{'msg'}{'number'}; + my $status = $response->code; + my $message = $response->message; + die "$0: error sending SMS message '$msg' to $number: HTTP status $status message '$message'\n"; + } + + # Parse SMS service response (HTTP response content). + + my @content = split(/\n/,$response->content); + my %results = (); + foreach my $line (@content) + { + chomp($line); + if ($line =~ /^(\S+):\s+(.*)\s*$/) + { + my ($key,$value) = ($1,$2); + $results{$1} = $2; + + $self->{'msg'}{'messageid'} = $2 if $1 eq 'Msg-ID'; +# warn "$key: $value\n"; + } + else + { + warn "unrecognised result line: $line"; + } + } + + my $status = $results{'Status'} eq 'OK'; + return ($status,%results); + +} + +sub GetStatus +{ + my $self = shift; + my %args = (@_); + + # Set default URL for retrieving status. + $self->{'url'} = "https://api.phone.cam.ac.uk/api/text/1/getMessageStatus"; + + # Save allowed arguments in $self, ignore extraneous ones (e.g. that + # can only be used in other calls or are misspelled). + + $self->{'url'} = $args{'url'} if defined $args{'url'}; + $self->{'msg'}{'token'} = $args{'token'} if defined $args{'token'}; + $self->{'msg'}{'messageid'} = $args{'messageid'} if defined $args{'messageid'}; + + my $ourname = (caller(0))[3]; + die "$ourname: mandatory argument token is undefined\n" unless defined $self->{'msg'}{'token'}; + die "$ourname: mandatory argument messageid is undefined (was it a test-mode message?)\n" unless defined $self->{'msg'}{'messageid'}; + + print ""; + my $ua = LWP::UserAgent->new; + $ua->timeout(10); # max 10s for response + + my $url = $self->{'url'}; + my $response = $ua->post($url,$self->{'msg'}); + print ""; # for breakpointing + unless ($response->is_success) + { + my $msgid = $self->{'msg'}{'messageid'}; + my $msg = $self->{'msg'}{'message'}; + my $number = $self->{'msg'}{'number'}; + my $status = $response->code; + my $message = $response->message; + die "$0: error getting SMS message ID '$msgid' status: HTTP status $status message '$message'\n"; + } + + # Parse SMS service response (HTTP response content). + + my @content = split(/\n/,$response->content); + my %results = (); + foreach my $line (@content) + { + chomp($line); + if ($line =~ /^(\S+):\s+(.*)\s*$/) + { + my ($key,$value) = ($1,$2); + $results{$1} = $2; + } + else + { + warn "unrecognised result line: $line"; + } + } + + + my $status = $results{'Status'} eq 'OK'; + + print ""; + return ($status,%results); + +} +#~~~ +sub GetBalance +{ + my $self = shift; + my %args = (@_); + + # Set default URL for retrieving status. + $self->{'url'} = "https://api.phone.cam.ac.uk/api/text/1/getBalance"; + + # Save allowed arguments in $self, ignore extraneous ones (e.g. that + # can only be used in other calls or are misspelled). + + $self->{'msg'}{'token'} = $args{'token'} if defined $args{'token'}; + + my $ourname = (caller(0))[3]; + die "$ourname: mandatory argument token is undefined\n" unless defined $self->{'msg'}{'token'}; + + print ""; + my $ua = LWP::UserAgent->new; + $ua->timeout(10); # max 10s for response + + my $url = $self->{'url'}; + my $response = $ua->post($url,$self->{'msg'}); + print ""; # for breakpointing + unless ($response->is_success) + { + my $msgid = $self->{'msg'}{'messageid'}; + my $msg = $self->{'msg'}{'message'}; + my $number = $self->{'msg'}{'number'}; + my $status = $response->code; + my $message = $response->message; + die "$0: error getting SMS message ID '$msgid' status: HTTP status $status message '$message'\n"; + } + + # Parse SMS service response (HTTP response content). + + my @content = split(/\n/,$response->content); + my %results = (); + foreach my $line (@content) + { + chomp($line); + if ($line =~ /^(\S+):\s+(.*)\s*$/) + { + my ($key,$value) = ($1,$2); + $results{$1} = $2; + } + else + { + warn "unrecognised result line: $line"; + } + } + + + my $status = $results{'Status'} eq 'OK'; + + print ""; + return ($status,%results); + +} + + +#my $testmsg = Ucam::SMS::Send->new();#test => 'true'); +#my $token = 'vjaa-aaqb-zlni-hwvo-rhee'; +#my ($status,%results) = $testmsg->SendMessage(number => '07757080423', +# token => $token, +# message => 'test message 1-2-3'); +#($status,%results) = $testmsg->GetStatus(token => $token); +#print "SendMessage status: $status\n"; +#foreach my $key (sort(keys(%results))) +#{ +# printf "%-11s %s\n",$key,$results{$key}; +#} +#sleep(1); +#($status,%results) = $testmsg->GetStatus(token => $token); +#print "GetStatus#1: $status\n"; +#foreach my $key (sort(keys(%results))) +#{ +# printf "%-11s %s\n",$key,$results{$key}; +#} +#sleep(1); +#($status,%results) = $testmsg->GetStatus(token => $token); +#print "GetStatus#2: $status\n"; +#foreach my $key (sort(keys(%results))) +#{ +# printf "%-11s %s\n",$key,$results{$key}; +#} +#($status,%results) = $testmsg->GetBalance(token => $token); +#print "Balance status:: $status\n"; +#foreach my $key (sort(keys(%results))) +#{ +# printf "%-11s %s\n",$key,$results{$key}; +#} +# +#print ""; + + +} # end of package + +1; diff --git a/build/BUILD/Ucam-SMS-Send-1.00/blib/lib/auto/Ucam/SMS/Send/.exists b/build/BUILD/Ucam-SMS-Send-1.00/blib/lib/auto/Ucam/SMS/Send/.exists new file mode 100644 index 0000000..e69de29 diff --git a/build/BUILD/Ucam-SMS-Send-1.00/blib/man1/.exists b/build/BUILD/Ucam-SMS-Send-1.00/blib/man1/.exists new file mode 100644 index 0000000..e69de29 diff --git a/build/BUILD/Ucam-SMS-Send-1.00/blib/man3/.exists b/build/BUILD/Ucam-SMS-Send-1.00/blib/man3/.exists new file mode 100644 index 0000000..e69de29 diff --git a/build/BUILD/Ucam-SMS-Send-1.00/blib/script/.exists b/build/BUILD/Ucam-SMS-Send-1.00/blib/script/.exists new file mode 100644 index 0000000..e69de29 diff --git a/build/BUILD/Ucam-SMS-Send-1.00/pm_to_blib b/build/BUILD/Ucam-SMS-Send-1.00/pm_to_blib new file mode 100644 index 0000000..e69de29 diff --git a/build/BUILDROOT/perl-Ucam-SMS-Send-1.00-1.x86_64/usr/local/lib/perl/5.18.2/auto/Ucam/SMS/Send/.packlist b/build/BUILDROOT/perl-Ucam-SMS-Send-1.00-1.x86_64/usr/local/lib/perl/5.18.2/auto/Ucam/SMS/Send/.packlist new file mode 100644 index 0000000..f0ba8f8 --- /dev/null +++ b/build/BUILDROOT/perl-Ucam-SMS-Send-1.00-1.x86_64/usr/local/lib/perl/5.18.2/auto/Ucam/SMS/Send/.packlist @@ -0,0 +1,2 @@ +/home/jw35/git/ucam-sms-send/build/BUILDROOT/perl-Ucam-SMS-Send-1.00-1.x86_64/usr/local/share/perl/5.18.2/Ucam/SMS/Send.pm +/usr/local/share/perl/5.18.2/Ucam/SMS/Send.pm diff --git a/build/BUILDROOT/perl-Ucam-SMS-Send-1.00-1.x86_64/usr/local/lib/perl/5.18.2/perllocal.pod b/build/BUILDROOT/perl-Ucam-SMS-Send-1.00-1.x86_64/usr/local/lib/perl/5.18.2/perllocal.pod new file mode 100644 index 0000000..0dbc90d --- /dev/null +++ b/build/BUILDROOT/perl-Ucam-SMS-Send-1.00-1.x86_64/usr/local/lib/perl/5.18.2/perllocal.pod @@ -0,0 +1,22 @@ +=head2 Fri Nov 27 09:36:16 2015: C L + +=over 4 + +=item * + +C + +=item * + +C + +=item * + +C + +=item * + +C + +=back + diff --git a/build/BUILDROOT/perl-Ucam-SMS-Send-1.00-1.x86_64/usr/local/share/perl/5.18.2/Ucam/SMS/Send.pm b/build/BUILDROOT/perl-Ucam-SMS-Send-1.00-1.x86_64/usr/local/share/perl/5.18.2/Ucam/SMS/Send.pm new file mode 100644 index 0000000..7ab0f36 --- /dev/null +++ b/build/BUILDROOT/perl-Ucam-SMS-Send-1.00-1.x86_64/usr/local/share/perl/5.18.2/Ucam/SMS/Send.pm @@ -0,0 +1,262 @@ +#!/usr/bin/perl + +{ package Ucam::SMS::Send; + +use warnings; +use strict; +use LWP::UserAgent; +use HTML::Entities; + +use vars qw/$VERSION/; +$VERSION = '1.00'; + +sub new +{ + my $proto = shift; + my $class = ref($proto) || $proto; + my $self = {}; + bless ($self,$class); + + my %args = (@_); + + # Save allowed arguments in $self, ignore extraneous ones (e.g. that + # can only be used in other calls). + $self->{'url'} = $args{'url'}; + # The message-specific details... + $self->{'msg'}{'token'} = $args{'token'}; + $self->{'msg'}{'bulk'} = $args{'bulk'}; + $self->{'msg'}{'truncate'} = $args{'truncate'}; + $self->{'msg'}{'long_message'} = $args{'long_message'}; + $self->{'msg'}{'test'} = $args{'test'}; + + return $self; +} + +sub SendMessage +{ + my $self = shift; + my %args = (@_); + + # Set default URL for retrieving status. + $self->{'url'} = "https://api.phone.cam.ac.uk/api/text/1/submitSMS"; + + # Save allowed arguments in $self, ignore extraneous ones (e.g. that + # can only be used in other calls or are misspelled). + $self->{'url'} = $args{'url'} if defined $args{'url'}; + # The message-specific details... + $self->{'msg'}{'token'} = $args{'token'} if defined $args{'token'}; + $self->{'msg'}{'number'} = $args{'number'} if defined $args{'number'}; + $self->{'msg'}{'message'} = $args{'message'} if defined $args{'message'}; + $self->{'msg'}{'bulk'} = $args{'bulk'} if defined $args{'bulk'}; + $self->{'msg'}{'truncate'} = $args{'truncate'} if defined $args{'truncate'}; + $self->{'msg'}{'long_message'} = $args{'long_message'} if defined $args{'long_message'}; + $self->{'msg'}{'test'} = $args{'test'} if defined $args{'test'}; + + my $ourname = (caller(0))[3]; + die "$ourname: mandatory argument token is undefined\n" unless defined $self->{'msg'}{'token'}; + die "$ourname: mandatory argument number is undefined\n" unless defined $self->{'msg'}{'number'}; + die "$ourname: mandatory argument message is undefined\n" unless defined $self->{'msg'}{'message'}; + + print ""; + my $ua = LWP::UserAgent->new; + $ua->timeout(10); # max 10s for response + + + my $url = $self->{'url'}; + my $response = $ua->post($url,$self->{'msg'}); + print ""; # for breakpointing + unless ($response->is_success) + { + my $msg = $self->{'msg'}{'message'}; + my $number = $self->{'msg'}{'number'}; + my $status = $response->code; + my $message = $response->message; + die "$0: error sending SMS message '$msg' to $number: HTTP status $status message '$message'\n"; + } + + # Parse SMS service response (HTTP response content). + + my @content = split(/\n/,$response->content); + my %results = (); + foreach my $line (@content) + { + chomp($line); + if ($line =~ /^(\S+):\s+(.*)\s*$/) + { + my ($key,$value) = ($1,$2); + $results{$1} = $2; + + $self->{'msg'}{'messageid'} = $2 if $1 eq 'Msg-ID'; +# warn "$key: $value\n"; + } + else + { + warn "unrecognised result line: $line"; + } + } + + my $status = $results{'Status'} eq 'OK'; + return ($status,%results); + +} + +sub GetStatus +{ + my $self = shift; + my %args = (@_); + + # Set default URL for retrieving status. + $self->{'url'} = "https://api.phone.cam.ac.uk/api/text/1/getMessageStatus"; + + # Save allowed arguments in $self, ignore extraneous ones (e.g. that + # can only be used in other calls or are misspelled). + + $self->{'url'} = $args{'url'} if defined $args{'url'}; + $self->{'msg'}{'token'} = $args{'token'} if defined $args{'token'}; + $self->{'msg'}{'messageid'} = $args{'messageid'} if defined $args{'messageid'}; + + my $ourname = (caller(0))[3]; + die "$ourname: mandatory argument token is undefined\n" unless defined $self->{'msg'}{'token'}; + die "$ourname: mandatory argument messageid is undefined (was it a test-mode message?)\n" unless defined $self->{'msg'}{'messageid'}; + + print ""; + my $ua = LWP::UserAgent->new; + $ua->timeout(10); # max 10s for response + + my $url = $self->{'url'}; + my $response = $ua->post($url,$self->{'msg'}); + print ""; # for breakpointing + unless ($response->is_success) + { + my $msgid = $self->{'msg'}{'messageid'}; + my $msg = $self->{'msg'}{'message'}; + my $number = $self->{'msg'}{'number'}; + my $status = $response->code; + my $message = $response->message; + die "$0: error getting SMS message ID '$msgid' status: HTTP status $status message '$message'\n"; + } + + # Parse SMS service response (HTTP response content). + + my @content = split(/\n/,$response->content); + my %results = (); + foreach my $line (@content) + { + chomp($line); + if ($line =~ /^(\S+):\s+(.*)\s*$/) + { + my ($key,$value) = ($1,$2); + $results{$1} = $2; + } + else + { + warn "unrecognised result line: $line"; + } + } + + + my $status = $results{'Status'} eq 'OK'; + + print ""; + return ($status,%results); + +} +#~~~ +sub GetBalance +{ + my $self = shift; + my %args = (@_); + + # Set default URL for retrieving status. + $self->{'url'} = "https://api.phone.cam.ac.uk/api/text/1/getBalance"; + + # Save allowed arguments in $self, ignore extraneous ones (e.g. that + # can only be used in other calls or are misspelled). + + $self->{'msg'}{'token'} = $args{'token'} if defined $args{'token'}; + + my $ourname = (caller(0))[3]; + die "$ourname: mandatory argument token is undefined\n" unless defined $self->{'msg'}{'token'}; + + print ""; + my $ua = LWP::UserAgent->new; + $ua->timeout(10); # max 10s for response + + my $url = $self->{'url'}; + my $response = $ua->post($url,$self->{'msg'}); + print ""; # for breakpointing + unless ($response->is_success) + { + my $msgid = $self->{'msg'}{'messageid'}; + my $msg = $self->{'msg'}{'message'}; + my $number = $self->{'msg'}{'number'}; + my $status = $response->code; + my $message = $response->message; + die "$0: error getting SMS message ID '$msgid' status: HTTP status $status message '$message'\n"; + } + + # Parse SMS service response (HTTP response content). + + my @content = split(/\n/,$response->content); + my %results = (); + foreach my $line (@content) + { + chomp($line); + if ($line =~ /^(\S+):\s+(.*)\s*$/) + { + my ($key,$value) = ($1,$2); + $results{$1} = $2; + } + else + { + warn "unrecognised result line: $line"; + } + } + + + my $status = $results{'Status'} eq 'OK'; + + print ""; + return ($status,%results); + +} + + +#my $testmsg = Ucam::SMS::Send->new();#test => 'true'); +#my $token = 'vjaa-aaqb-zlni-hwvo-rhee'; +#my ($status,%results) = $testmsg->SendMessage(number => '07757080423', +# token => $token, +# message => 'test message 1-2-3'); +#($status,%results) = $testmsg->GetStatus(token => $token); +#print "SendMessage status: $status\n"; +#foreach my $key (sort(keys(%results))) +#{ +# printf "%-11s %s\n",$key,$results{$key}; +#} +#sleep(1); +#($status,%results) = $testmsg->GetStatus(token => $token); +#print "GetStatus#1: $status\n"; +#foreach my $key (sort(keys(%results))) +#{ +# printf "%-11s %s\n",$key,$results{$key}; +#} +#sleep(1); +#($status,%results) = $testmsg->GetStatus(token => $token); +#print "GetStatus#2: $status\n"; +#foreach my $key (sort(keys(%results))) +#{ +# printf "%-11s %s\n",$key,$results{$key}; +#} +#($status,%results) = $testmsg->GetBalance(token => $token); +#print "Balance status:: $status\n"; +#foreach my $key (sort(keys(%results))) +#{ +# printf "%-11s %s\n",$key,$results{$key}; +#} +# +#print ""; + + +} # end of package + +1; diff --git a/build/SOURCES/Ucam-SMS-Send-1.00.tar.gz b/build/SOURCES/Ucam-SMS-Send-1.00.tar.gz new file mode 100644 index 0000000000000000000000000000000000000000..4ede06ad11ef22b29f0eaceb6153b0e9b4db1409 GIT binary patch literal 2340 zcmV+<3ETD`iwFqmC0JGh165;TZ7owxQ!P_vZe%SnE-)}IbYXG;?HX%y+cwf)%U^+$ zoFUbU6iL1A=&{?h_1$GIPJDKJ{m|q*5Cut$DN+GIJ3iO>?YDT4B4zoJ#?d4h?o48G zvDjT;pP+CO;<vpyt8(e^4zc2pwdVaV3H-|0HANT{;_lJFN%k_NM z>u#a`)&?MB98-k0-d=R?ly~3wR|+RL?Ju63#r$#YKj`&tvA;L$ddmL&L9aU;4#56h ze*pG(Yx{q8X#S;>G1?hLNoPT5Y#3K)fx|OAB}lkN5P)yMf8Y{3hLJIXE-+1^WXg8r z8{;$zxq5#7+hGu#FhZYBNuqK8e0A_V2=)^m@rW?Z;v7?k-d%LI|FeH|{Osk6&W@2k zqFrPPCp3YSWh0c33**W_0P{<6AG$j*D(X`MXe`xY086)uo zsIIORY7`TgWl3~f@o0fmP5lJZso-h-bedzE=op_9gyT59AY%js*&G(iP?RXn&VBj;47*Hz-pFbaP>-OqVqHzu5KOe5^v@FN5 z2+$NF8PAD`M&YM~T5hZLd-si!GmZ#qnR*Sg32L)K0GQ;*BkLHkC zxaGO69dr|#pznL+xlCt8wn!63jHMMJDG1|NQpr+*e1aem(iSP>mYCD7E~d3pT>-is zno^SyCHQQS0y(5;IahC%RmimWB6iBMFa&fjr|$n%~^iGO>1q-Fs|Z6dzeL z1o={%FddUBRc`kRnMN)tmH)T_B9y|)8B{w_mY|jtj$?|&m=F=Uq5-sNuMTzTD%2^F z>s5l6DM8nHRXT)Dj!5R@MPnTbcLc0uM*IJEl#b^dF;KK`K< zyk?DOA@hJu?PtG2XWT3^5dAn<98?LA(xotyGFARWVhF|ci%~qXgpx3w zCXwh0l-fvaO`x{+2Gi?hTvt3;F4sJkC|HG1{pG*RopMWN=^5?Zq@usl4cb2lS98DE z_H0VH?jV(-Ur3ksscqWlYQR=py3!j-yLa#FH&E{(HSyJY|Lj*)@?nuW|J4P5qXmC6wfN(T@y!r? zKz(k0`0ydG(LduDCn5Qgi?mkpi!9HdP-DN4dRSMXx(d}*sIEdAuR?~=6aqvet>R?fp+(h_~uDWn5^c>thbBI^S2n=7{43Y|BI8zo?V=$Hk}b-D#Dx6#bUHn zd$066f|W-eh;oO+{?Pra+w;3-8>yqZmbj;7w-vUCETN##G)H*0Z+E4-_oz^ul&uvB zVy@oRlA1->X|6J^nq^l8$3hlMDYxK>S%uVA%V=IHttHzDYCN$$kD(`mNn1H&;c@T= zsiq0-0*eV*Sl%NorJ!kg-@qFD4X)vS#dWK6hvu3hccKkyU#K7&IpZ4gKln6CC;1Q6 zhT-iPTQxk^{f~qFS5KX{EKMHu{>R|9`yZ~?@2}qf>GrzA`u@izK$iUm9x*uaguHg)#+Pu)h{99of+o>aP zw%w=S9Jt9}o(17mK}ch%lQ>esiINda!Qp5l+#EG{k2^;$LO-bH@5=!2&3dd0v z#p5zYAb~0aNo)l#hSpd{F2QXq>GJ0By4V6`@r;tsE{SG|I5~cVoa*f(EuvkesUB5t zSEIDql*9xxa;gfToC1%dm}vW!y+UNv1~jc-TmHYC$6Fi9|L)NDSM$F=sPq3uz_x88 z&;9|@nbS~7KLBsG3!F?Rr+KuAu{B{FAlE1|!b6Cwg#*flQLY#PG9Rm6n1(JD%T*Rd zLFfmyAV9hh%+qle6I-s>VQEG~0uAnzI0@l0Jmf6<+;e))jL&13uEoIuoSvb+xK%>S z$dkU1Rpk0WW)~ZA{TH&kQQov_0u%d%R=%wXTuHX;8lN8ju*Z`qCeGpWP2B%=-G1NK z_kX)Xzt@NO?};nnb^LE+`D9&a!bwYfrY9(lMxA`TQw%$cx%?)oukeY(*etyeS4yH} z5@$sGFwjJNR(ybyB;q}HF8MWGe0#p25eEv#Fn)t4l8;+5BFq<05BAOPz7yX_R=)C> zs*aob;_&I;k6s>_l2G4YH{0UFEyNr{`R!sg 1.00-1 +- This package created diff --git a/build_rpm.sh b/build_rpm.sh new file mode 100755 index 0000000..3d84189 --- /dev/null +++ b/build_rpm.sh @@ -0,0 +1,18 @@ +#!/bin/bash + +set -e + +VERSION=1.00 + +mkdir -p build +for d in BUILD RPMS SOURCES SPECS SRPMS; do mkdir -p build/${d}; done +perl Makefile.PL +rm Ucam-SMS-Send-${VERSION}.tar.gz +make dist +cp Ucam-SMS-Send-${VERSION}.tar.gz build/SOURCES +cp perl-Ucam-SMS-Send.spec build/SPECS +rpmbuild --define="_topdir `pwd`/build" -ba build/SPECS/perl-Ucam-SMS-Send.spec +cp build/RPMS/noarch/perl-Ucam-SMS-Send-${VERSION}.noarch.rpm . +cp build/SRPMS/perl-Ucam-SMS-Send-${VERSION}.src.rpm . +#rm -rf build + diff --git a/perl-Ucam-SMS-Send.spec b/perl-Ucam-SMS-Send.spec new file mode 100644 index 0000000..bfdb037 --- /dev/null +++ b/perl-Ucam-SMS-Send.spec @@ -0,0 +1,52 @@ +Summary: Perl interface to the University of Cambridge SMS service +Name: perl-Ucam-SMS-Send +Version: 1.00 +Release: 1 +License: GPL +Group: Applications/Internet + +source: Ucam-SMS-Send-%{version}.tar.gz +BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-buildroot + +BuildArchitectures: noarch +BuildArch: noarch + +%if 0%{?suse_version} < 1140 +Requires: perl = %{perl_version} +%else +%{perl_requires} +%endif + +Requires: perl-LWP-UserAgent perl-HTML-Entities +BuildRequires: perl-macros + +%description +A Perl interface to the University of Cambridge SMS (Short Message Service) +service + +%prep +%setup -q -n Ucam-SMS-Send-%{version} + +%build +perl Makefile.PL +%{__make} + +%install + +[ "%{buildroot}" != "/" ] && rm -rf %{buildroot} + +%perl_make_install +%perl_process_packlist +%perl_gen_filelist + +%clean +rm -rf $RPM_BUILD_ROOT + +%files -f %{name}.files +#%defattr(644,root,root,-) +#%attr(755,root,root) /usr/lib/nagios/plugins/notify_telecoms_sms + + +%changelog +* Thu Nov 26 2015 1.00-1 +- This package created diff --git a/pm_to_blib b/pm_to_blib new file mode 100644 index 0000000..e69de29 -- 2.19.1.240.g7d280c7607