blob: e9fd5b8b0c8337af26578e0d21292a3bb76dc8a6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
--- src/smtpscan.orig Fri Nov 22 10:23:22 2002
+++ src/smtpscan Fri Nov 22 10:23:09 2002
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
#
# Author : Julien Bordet <zejames@greyhats.org>
# Copyright (C) 2002 Julien Bordet
@@ -9,7 +9,7 @@
#
use strict;
-use Getopt::Long qw /:config no_ignore_case/;
+use Getopt::Long;
use IO::Socket::INET;
use File::Basename;
use Net::DNS;
@@ -28,7 +28,7 @@
# Global variables
#
-$VERSION = '0.3';
+$VERSION = '0.3.1';
$LOCAL_SHARE = '/usr/local/share';
$INVALID_SOURCE = 'impossibleaddress@thisdomaindoesnotandmustnotexists.com';
@@ -34,6 +34,8 @@
$INVALID_SOURCE = 'impossibleaddress@thisdomaindoesnotandmustnotexists.com';
$MY_DOMAIN = 'test.com';
$VALID_SOURCE = 'test@yahoo.com';
+
+Getopt::Long::Configure("no_ignore_case");
$| = 1;
#
|
