From: Stephen L Johnson <sjohnson@monsters.org>
Date: Mon, 31 May 1999 19:19:06 +0000 (+0000)
Subject: Initial revision
X-Git-Tag: spong-2_6-beta7~48
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d857253e95b61ba9f350ffc95db17b2a9945eca6;p=spong.git

Initial revision
---

diff --git a/src/lib/Spong/Network/plugins/check_ftp b/src/lib/Spong/Network/plugins/check_ftp
new file mode 100755
index 0000000..f0c4c1e
--- /dev/null
+++ b/src/lib/Spong/Network/plugins/check_ftp
@@ -0,0 +1,10 @@
+# Register the function with the plugin registry
+$PLUGINS{'ftp'} = \&check_ftp;
+
+# Check FTP service using the built-in check_simple subroutine
+sub check_ftp {
+    my ($host) = @_;
+    return &check_simple( $host, 21, "", "^\s*220", "ftp" );
+}
+
+1;
diff --git a/src/lib/Spong/Network/plugins/check_pop b/src/lib/Spong/Network/plugins/check_pop
new file mode 100755
index 0000000..c40bfcf
--- /dev/null
+++ b/src/lib/Spong/Network/plugins/check_pop
@@ -0,0 +1,10 @@
+# Register the function with the plugin registry
+$PLUGINS{'pop'} = \&check_pop;
+
+# Check FTP service using the built-in check_simple subroutine
+sub check_pop {
+   my ($host) = @_;
+   return &check_simple( $host, 110, "QUIT\n", "OK", "pop3" );
+}
+
+1;