tomredsky

purchase_disabled_countries "ESP SWE"
<PhotoWeb>
    base    ""
    registration    https://jupiter/juno/api/contact/register
    download        "http://jupiter/cgi-bin/dwsrun?PS_DNO.DWO"
    payment         "http//jupiter/cgi-bin/dwsrun?PS_INV.DWO"
</PhotoWeb>
sitemap_base_url    "http://www.sciencephoto.com"
sitemap_directory    "/var/www/sitemaps"

tomredsky

 <PhotoWeb>
-    base    "https://contributors.sciencephoto.co.uk/cgi-bin/"
-    registration    "dwsrun?PS_REG.DWO"
-    download    "dwsrun?PS_DNO.DWO"
-    payment "dwsrun?PS_INV.DWO"
+    #base    "https://contributors.sciencephoto.co.uk/cgi-bin/"
+    #registration    "dwsrun?PS_REG.DWO"
+    #download    "dwsrun?PS_DNO.DWO"
+    #payment "dwsrun?PS_INV.DWO"
+    # XXX do not delete the following line since it will be overridden by spl.conf otherwise

tomredsky

DROP TABLE IF EXISTS dm_temp;
CREATE TABLE dm_temp(
    id int unique not null,
    email varchar(256) unique not null,
    status varchar(64)
);
COPY dm_temp FROM '/tmp/contacts.csv' WITH CSV;
BEGIN;
    UPDATE mn set dotmailer_id=( select id from dm_temp where mn.eml=email);
COMMIT;

tomredsky

# rename this file to spl.yml and put a ':' after 'name' if
# you want to use YAML like in old versions of Catalyst
name SPL
<Plugin::Cache>
    <backend>
        class   Cache::FastMmap
        unlink_on_exit  1
        share_file  /tmp/dpaikkos-cache-plugin
    </backend>
</Plugin::Cache>

tomredsky

#!perl

use v5.22;
use warnings;
use Path::Tiny;
$|++;

my $path = path('.');

$ENV{ROOT_URL} = '/';

tomredsky

<?xml version="1.0" encoding="UTF-8"?>
<user id="41967">
   <lightbox title="for-caroline">
      <media>
         <spl_number>F018/2653</spl_number>
         <spl_number>F018/2654</spl_number>
         <spl_number>F018/3249</spl_number>
         <spl_number>F018/3250</spl_number>
         <spl_number>F018/3251</spl_number>
         <spl_number>F018/3252</spl_number>

tomredsky

<?xml version="1.0" encoding="UTF-8"?>
<user id="41967">
   <lightbox number="87058" title="for-caroline">
      <media>
         <spl_number position="70">F018/2653</spl_number>
         <spl_number position="71">F018/2654</spl_number>
         <spl_number position="69">F018/3249</spl_number>
         <spl_number position="68">F018/3250</spl_number>
         <spl_number position="67">F018/3251</spl_number>
         <spl_number position="66">F018/3252</spl_number>

tomredsky

 
<?xml version="1.0" standalone="yes"?>
<lightbox title="for-caroline" user_id="41967" created="2017-06-06">
    <media>
        <spl_number position="70">F018/2653</spl_number>
        <spl_number position="71">F018/2654</spl_number>
        <spl_number position="69">F018/3249</spl_number>
        <spl_number position="68">F018/3250</spl_number>
        <spl_number position="67">F018/3251</spl_number>
        <spl_number position="66">F018/3252</spl_number>

tomredsky

<?xml version="1.0" encoding="UTF-8"?>
<updates>
   <lightbox mediaset_id="87058" title="for-caroline" user_id="41967" created="2017-06-06">
      <media>
         <spl_number position="70">F018/2653</spl_number>
         <spl_number position="71">F018/2654</spl_number>
         <spl_number position="69">F018/3249</spl_number>
         <spl_number position="68">F018/3250</spl_number>
         <spl_number position="67">F018/3251</spl_number>
         <spl_number position="66">F018/3252</spl_number>

tomredsky

#!perl

use v5.22;
use warnings;

=head1 NAME

mlrecords.pl

=head2 Description