Converted the .time command

[NDIRC.git] / PA.pm

diff --git a/PA.pm b/PA.pm
index 72050d851a77a7fce5902d222e5de807e412e8de..dd3dbb9a04deed3d06f6523cefecded5268dab7e 100644 (file)
--- a/PA.pm
+++ b/PA.pm
@@ -28,7 +28,7 @@ require Exporter;
 
 our @ISA = qw/Exporter/;
 
-our @EXPORT = qw/shipEff shipStop parseValue prettyValue calcXp findCovOpper tick_time/;
+our @EXPORT = qw/shipEff shipStop parseValue prettyValue calcXp findCovOpper/;
 
 sub shipEff {
        my ($msg,$command) = @_;
@@ -233,24 +233,4 @@ sub findCovOpper {
        $ND::server->command("notice $ND::nick The planet that cov opped you is one of: $coords");
 }
 
-sub tick_time {
-       my ($msg,$command) = @_;
-       my $tick = $ND::tick;
-       my $timezone = 'GMT';
-       if ($msg =~ /^(\d+)(?: (\S+))?/){
-               $tick = $1 if defined $1;
-               $timezone = $2 if defined $2;
-       }elsif ($msg =~ /^(\S+)/){
-               $timezone = $1;
-       }elsif ($msg){
-               $ND::server->command("notice $ND::nick syntax: .time [tick] [timezone] | Gives the time at the specied tick. Assumes GMT if no timezone is given and current tick if no tick is given.");
-               return;
-       }
-       my $query = $ND::DBH->prepare(q{SELECT date_trunc('seconds',now() + (($1 - tick()) || ' hr')::interval) AT TIME ZONE $2});
-       $query->execute($tick,$timezone);
-       my $time = $query->fetchrow_array;
-       $ND::server->command("notice $ND::nick Time at tick $ND::B$tick$ND::O, timezone $ND::B$timezone$ND::O: $ND::B$time$ND::O");
-
-}
-
 1;