# I HATE PERL.. kthxbye
# ---------------------------------------------------
-my $basepath = "@BASE_DIR@";
-my $confpath = "@CONFIG_DIR@/";
-my $binpath = "@BINARY_DIR@";
-my $libpath = "@LIBRARY_DIR@";
-my $executable = "@EXECUTABLE@";
+my $basepath = "@BASE_DIR@";
+my $confpath = "@CONFIG_DIR@/";
+my $binpath = "@BINARY_DIR@";
+my $libpath = "@LIBRARY_DIR@";
+my $executable = "@EXECUTABLE@";
+my $version = "@VERSION@";
my @filesparsed;
# Lets see what they want to do.. Set the variable (Cause i'm a lazy coder)
exit();
}
+if ($arg eq "version") {
+ print "InspIRCd version: $version\n";
+ exit();
+}
+
if ($arg eq "restart") {
stop();
unlink($pidfile) if (-e $pidfile);
# If we get here.. bad / no parameters.
###
print "Invalid Argument: $arg\n";
-print "Usage: inspircd (start|stop|restart|rehash|status|cron)\n";
+print "Usage: inspircd (start|stop|restart|rehash|status|cron|version)\n";
exit();
###