Changeset 229 for veekun/trunk/script/perlbui.pl

Timestamp:

06/09/07 03:50:55 (3 years ago)

Author:

eevee

Message:

Added a simple IV calculator to Perlbui.

Files:

• veekun/trunk/script/perlbui.pl (modified) (2 diffs)

veekun/trunk/script/perlbui.pl

@@ -4 +4 @@
 # this should not be this hard!
 use File::Basename;
+use File::Spec;
 use Cwd qw/abs_path/;
-use lib abs_path(( fileparse($0) )[1] . '../lib');
+
+# change directories to the root so we can find veekun files
+BEGIN {
+    my (undef, $path) = fileparse( File::Spec->rel2abs($0) );
+    chdir $path;
+    chdir '..';  # we run from script/
+}
+use lib abs_path('lib');
 
 use Net::IRC;
@@ -14 +22 @@
 # BEGIN SETUP
 
+# need to find other veekun files..
+
 # XXX: only one supported at a time right now
 my %Connections = (
-    'irc.veekun.com' => [ '#veekun' ],
+#    'irc.veekun.com' => [ '#agnph' ],
+    'irc.pocketmonsters.net' => [ '#bulbagarden' ],
 );