add habit server

1 files changed, 36 insertions, 0 deletions

diff --git a/frontends/scripts/habit.pl b/frontends/scripts/habit.pl
new file mode 100644
index 0000000..72305d3
--- /dev/null
+++ b/frontends/scripts/habit.pl
@@ -0,0 +1,36 @@
+#!/usr/bin/perl -T
+
+use v5.36;
+use strict;
+use warnings;
+
+use Acme::Cow;
+
+our @habits = (
+  'Do Push-ups',
+  'Do Yoga Wheel',
+  'Do Yoga Cro',
+  'Do Yoga Downward Facing Dog',
+  'Do Yoga Warrior 3',
+  'Do Yoga Half Moon',
+  'Do Shoulder stand',
+  'Meditate',
+  'Listen to music',
+  'Do nothing',
+  'Breathing exercise',
+  'Play with the cat',
+  'Drink water',
+  'Think about the purpose of what I am doing',
+  'Write down 3 things I am grateful for',
+  'Take it easy - nobody is dying!',
+  'Enjoy my current task',
+  'It\'s family time',
+  'Help someone',
+  'Learn/try out a new Linux/Unix command',
+);
+
+my $habit = $habits[rand @habits];
+my $cow = Acme::Cow->new;
+$cow->text($habit);
+int(rand 2) ? $cow->say : $cow->think;
+$cow->print;