adam/znc
1
0
Fork 0
mirror of https://github.com/znc/znc.git synced 2026-08-08 09:52:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

And fix a shitload of trailing whitespaces and space / tab mixups in ZNC

Browse Source 
git-svn-id: https://znc.svn.sourceforge.net/svnroot/znc/trunk@959 726aef4b-f618-498e-8847-2d620e286838
This commit is contained in:
psychon
2008-02-16 12:52:11 +00:00
parent be3edeee82
commit f74ab87e19
36 changed files with 243 additions and 252 deletions
Download Patch File Download Diff File Expand all files Collapse all files
modules/modperl.pm
+10 -10
View File
@@ -28,12 +28,12 @@ sub CORECallFunc
{
return( $Ret );
}
if ( $Ret == HALTMODS() )
{
return( $Ret );
}
if ( $Ret == HALTCORE() )
{
$FinalRet = $Ret;
@@ -61,7 +61,7 @@ sub CORELoadMod
my $DPath = GetString( "SavePath" );
my $FileName = $DPath . "/." . $Username . $Module . ".pm";
if ( !open( INMOD, $ModPath ) )
{
ZNC::PutModule( "Unable to open module $ModPath!" );
@@ -82,7 +82,7 @@ sub CORELoadMod
return( HALTMODS() );
}
}
while( <INMOD> )
{
if ( $_ =~ /^\s*package\s*$Module\s*;/ )
@@ -111,12 +111,12 @@ sub CORELoadMod
ZNC::PutModule( "$Module Failed to load" );
return( HALTMODS() );
}
$obj->{ZNC_Username} = $Username;
$obj->{ZNC_Name} = $Module;
$obj->{ZNC_ModPath} = $FileName;
@{$obj->{socks}} = ();
push( @MODS, $obj );
ZNC::PutModule( "Loaded $Module" );
}
@@ -287,7 +287,7 @@ sub PutTarget
my ( $target, $line ) = @_;
PutIRC( "PRIVMSG $target :$line" );
}
sub Connect
{
my ( $obj, $host, $port, $timeout, $bEnableReadline, $bUseSSL ) = @_;
@@ -339,7 +339,7 @@ sub Listen
{
$bEnableReadline = 0;
}
if ( !$bUseSSL )
{
$bUseSSL = 0;
@@ -358,7 +358,7 @@ sub ListenSSL
######################
## use this if you really want to have fun. be sure you don't leave a reference to the
## use this if you really want to have fun. be sure you don't leave a reference to the
## handle laying around! ZNC will deal with that inside your module, so its properly closed
package ZNCSocket;
@@ -425,7 +425,7 @@ sub Listen
$me->{fd} = ZNC::Listen( $me->{modobj}, $port, $bindhost, $bEnableReadline, $bUseSSL );
return( ( $me->{fd} >= 0 ) );
}
sub ListenSSL
{
my ( $me, $port, $bindhost, $bEnableReadline ) = @_;