# 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);
exit();
}
-if ($arg eq "version") {
- system("sh src/version.sh");
- system("svn info | grep Revision");
- exit();
-}
-
if ($arg eq "Cheese-Sandwich") {
print "Creating Cheese Sandwich..\n";
print "Done.\n";