Converted .getscans

diff --git a/Commands/Scans.pm b/Commands/Scans.pm
index 134629bb49fbdf69592df7824451bcd21e75e799..11f3337308eeaef821ff59383f43764ccb918001 100644 (file)
--- a/Commands/Scans.pm
+++ b/Commands/Scans.pm
@@ -26,6 +26,15 @@ use feature ':5.10';
 use Moose;
 use MooseX::MethodAttributes;
 
+sub getscans
+       : Help(syntax: .getscans X:Y:Z)
+       : Type(pm)
+{
+       my ($self,$c,$args) = @_;
+       my ($x,$y,$z) = $args =~ /(\d+)\D+(\d+)\D+(\d+)/ or die 'ARGS';
+       $c->reply("https://nd.ruin.nu/stats/find/$x:$y:$z");
+}
+
 my %scanid = (p => 1, l => 2, d => 3, u => 4, n => 5, j => 7, a => 8);
 
 my @scantypes = ('Planet','Landing', 'Development'