From fa7eae39ea37cadd54dc54438d8ed91739621706 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=EA=A6=8C=EA=A6=AB=EA=A6=B6=EA=A6=8F=EA=A7=80=EA=A6=A6?=
 =?UTF-8?q?=EA=A6=BF=EA=A6=A7=EA=A6=AE=EA=A6=91=EA=A6=A9=EA=A6=AD=EA=A7=80?=
 <erik@darapsa.co.id>
Date: Mon, 5 Jul 2021 10:48:39 +0800
Subject: Pikul cost tag with its installer

---
 config/add_global_usertag | 36 ++++++++++++++++++++++++++++++++++++
 config/pikul_cost.tag     | 11 +++++++++++
 2 files changed, 47 insertions(+)
 create mode 100644 config/add_global_usertag
 create mode 100644 config/pikul_cost.tag

diff --git a/config/add_global_usertag b/config/add_global_usertag
new file mode 100644
index 0000000..321d70f
--- /dev/null
+++ b/config/add_global_usertag
@@ -0,0 +1,36 @@
+#!/bin/sh
+
+CONFDIR=__MVC_RELOCATE____MVC_CATROOT__/config
+TAGDIR=__MVC_RELOCATE____MVC_VENDROOT__/code/template_tag/__MVC_DEMOTYPE__
+
+die() {
+	echo $1
+	exit 1
+}
+
+cd $CONFDIR || die "Cannot find $CONFDIR to change to.";
+
+if [ "x`whoami`" = xroot ]
+then
+	ISROOT=1
+else
+	ISROOT=0
+fi
+
+if test -d $TAGDIR
+then
+	HASTAGDIR=1
+else 
+	mkdir -p __MVC_RELOCATE____MVC_VENDROOT__/code/template_tag/__MVC_DEMOTYPE__ \
+		|| die "Cannot make $TAGDIR"
+fi
+
+for f in *.tag
+do
+	if test -f __MVC_RELOCATE____MVC_VENDROOT__/usertag/$f
+	then
+		echo "$f appears to be in global usertag/ directory, skipping."
+	else
+		cp $f $TAGDIR || die "Cannot copy $f to $TAGDIR: $!"
+	fi
+done
diff --git a/config/pikul_cost.tag b/config/pikul_cost.tag
new file mode 100644
index 0000000..c8f1052
--- /dev/null
+++ b/config/pikul_cost.tag
@@ -0,0 +1,11 @@
+UserTag pikul_cost Order company provisions origin destination weight service
+UserTag pikul_cost Routine <<EOR
+sub {
+	my ($company, $provisions, $origin, $destination, $weight, $service) = @_;
+	use Pikul;
+	Pikul::init($company, $provisions);
+	my $cost = Pikul::cost($origin, $destination, $weight, $service);
+	Pikul::cleanup();
+	return $cost;
+}
+EOR
-- 
cgit v1.2.3