From e4f8668448aa332bb7c3d30c2f7e1ade26babf85 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Sun, 16 Apr 2017 13:07:09 +0200
Subject: [PATCH] added notify via sms
---
wdq0.pl | 17 ++++++++++++++++-
1 file changed, 16 insertions(+), 1 deletion(-)
diff --git a/wdq0.pl b/wdq0.pl
index 2ad6636..b9deede 100755
--- a/wdq0.pl
+++ b/wdq0.pl
@@ -65,6 +65,8 @@ while (my $arg= shift (@ARGV))
else { push (@PARS, $arg); }
}
+notify('starting wdq0 loop');
+
while (1)
{
my $dumps= check();
@@ -81,6 +83,13 @@ while (1)
exit (0);
+sub notify
+{
+ my $msg= shift;
+
+ system (qw(notify-sms.pl gg-uni), $msg);
+}
+
sub fetch_and_convert
{
my $date= shift;
@@ -97,6 +106,7 @@ sub fetch_and_convert
else
{
print "fetching stuff for $date\n";
+ notify('wdq0: this is a test send from w4.urxn.at');
my ($fetched, $dump_file)= fetch_dump ($date);
if ($fetched)
@@ -123,17 +133,22 @@ sub fetch_and_convert
return undef;
}
+ notify ('wdq0: finished download, starting wdq1');
my @cmd1= (qw(./wdq1.pl --date), $date);
print "cmd1: [", join (' ', @cmd1), "]\n";
system (@cmd1);
+ notify ('wdq0: finished wdq1, starting wdq2');
my @cmd2= (qw(./wdq2.pl --scan --date), $date);
print "cmd2: [", join (' ', @cmd2), "]\n";
system (@cmd2);
+ notify ('wdq0: finished wdq2, starting wdq3');
my @cmd3= (qw(./wdq3.pl --date), $date);
print "cmd3: [", join (' ', @cmd3), "]\n";
system (@cmd3);
+
+ notify ('wdq0: finished wikidata conversion');
}
}
@@ -181,7 +196,7 @@ sub check
if (m#<a href="((\d{4})(\d{2})(\d{2})\.json\.gz)">(\d{8}\.json\.gz)</a>\s+(\S+)\s+(\S+)\s+(\d+)#)
{
my ($f1, $year, $mon, $day, $f2, $xdate, $time, $size)= ($1, $2, $3, $4, $5, $6, $7, $8);
- print "year=[$year] mon=[$mon] day=[$day] f1=[$f1] f2=[$f2] xdate=[$xdate] time=[$time] size=[$size]\n";
+ # print "year=[$year] mon=[$mon] day=[$day] f1=[$f1] f2=[$f2] xdate=[$xdate] time=[$time] size=[$size]\n";
my $rec=
{
dump_file => $f1,
--
GitLab