ispman/bin ispman.addAdmin, 1.3, 1.3.6.1 ispman.addDomainService2Domain, 1.3, 1.3.6.1 ispman.addHost, 1.5, 1.5.6.1 ispman.addHost2HostGroup, 1.3, 1.3.6.1 ispman.addHostGroup, 1.2, 1.2.6.1 ispman.addSlaveDomain, 1.4, 1.4.4.1 ispman.addvhost, 1.14, 1.14.6.1 ispman.bumpMailboxQuota, 1.5.6.1, 1.5.6.2 ispman.createMailbox, 1.5.6.2, 1.5.6.3 ispman.createSubMailbox, 1.3.6.2, 1.3.6.3 ispman.deleteAdmin, 1.2, 1.2.6.1 ispman.deleteClient, 1.2, 1.2.6.1 ispman.deleteDomain, 1.4, 1.4.6.1 ispman.deleteDomainService, 1.3, 1.3.6.1 ispman.deleteHost, 1.4, 1.4.6.1 ispman.deleteMailbox, 1.4.6.1, 1.4.6.2 ispman.deletevhost, 1.4, 1.4.6.1 ispman.dnsdump, 1.8, 1.8.6.1 ispman.dnsload, 1.7, 1.7.6.1 ispman.dnsshow, 1.10.6.1, 1.10.6.2 ispman.dnsunset, 1.15, 1.15.2.1 ispman.domainHasService, 1.2, 1.2.6.1 ispman.domainInfo, 1.5, 1.5.6.1 ispman.getDomainAttribute, 1.4, 1.4.6.1 ispman.getMai
Pedro Algarvio <[email protected]> Mon, 18 Sep 2006 01:58:59 +0000
| Newsgroups | gmane.comp.isp.ispman.cvs |
|---|---|
| Message-ID | <[email protected]> |
Update of /cvsroot/ispman/ispman/bin
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv32113/bin
Modified Files:
Tag: dev_1_3-cyrus_virtdomain
ispman.addAdmin ispman.addDomainService2Domain ispman.addHost
ispman.addHost2HostGroup ispman.addHostGroup
ispman.addSlaveDomain ispman.addvhost ispman.bumpMailboxQuota
ispman.createMailbox ispman.createSubMailbox
ispman.deleteAdmin ispman.deleteClient ispman.deleteDomain
ispman.deleteDomainService ispman.deleteHost
ispman.deleteMailbox ispman.deletevhost ispman.dnsdump
ispman.dnsload ispman.dnsshow ispman.dnsunset
ispman.domainHasService ispman.domainInfo
ispman.getDomainAttribute ispman.getMailboxQuota
ispman.getTemplate ispman.getUserCount
ispman.getVhostAttribute ispman.imapAuthTest ispman.l10n
ispman.ldap2apache ispman.ldap2named ispman.ldifload
ispman.listMailGroups ispman.listMailboxes
ispman.listOverQuotaMailboxes ispman.listUserQuotas
ispman.listvhosts ispman.loganalyzer ispman.makeHash
ispman.prepareBranchForDN ispman.setDomainAttribute
ispman.setMailboxQuota ispman.setVar ispman.setVhostAttribute
ispman.setmailtransport ispman.smtpAuthTest
ispman.warnNearQuotaMailboxes
Log Message:
Updated to HEAD following madmag's changes.
Index: ispman.ldap2apache
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.ldap2apache,v
retrieving revision 1.9
retrieving revision 1.9.4.1
diff -u -d -r1.9 -r1.9.4.1
--- ispman.ldap2apache 4 Aug 2004 17:25:39 -0000 1.9
+++ ispman.ldap2apache 18 Sep 2006 01:58:57 -0000 1.9.4.1
@@ -12,7 +12,7 @@
}
if ( $opts{'h'} ) {
- print "$0 -d debugLevel[1|2|3] [-a]\n";
+ print "$FindBin::Script -d debugLevel[1|2|3] [-a]\n";
print
"\t-a\tMake vhosts.conf will all vhosts and not just the ones where webhost is this host\n";
print "\n";
Index: ispman.setDomainAttribute
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.setDomainAttribute,v
retrieving revision 1.4
retrieving revision 1.4.6.1
diff -u -d -r1.4 -r1.4.6.1
--- ispman.setDomainAttribute 30 May 2004 23:35:32 -0000 1.4
+++ ispman.setDomainAttribute 18 Sep 2006 01:58:57 -0000 1.4.6.1
@@ -4,7 +4,7 @@
unshift @INC,
( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
unless ( $ARGV[2] ) {
- print "$0 domain attributename value\n";
+ print "$FindBin::Script domain attributename value\n";
exit;
}
}
Index: ispman.listMailboxes
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.listMailboxes,v
retrieving revision 1.4.6.1
retrieving revision 1.4.6.2
diff -u -d -r1.4.6.1 -r1.4.6.2
--- ispman.listMailboxes 11 Sep 2006 23:31:24 -0000 1.4.6.1
+++ ispman.listMailboxes 18 Sep 2006 01:58:57 -0000 1.4.6.2
@@ -6,13 +6,11 @@
use Getopt::Std;
getopt( 'h', \%opts );
unless ( $opts{'h'} ) {
- $0 =~ s/.*\///;
- print "Usage: $0 -h imap_server [filter]\n";
+ print "Usage: $FindBin::Script -h imap_server [filter]\n";
print "Example: $FindBin::Script -h localhost\n";
print "Example: $FindBin::Script -h localhost user.\*_example_com\n";
exit;
}
-
}
require "mailbox_actions.lib";
Index: ispman.addSlaveDomain
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.addSlaveDomain,v
retrieving revision 1.4
retrieving revision 1.4.4.1
diff -u -d -r1.4 -r1.4.4.1
--- ispman.addSlaveDomain 26 Jun 2004 08:40:22 -0000 1.4
+++ ispman.addSlaveDomain 18 Sep 2006 01:58:56 -0000 1.4.4.1
@@ -5,7 +5,7 @@
( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
use Getopt::Std;
unless ( $ARGV[1] ) {
- print "$0 domain masters password\n";
+ print "$FindBin::Script domain masters password\n";
print "multiple masters can be separated with ,\n";
print "\n";
exit;
Index: ispman.imapAuthTest
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.imapAuthTest,v
retrieving revision 1.2
retrieving revision 1.2.6.1
diff -u -d -r1.2 -r1.2.6.1
--- ispman.imapAuthTest 30 May 2004 23:35:32 -0000 1.2
+++ ispman.imapAuthTest 18 Sep 2006 01:58:57 -0000 1.2.6.1
@@ -4,7 +4,7 @@
unshift @INC,
( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
unless ( $ARGV[2] ) {
- print "$0 hostname username password\n";
+ print "$FindBin::Script hostname username password\n";
exit;
}
}
Index: ispman.setMailboxQuota
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.setMailboxQuota,v
retrieving revision 1.4.6.2
retrieving revision 1.4.6.3
diff -u -d -r1.4.6.2 -r1.4.6.3
--- ispman.setMailboxQuota 11 Sep 2006 23:31:24 -0000 1.4.6.2
+++ ispman.setMailboxQuota 18 Sep 2006 01:58:57 -0000 1.4.6.3
@@ -6,8 +6,7 @@
use Getopt::Std;
getopt( 'h', \%opts );
unless ( $opts{'h'} ) {
- $0 =~ s/.*\///;
- print "Usage: $0 -h imap_server mailbox quota\n";
+ print "Usage: $FindBin::Script -h imap_server mailbox quota\n";
exit;
}
}
Index: ispman.warnNearQuotaMailboxes
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.warnNearQuotaMailboxes,v
retrieving revision 1.2.6.1
retrieving revision 1.2.6.2
diff -u -d -r1.2.6.1 -r1.2.6.2
--- ispman.warnNearQuotaMailboxes 16 Sep 2006 19:20:21 -0000 1.2.6.1
+++ ispman.warnNearQuotaMailboxes 18 Sep 2006 01:58:57 -0000 1.2.6.2
@@ -9,8 +9,7 @@
use Getopt::Std;
getopt( 'h', \%opts );
unless ( $opts{'h'} ) {
- $0 =~ s/.*\///;
- print "Usage: $0 -h imap_server\n";
+ print "Usage: $FindBin::Script -h imap_server\n";
exit;
}
}
Index: ispman.createMailbox
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.createMailbox,v
retrieving revision 1.5.6.2
retrieving revision 1.5.6.3
diff -u -d -r1.5.6.2 -r1.5.6.3
--- ispman.createMailbox 11 Sep 2006 23:31:24 -0000 1.5.6.2
+++ ispman.createMailbox 18 Sep 2006 01:58:56 -0000 1.5.6.3
@@ -7,9 +7,8 @@
use Getopt::Std;
getopt( 'h', \%opts );
unless ( $opts{'h'} ) {
- $0 =~ s/.*\///;
print
- "Usage: $0 -h imap_server mailbox [mailbox] [mailbox] ... [mailbox]\n";
+ "Usage: $FindBin::Script -h imap_server mailbox [mailbox] [mailbox] ... [mailbox]\n";
print "Example: $FindBin::Script -h localhost user_domain_tld\n";
print "Example: $FindBin::Script -h localhost user\@domain.tld\n";
exit;
Index: ispman.addHost
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.addHost,v
retrieving revision 1.5
retrieving revision 1.5.6.1
diff -u -d -r1.5 -r1.5.6.1
--- ispman.addHost 30 May 2004 23:35:31 -0000 1.5
+++ ispman.addHost 18 Sep 2006 01:58:56 -0000 1.5.6.1
@@ -4,7 +4,7 @@
unshift @INC,
( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
unless ( $ARGV[1] ) {
- print "$0 hostname ipAddress [Display Name] [Description]\n";
+ print "$FindBin::Script hostname ipAddress [Display Name] [Description]\n";
exit;
}
}
Index: ispman.l10n
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.l10n,v
retrieving revision 1.3
retrieving revision 1.3.6.1
diff -u -d -r1.3 -r1.3.6.1
--- ispman.l10n 30 May 2004 23:35:32 -0000 1.3
+++ ispman.l10n 18 Sep 2006 01:58:57 -0000 1.3.6.1
@@ -4,7 +4,7 @@
unshift @INC,
( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
unless ( $ARGV[0] ) {
- print "$0 template\n";
+ print "$FindBin::Script template\n";
exit;
}
}
Index: ispman.domainHasService
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.domainHasService,v
retrieving revision 1.2
retrieving revision 1.2.6.1
diff -u -d -r1.2 -r1.2.6.1
--- ispman.domainHasService 30 May 2004 23:35:31 -0000 1.2
+++ ispman.domainHasService 18 Sep 2006 01:58:57 -0000 1.2.6.1
@@ -9,7 +9,7 @@
use Getopt::Std;
getopt( 'd', \%opts );
unless ( $opts{'d'} && $ARGV[0] ) {
- print "Usage: $0 -d domain service";
+ print "Usage: $FindBin::Script -d domain service";
print "\n";
exit;
}
Index: ispman.smtpAuthTest
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.smtpAuthTest,v
retrieving revision 1.3
retrieving revision 1.3.6.1
diff -u -d -r1.3 -r1.3.6.1
--- ispman.smtpAuthTest 30 May 2004 23:35:32 -0000 1.3
+++ ispman.smtpAuthTest 18 Sep 2006 01:58:57 -0000 1.3.6.1
@@ -4,7 +4,7 @@
unshift @INC,
( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
unless ( $ARGV[2] ) {
- print "$0 hostname username password\n";
+ print "$FindBin::Script hostname username password\n";
exit;
}
}
Index: ispman.ldap2named
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.ldap2named,v
retrieving revision 1.9
retrieving revision 1.9.4.1
diff -u -d -r1.9 -r1.9.4.1
--- ispman.ldap2named 4 Aug 2004 17:25:40 -0000 1.9
+++ ispman.ldap2named 18 Sep 2006 01:58:57 -0000 1.9.4.1
@@ -12,7 +12,7 @@
}
if ( $opts{'h'} ) {
- print "$0 -d debugLevel[1|2|3] [-a]\n";
+ print "$FindBin::Script -d debugLevel[1|2|3] [-a]\n";
print
"\t-a\tMake postfix maps for all domains and not just the ones where smtpHost is this host\n";
print "\n";
Index: ispman.getTemplate
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.getTemplate,v
retrieving revision 1.3
retrieving revision 1.3.6.1
diff -u -d -r1.3 -r1.3.6.1
--- ispman.getTemplate 30 May 2004 23:35:32 -0000 1.3
+++ ispman.getTemplate 18 Sep 2006 01:58:57 -0000 1.3.6.1
@@ -4,7 +4,7 @@
unshift @INC,
( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
unless ( $ARGV[0] ) {
- print "$0 template\n";
+ print "$FindBin::Script template\n";
exit;
}
}
Index: ispman.getUserCount
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.getUserCount,v
retrieving revision 1.3
retrieving revision 1.3.6.1
diff -u -d -r1.3 -r1.3.6.1
--- ispman.getUserCount 30 May 2004 23:35:32 -0000 1.3
+++ ispman.getUserCount 18 Sep 2006 01:58:57 -0000 1.3.6.1
@@ -6,7 +6,7 @@
use Getopt::Std;
getopt( 'd', \%opts );
unless ( $opts{'d'} ) {
- print "Usage: $0 -d domain";
+ print "Usage: $FindBin::Script -d domain";
print "\n";
exit;
}
Index: ispman.loganalyzer
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.loganalyzer,v
retrieving revision 1.12
retrieving revision 1.12.2.1
diff -u -d -r1.12 -r1.12.2.1
--- ispman.loganalyzer 10 Oct 2005 20:18:23 -0000 1.12
+++ ispman.loganalyzer 18 Sep 2006 01:58:57 -0000 1.12.2.1
@@ -6,7 +6,7 @@
use Getopt::Std;
getopts( 'c:h:q', \%opts );
unless ( $opts{'c'} && $ARGV[0] ) {
- print "$0 [-q] [-h sitename] -c /path/to/webalizer vhost_directory";
+ print "$FindBin::Script [-q] [-h sitename] -c /path/to/webalizer vhost_directory";
print "\n";
exit;
}
Index: ispman.getMailboxQuota
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.getMailboxQuota,v
retrieving revision 1.4.6.1
retrieving revision 1.4.6.2
diff -u -d -r1.4.6.1 -r1.4.6.2
--- ispman.getMailboxQuota 11 Sep 2006 23:31:24 -0000 1.4.6.1
+++ ispman.getMailboxQuota 18 Sep 2006 01:58:57 -0000 1.4.6.2
@@ -8,9 +8,8 @@
use Getopt::Std;
getopt( 'h', \%opts );
unless ( $opts{'h'} ) {
- $0 =~ s/.*\///;
print
- "Usage: $0 -h imap_server mailbox [mailbox] [mailbox] .. [mailbox]\n";
+ "Usage: $FindBin::Script -h imap_server mailbox [mailbox] [mailbox] .. [mailbox]\n";
exit;
}
}
Index: ispman.dnsshow
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.dnsshow,v
retrieving revision 1.10.6.1
retrieving revision 1.10.6.2
diff -u -d -r1.10.6.1 -r1.10.6.2
--- ispman.dnsshow 11 Sep 2006 23:31:24 -0000 1.10.6.1
+++ ispman.dnsshow 18 Sep 2006 01:58:56 -0000 1.10.6.2
@@ -7,7 +7,7 @@
getopt( 'dt', \%opts );
getopt( 'v:', \%opts );
unless ( $opts{'d'} && $opts{'t'} ) {
- print "$0 -d domain -t type [-v] \n";
+ print "$FindBin::Script -d domain -t type [-v] \n";
print " where type can be one of the following:\n";
print " A List of host addresses\n";
print " TXT List of text infos\n";
@@ -17,7 +17,7 @@
print " ANY All of the above\n";
print "\n";
print "if you want to list for all domains, use -d all\n";
- print "Example: $0 -d all -t MX\n";
+ print "Example: $FindBin::Script -d all -t MX\n";
print "\n";
exit;
}
Index: ispman.domainInfo
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.domainInfo,v
retrieving revision 1.5
retrieving revision 1.5.6.1
diff -u -d -r1.5 -r1.5.6.1
--- ispman.domainInfo 30 May 2004 23:35:32 -0000 1.5
+++ ispman.domainInfo 18 Sep 2006 01:58:57 -0000 1.5.6.1
@@ -6,7 +6,7 @@
use Getopt::Std;
getopt( 'd', \%opts );
unless ( $opts{'d'} ) {
- print "$0 -d domain";
+ print "$FindBin::Script -d domain";
print "\n";
exit;
}
Index: ispman.setmailtransport
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.setmailtransport,v
retrieving revision 1.4
retrieving revision 1.4.6.1
diff -u -d -r1.4 -r1.4.6.1
--- ispman.setmailtransport 30 May 2004 23:35:32 -0000 1.4
+++ ispman.setmailtransport 18 Sep 2006 01:58:57 -0000 1.4.6.1
@@ -6,7 +6,7 @@
use Getopt::Std;
getopt( 'd', \%opts );
unless ( $opts{'d'} && $ARGV[0] ) {
- print "$0 -d domain transport";
+ print "$FindBin::Script -d domain transport";
print "\n";
exit;
}
Index: ispman.prepareBranchForDN
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.prepareBranchForDN,v
retrieving revision 1.2
retrieving revision 1.2.6.1
diff -u -d -r1.2 -r1.2.6.1
--- ispman.prepareBranchForDN 30 May 2004 23:35:32 -0000 1.2
+++ ispman.prepareBranchForDN 18 Sep 2006 01:58:57 -0000 1.2.6.1
@@ -4,7 +4,7 @@
unshift @INC,
( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
unless ( $ARGV[0] ) {
- print "$0 DN";
+ print "$FindBin::Script DN";
print "\n";
exit;
}
Index: ispman.addvhost
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.addvhost,v
retrieving revision 1.14
retrieving revision 1.14.6.1
diff -u -d -r1.14 -r1.14.6.1
--- ispman.addvhost 5 Jun 2004 12:45:18 -0000 1.14
+++ ispman.addvhost 18 Sep 2006 01:58:56 -0000 1.14.6.1
@@ -10,7 +10,7 @@
getopt( 'dawp', \%opts );
unless ( $opts{'d'} && $opts{'d'} && $ARGV[0] ) {
print
-"$0 -d domain [-w webhost1, ... ,webhostn] [-a alias] [-p password] vhost\n";
+"$FindBin::Script -d domain [-w webhost1, ... ,webhostn] [-a alias] [-p password] vhost\n";
exit;
}
}
Index: ispman.getDomainAttribute
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.getDomainAttribute,v
retrieving revision 1.4
retrieving revision 1.4.6.1
diff -u -d -r1.4 -r1.4.6.1
--- ispman.getDomainAttribute 30 May 2004 23:35:32 -0000 1.4
+++ ispman.getDomainAttribute 18 Sep 2006 01:58:57 -0000 1.4.6.1
@@ -4,7 +4,7 @@
unshift @INC,
( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
unless ( $ARGV[1] ) {
- print "$0 domain attributename\n";
+ print "$FindBin::Script domain attributename\n";
exit;
}
}
Index: ispman.deleteAdmin
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.deleteAdmin,v
retrieving revision 1.2
retrieving revision 1.2.6.1
diff -u -d -r1.2 -r1.2.6.1
--- ispman.deleteAdmin 30 May 2004 23:35:31 -0000 1.2
+++ ispman.deleteAdmin 18 Sep 2006 01:58:56 -0000 1.2.6.1
@@ -4,7 +4,7 @@
unshift @INC,
( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
unless ( $ARGV[0] ) {
- print "$0 uid\n";
+ print "$FindBin::Script uid\n";
exit;
}
}
Index: ispman.addHostGroup
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.addHostGroup,v
retrieving revision 1.2
retrieving revision 1.2.6.1
diff -u -d -r1.2 -r1.2.6.1
--- ispman.addHostGroup 30 May 2004 23:35:31 -0000 1.2
+++ ispman.addHostGroup 18 Sep 2006 01:58:56 -0000 1.2.6.1
@@ -4,7 +4,7 @@
unshift @INC,
( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
unless ( $ARGV[0] ) {
- print "$0 hostgroupname [Description]\n";
+ print "$FindBin::Script hostgroupname [Description]\n";
exit;
}
}
Index: ispman.dnsdump
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.dnsdump,v
retrieving revision 1.8
retrieving revision 1.8.6.1
diff -u -d -r1.8 -r1.8.6.1
--- ispman.dnsdump 5 Jun 2004 12:45:18 -0000 1.8
+++ ispman.dnsdump 18 Sep 2006 01:58:56 -0000 1.8.6.1
@@ -7,7 +7,7 @@
getopt( 'dt', \%opts );
getopt( 'v:', \%opts );
unless ( $opts{'d'} && $opts{'t'} ) {
- print "$0 -d domain -t type [-v] \n";
+ print "$FindBin::Script -d domain -t type [-v] \n";
print " where type can be one of the following:\n";
print " A List of host addresses\n";
print " NS List of Name servers\n";
@@ -16,7 +16,7 @@
print " ANY All of the above\n";
print "\n";
print "if you want to list for all domains, use -d all\n";
- print "Example: $0 -d all -t MX\n";
+ print "Example: $FindBin::Script -d all -t MX\n";
print "\n";
exit;
}
Index: ispman.ldifload
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.ldifload,v
retrieving revision 1.7
retrieving revision 1.7.2.1
diff -u -d -r1.7 -r1.7.2.1
--- ispman.ldifload 26 May 2006 22:48:14 -0000 1.7
+++ ispman.ldifload 18 Sep 2006 01:58:57 -0000 1.7.2.1
@@ -8,9 +8,8 @@
use Getopt::Std;
getopt( 'f', \%opts );
unless ( $opts{'f'} ) {
- my ($script) = reverse split( "/", $0 );
- print "$script. A utility to load data from ldif to ldap\n\n";
- print "Usage: $script -f filename";
+ print "$FinBin::Script . A utility to load data from ldif to ldap\n\n";
+ print "Usage: $FindBin::Script -f filename";
print "\n\n";
exit;
}
Index: ispman.deleteDomain
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.deleteDomain,v
retrieving revision 1.4
retrieving revision 1.4.6.1
diff -u -d -r1.4 -r1.4.6.1
--- ispman.deleteDomain 30 May 2004 23:35:31 -0000 1.4
+++ ispman.deleteDomain 18 Sep 2006 01:58:56 -0000 1.4.6.1
@@ -6,7 +6,7 @@
use Getopt::Std;
getopt( 'd', \%opts );
unless ( $opts{'d'} ) {
- print "$0 -d domain";
+ print "$FindBin::Script -d domain";
print "\n";
exit;
}
Index: ispman.makeHash
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.makeHash,v
retrieving revision 1.2
retrieving revision 1.2.6.1
diff -u -d -r1.2 -r1.2.6.1
--- ispman.makeHash 30 May 2004 23:35:32 -0000 1.2
+++ ispman.makeHash 18 Sep 2006 01:58:57 -0000 1.2.6.1
@@ -6,9 +6,9 @@
use Getopt::Std;
getopt( 'mh', \%opts );
unless ( $opts{'m'} && $ARGV[0] || $opts{'h'} ) {
- print "USAGE: $0 -m method clearstring\n\n";
+ print "USAGE: $FindBin::Script -m method clearstring\n\n";
print "Example:\n";
- print "$0 -m sha secret\n";
+ print "$FindBin::Script -m sha secret\n";
print "\n";
exit;
}
Index: ispman.listvhosts
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.listvhosts,v
retrieving revision 1.6
retrieving revision 1.6.6.1
diff -u -d -r1.6 -r1.6.6.1
--- ispman.listvhosts 30 May 2004 23:35:32 -0000 1.6
+++ ispman.listvhosts 18 Sep 2006 01:58:57 -0000 1.6.6.1
@@ -6,7 +6,7 @@
use Getopt::Std;
getopt( 'd', \%opts );
unless ( $opts{'d'} ) {
- print "$0 -d domain";
+ print "$FindBin::Script -d domain";
print "\n";
exit;
}
Index: ispman.listUserQuotas
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.listUserQuotas,v
retrieving revision 1.3.6.1
retrieving revision 1.3.6.2
diff -u -d -r1.3.6.1 -r1.3.6.2
--- ispman.listUserQuotas 16 Sep 2006 19:20:21 -0000 1.3.6.1
+++ ispman.listUserQuotas 18 Sep 2006 01:58:57 -0000 1.3.6.2
@@ -9,8 +9,7 @@
use Getopt::Std;
getopt( 'h', \%opts );
unless ( $opts{'h'} ) {
- $0 =~ s/.*\///;
- print "Usage: $0 -h imap_server\n";
+ print "Usage: $FindBin::Script -h imap_server\n";
exit;
}
Index: ispman.deleteClient
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.deleteClient,v
retrieving revision 1.2
retrieving revision 1.2.6.1
diff -u -d -r1.2 -r1.2.6.1
--- ispman.deleteClient 30 May 2004 23:35:31 -0000 1.2
+++ ispman.deleteClient 18 Sep 2006 01:58:56 -0000 1.2.6.1
@@ -4,7 +4,7 @@
unshift @INC,
( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
unless ( $ARGV[0] ) {
- print "$0 ClientID\n";
+ print "$FindBin::Script ClientID\n";
exit;
}
}
Index: ispman.addAdmin
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.addAdmin,v
retrieving revision 1.3
retrieving revision 1.3.6.1
diff -u -d -r1.3 -r1.3.6.1
--- ispman.addAdmin 30 May 2004 23:35:31 -0000 1.3
+++ ispman.addAdmin 18 Sep 2006 01:58:56 -0000 1.3.6.1
@@ -6,7 +6,7 @@
use Getopt::Std;
getopt( 'flmp', \%opts );
unless ( $opts{'l'} && $opts{'p'} && $ARGV[0] ) {
- print "$0 -l level [-f fullname] [-m email] -p password uid";
+ print "$FindBin::Script -l level [-f fullname] [-m email] -p password uid";
print "\n";
exit;
}
Index: ispman.dnsunset
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.dnsunset,v
retrieving revision 1.15
retrieving revision 1.15.2.1
diff -u -d -r1.15 -r1.15.2.1
--- ispman.dnsunset 6 Jun 2006 22:15:32 -0000 1.15
+++ ispman.dnsunset 18 Sep 2006 01:58:57 -0000 1.15.2.1
@@ -8,15 +8,15 @@
getopt( 'f:', \%opts );
unless ( $opts{'d'} && $opts{'t'} ) {
- print "$0 -d domain -t type more parameters\n";
+ print "$FindBin::Script -d domain -t type more parameters\n";
print " Examples:\n";
- print " $0 [-v] [-f] -d example.com -t A hostname [ipaddress]\n";
- print " $0 [-v] [-f] -d example.com -t NS origin nameserver\n";
- print " $0 [-v] [-f] -d example.com -t MX origin weight mailserver\n";
- print " $0 [-v] [-f] -d example.com -t TXT host text\n";
- print " $0 [-v] [-f] -d example.com -t CNAME alias host\n";
+ print " $FindBin::Script [-v] [-f] -d example.com -t A hostname [ipaddress]\n";
+ print " $FindBin::Script [-v] [-f] -d example.com -t NS origin nameserver\n";
+ print " $FindBin::Script [-v] [-f] -d example.com -t MX origin weight mailserver\n";
+ print " $FindBin::Script [-v] [-f] -d example.com -t TXT host text\n";
+ print " $FindBin::Script [-v] [-f] -d example.com -t CNAME alias host\n";
print
-" $0 [-v] [-f] -d example.com -t SOA primary rootmail refresh retry expire minimum\n";
+" $FindBin::Script [-v] [-f] -d example.com -t SOA primary rootmail refresh retry expire minimum\n";
print "\n";
exit;
}
Index: ispman.getVhostAttribute
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.getVhostAttribute,v
retrieving revision 1.4
retrieving revision 1.4.6.1
diff -u -d -r1.4 -r1.4.6.1
--- ispman.getVhostAttribute 30 May 2004 23:35:32 -0000 1.4
+++ ispman.getVhostAttribute 18 Sep 2006 01:58:57 -0000 1.4.6.1
@@ -6,7 +6,7 @@
( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
unless ( $ARGV[2] ) {
print "For expert use only\n";
- print "$0 domain vhost attributename\n";
+ print "$FindBin::Script domain vhost attributename\n";
exit;
}
}
Index: ispman.deleteMailbox
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.deleteMailbox,v
retrieving revision 1.4.6.1
retrieving revision 1.4.6.2
diff -u -d -r1.4.6.1 -r1.4.6.2
--- ispman.deleteMailbox 11 Sep 2006 23:31:24 -0000 1.4.6.1
+++ ispman.deleteMailbox 18 Sep 2006 01:58:56 -0000 1.4.6.2
@@ -7,9 +7,8 @@
use Getopt::Std;
getopt( 'h', \%opts );
unless ( $opts{'h'} ) {
- $0 =~ s/.*\///;
print
- "Usage: $0 -h imap_server mailbox [mailbox] [mailbox] .. [mailbox]\n";
+ "Usage: $FindBin::Script -h imap_server mailbox [mailbox] [mailbox] .. [mailbox]\n";
exit;
}
}
Index: ispman.addHost2HostGroup
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.addHost2HostGroup,v
retrieving revision 1.3
retrieving revision 1.3.6.1
diff -u -d -r1.3 -r1.3.6.1
--- ispman.addHost2HostGroup 30 May 2004 23:35:31 -0000 1.3
+++ ispman.addHost2HostGroup 18 Sep 2006 01:58:56 -0000 1.3.6.1
@@ -4,7 +4,7 @@
unshift @INC,
( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
unless ( $ARGV[1] ) {
- print "$0 hostgroup hostname\n";
+ print "$FindBin::Script hostgroup hostname\n";
exit;
}
}
Index: ispman.dnsload
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.dnsload,v
retrieving revision 1.7
retrieving revision 1.7.6.1
diff -u -d -r1.7 -r1.7.6.1
--- ispman.dnsload 20 Jun 2004 14:20:49 -0000 1.7
+++ ispman.dnsload 18 Sep 2006 01:58:56 -0000 1.7.6.1
@@ -8,7 +8,7 @@
getopt( 'v:', \%opts );
unless ( $opts{'f'} ) {
- print "$0 -d domain -f file\n";
+ print "$FindBin::Script -d domain -f file\n";
print "\n";
exit;
}
Index: ispman.deleteHost
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.deleteHost,v
retrieving revision 1.4
retrieving revision 1.4.6.1
diff -u -d -r1.4 -r1.4.6.1
--- ispman.deleteHost 30 May 2004 23:35:31 -0000 1.4
+++ ispman.deleteHost 18 Sep 2006 01:58:56 -0000 1.4.6.1
@@ -4,7 +4,7 @@
unshift @INC,
( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
unless ( $ARGV[0] ) {
- print "$0 hostname\n";
+ print "$FindBin::Script hostname\n";
exit;
}
}
Index: ispman.deletevhost
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.deletevhost,v
retrieving revision 1.4
retrieving revision 1.4.6.1
diff -u -d -r1.4 -r1.4.6.1
--- ispman.deletevhost 30 May 2004 23:35:31 -0000 1.4
+++ ispman.deletevhost 18 Sep 2006 01:58:56 -0000 1.4.6.1
@@ -6,7 +6,7 @@
use Getopt::Std;
getopt( 'd', \%opts );
unless ( $opts{'d'} && $ARGV[0] ) {
- print "$0 -d domain vhost";
+ print "$FindBin::Script -d domain vhost";
print "\n";
exit;
}
Index: ispman.deleteDomainService
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.deleteDomainService,v
retrieving revision 1.3
retrieving revision 1.3.6.1
diff -u -d -r1.3 -r1.3.6.1
--- ispman.deleteDomainService 30 May 2004 23:35:31 -0000 1.3
+++ ispman.deleteDomainService 18 Sep 2006 01:58:56 -0000 1.3.6.1
@@ -4,7 +4,7 @@
unshift @INC,
( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
unless ( $ARGV[0] ) {
- print "usage: $0 servicename\n";
+ print "usage: $FindBin::Script servicename\n";
exit;
}
}
Index: ispman.addDomainService2Domain
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.addDomainService2Domain,v
retrieving revision 1.3
retrieving revision 1.3.6.1
diff -u -d -r1.3 -r1.3.6.1
--- ispman.addDomainService2Domain 30 May 2004 23:35:31 -0000 1.3
+++ ispman.addDomainService2Domain 18 Sep 2006 01:58:56 -0000 1.3.6.1
@@ -4,7 +4,7 @@
unshift @INC,
( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
unless ( $ARGV[1] ) {
- print "usage: $0 domain service\n";
+ print "usage: $FindBin::Script domain service\n";
exit;
}
}
Index: ispman.listOverQuotaMailboxes
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.listOverQuotaMailboxes,v
retrieving revision 1.4.6.1
retrieving revision 1.4.6.2
diff -u -d -r1.4.6.1 -r1.4.6.2
--- ispman.listOverQuotaMailboxes 16 Sep 2006 19:20:21 -0000 1.4.6.1
+++ ispman.listOverQuotaMailboxes 18 Sep 2006 01:58:57 -0000 1.4.6.2
@@ -10,8 +10,7 @@
use Getopt::Std;
getopt( 'h', \%opts );
unless ( $opts{'h'} ) {
- $0 =~ s/.*\///;
- print "Usage: $0 -h imap_server\n";
+ print "Usage: $FindBin::Script -h imap_server\n";
exit;
}
}
Index: ispman.setVar
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.setVar,v
retrieving revision 1.7
retrieving revision 1.7.2.1
diff -u -d -r1.7 -r1.7.2.1
--- ispman.setVar 27 May 2006 15:09:23 -0000 1.7
+++ ispman.setVar 18 Sep 2006 01:58:57 -0000 1.7.2.1
@@ -6,9 +6,9 @@
use Getopt::Std;
getopt( 'mh', \%opts );
if ( !$opts{'m'} || !defined($ARGV[1]) || $opts{'h'} ) {
- print "USAGE: $0 -m module_name variable_name value\n\n";
+ print "USAGE: $FindBin::Script -m module_name variable_name value\n\n";
print "Example:\n";
- print "$0 -m sys_vars sleepSecondsBetweenRestart 2\n";
+ print "$FindBin::Script -m sys_vars sleepSecondsBetweenRestart 2\n";
print "\n";
exit;
}
Index: ispman.bumpMailboxQuota
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.bumpMailboxQuota,v
retrieving revision 1.5.6.1
retrieving revision 1.5.6.2
diff -u -d -r1.5.6.1 -r1.5.6.2
--- ispman.bumpMailboxQuota 16 Sep 2006 19:20:21 -0000 1.5.6.1
+++ ispman.bumpMailboxQuota 18 Sep 2006 01:58:56 -0000 1.5.6.2
@@ -14,8 +14,7 @@
use Getopt::Std;
getopt( 'h', \%opts );
unless ( $opts{'h'} ) {
- $0 =~ s/.*\///;
- print "Usage: $0 -h imap_server\n";
+ print "Usage: $FindBin::Script -h imap_server\n";
exit;
}
}
Index: ispman.setVhostAttribute
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.setVhostAttribute,v
retrieving revision 1.3
retrieving revision 1.3.6.1
diff -u -d -r1.3 -r1.3.6.1
--- ispman.setVhostAttribute 30 May 2004 23:35:32 -0000 1.3
+++ ispman.setVhostAttribute 18 Sep 2006 01:58:57 -0000 1.3.6.1
@@ -6,7 +6,7 @@
( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
unless ( $ARGV[3] ) {
print "For expert use only\n";
- print "$0 domain vhost attributename value [value]\n";
+ print "$FindBin::Script domain vhost attributename value [value]\n";
exit;
}
}
Index: ispman.listMailGroups
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.listMailGroups,v
retrieving revision 1.2
retrieving revision 1.2.6.1
diff -u -d -r1.2 -r1.2.6.1
--- ispman.listMailGroups 30 May 2004 23:35:32 -0000 1.2
+++ ispman.listMailGroups 18 Sep 2006 01:58:57 -0000 1.2.6.1
@@ -6,7 +6,7 @@
use Getopt::Std;
getopt( 'd', \%opts );
unless ( $opts{'d'} ) {
- print "$0 -d domain";
+ print "$FindBin::Script -d domain";
print "\n";
exit;
}
Index: ispman.createSubMailbox
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.createSubMailbox,v
retrieving revision 1.3.6.2
retrieving revision 1.3.6.3
diff -u -d -r1.3.6.2 -r1.3.6.3
--- ispman.createSubMailbox 16 Sep 2006 19:20:21 -0000 1.3.6.2
+++ ispman.createSubMailbox 18 Sep 2006 01:58:56 -0000 1.3.6.3
@@ -12,8 +12,7 @@
use Getopt::Std;
getopt( 'h', \%opts );
unless ( $opts{'h'} ) {
- $0 =~ s/.*\///;
- print "Usage: $0 -h imap_server uidexpr folder\n";
+ print "Usage: $FindBin::Script -h imap_server uidexpr folder\n";
print "uidexpr: such as 'blafasel', '*' or '*_some_domain'\n";
print "folder: the folder to create under INBOX\n";
exit;
-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642