Skip to content

Instantly share code, notes, and snippets.

View GeorgeCatangiu's full-sized avatar

George Catangiu GeorgeCatangiu

View GitHub Profile
@GeorgeCatangiu
GeorgeCatangiu / msite special-offers
Created November 23, 2021 18:47
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "DTD/xhtml1-strict.dtd"><html lang="sv" xml:lang="sv" xmlns="http://www.w3.org/1999/xhtml" xmlns:fb="http://www.facebook.com/2008/fbml" xmlns:og="http://ogp.me/ns#"><head><link href="https://www.photobox.se/special-offers" rel="canonical" /><link href="https://www.photobox.se/msite/special-offers" media="only screen and (max-width: 640px)" rel="alternate" /><!-- start : Analytics - To know which tag wee need --><!--Generic tag--><!--Range tag/GA--><script type="text/javascript">//<!--
var dataLayer = [];
(function() {
'use strict';
var masonTemp;
var pageName = "/msite/special-offers" === '/studio' ? window.location.pathname : "/msite/special-offers";
//To build the dataLayer with good var
@GeorgeCatangiu
GeorgeCatangiu / exterminate_historical_members.pl
Created May 26, 2021 12:21
#!/opt/perl/bin/perl
#
# This script exterminates members whose last access date
# is => 1200 days. It uses a CSV file as a source of historical members.
# The CSV file name is:
# - member_data_retention_%Y-%m-%d.csv
# The expected CSV headers are:
# | Member Id | Email | First Name | Notice Period |
# The file is produced by another script: (BABEL-5752)
# - scripts/member_data_retention/member_data_retention.pl
@GeorgeCatangiu
GeorgeCatangiu / unhold_jigsaws.pl
Last active December 18, 2020 14:52
use Babel::Strict;
use Babel::local;
use Babel::Config qw(config);
use Babel::Log qw(xlog);
use Babel::Permission qw(locally_permitting_everything);
use constant BATCH_SIZE => 100;
use constant RECOVERED_LOG_FILE => 'recovered_from_hold_log';
use constant UNRECOVERED_LOG_FILE => 'unrecovered_from_hold_log';
@GeorgeCatangiu
GeorgeCatangiu / gist:f11d5e7a812c08ca4874c8b4ce693793
Created December 14, 2020 21:05
Missing PrintCreditAccount for Basket.GetItemList call
{Babel condition 2350: invalid Shopping.PrintCreditAccount id `109508845'}
|Stack trace at /opt/perl-5.20.2/lib/site_perl/5.20.2/BabelAPI/Signal.pm line 82.
| BabelAPI::Signal::berror(2350, "invalid Shopping.PrintCreditAccount id `109508845'") called at /opt/Babel/Enctype/objectid.pm line 91
| Babel::Enctype::objectid::int_read.curried(109508845) called at /opt/Babel/Field/ObjectId.pm line 189
| Babel::Field::ObjectId::get.curried(Shopping.BasketItem#1992561351) called at /opt/Babel/Object/Basket.pm line 5427
| Babel::Object::Basket::list_problems(Shopping.Basket#2604386586, ARRAY(0x557f5bf4ccb0)) called at /opt/Babel/Object/Basket.pm line 2580
| Babel::Object::Basket::iapi_Validate(Shopping.Basket#2604386586) called at /opt/Babel/Object/Basket.pm line 1766
| Babel::Object::Basket::iapi_GetItemList(Shopping.Basket#2604386586, HASH(0x557f625cb680)) called at /opt/Babel/Dispatch.pm line 340
| eval {...} called at /opt/Babel/Dispatch.pm line 195
| Babel::Dispatch::babel_dispatch(BabelAPI:
@GeorgeCatangiu
GeorgeCatangiu / channel_fix
Last active November 19, 2020 15:36
#!/opt/perl/bin/perl -w
use Babel::local;
use Babel::Strict;
use Babel::Permission qw(locally_permitting_everything);
use Babel::Log qw(xlog);
locally_permitting_everything;
my @channel_ids = ();
foreach my $channel_id (@channel_ids) {
eval {
my $channel = Babel::Object::Channel->load_or_undef($channel_id);
@GeorgeCatangiu
GeorgeCatangiu / keybase.md
Created February 7, 2020 09:46

Keybase proof

I hereby claim:

  • I am georgecatangiu on github.
  • I am georgecatangiu (https://keybase.io/georgecatangiu) on keybase.
  • I have a public key ASDKsdOm-za3-HF0TCkngC06O0AC3WHXjffzPEyjSIYT6Qo

To claim this, I am signing this object:

@GeorgeCatangiu
GeorgeCatangiu / test.t
Created March 12, 2019 11:42
use Babel::Strict;
use Test::More tests => 2;
use Test::NoWarnings;
use Babel::Test::ScratchEnv;
use Babel::Test::PopulateEnv::Currencies;
use Babel::Test::PopulateEnv::Countries;
use Babel::Test::PopulateEnv::Channels;
use Babel::Test::PopulateEnv::ChannelsExtended;