Initial commit

2024-07-10 17:19:31 +08:00
commit 43334f4eae
9 changed files with 97 additions and 0 deletions
--- a/survey-nginx/perl/MyModule.pm
+++ b/survey-nginx/perl/MyModule.pm
@@ -0,0 +1,15 @@
+package MyModule;
+
+use nginx; # Make sure to use the nginx module
+
+sub handler {
+    my $r = shift; # Get the request object
+    $r->send_http_header("text/html"); # Send HTTP headers
+
+    # Print a simple HTML page
+    $r->print("<html><body><h1>Hello, Nginx Perl!</h1></body></html>");
+
+    return OK;
+}
+
+1; # Ensure the module returns true