Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Removed redundant doc header fields and version variables.

Browse Source
This commit is contained in:
Chris 2012-03-16 16:18:46 +00:00
parent 8b5afbcbde
commit 4dbd3bdff9
16 changed files with 13 additions and 74 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
AppUser.pm
View File

@ -3,9 +3,6 @@
# user operations.
#
# @author Chris Page <chris@starforge.co.uk>
# @version 1.0
# @date 5 March 2012
# @copy 2012, Chris Page <chris@starforge.co.uk>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

3
Auth.pm
View File

@ -2,9 +2,6 @@
# This file contains the implementation of the multi-method authentication class.
#
# @author Chris Page <chris@starforge.co.uk>
# @version 1.0
# @date 5 March 2012
# @copy 2012, Chris Page <chris@starforge.co.uk>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

3
AuthMethod.pm
View File

@ -2,9 +2,6 @@
# This file contains the implementation of the authentication method base class.
#
# @author Chris Page <chris@starforge.co.uk>
# @version 1.0
# @date 9 March 2012
# @copy 2012, Chris Page <chris@starforge.co.uk>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

3
AuthMethod/Database.pm
View File

@ -2,9 +2,6 @@
# This file contains the implementation of the Database authentication class.
#
# @author Chris Page <chris@starforge.co.uk>
# @version 1.0
# @date 12 March 2012
# @copy 2012, Chris Page <chris@starforge.co.uk>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

3
AuthMethod/LDAPS.pm
View File

@ -2,9 +2,6 @@
# This file contains the implementation of the LDAPS authentication class.
#
# @author Chris Page <chris@starforge.co.uk>
# @version 1.0
# @date 9 March 2012
# @copy 2012, Chris Page <chris@starforge.co.uk>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
AuthMethod/SSH.pm
View File

@ -2,8 +2,6 @@
# This file contains the implementation of the SSH authentication class.
#
# @author Chris Page <chris@starforge.co.uk>
# @date 16 March 2012
# @copy 2012, Chris Page <chris@starforge.co.uk>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

3
AuthMethods.pm
View File

@ -2,9 +2,6 @@
# This file contains the implementation of the authentication method loader class.
#
# @author Chris Page <chris@starforge.co.uk>
# @version 1.0
# @date 13 March 2012
# @copy 2012, Chris Page <chris@starforge.co.uk>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

8
Block.pm
View File

@ -2,9 +2,6 @@
# This file contains the implementation of the base Block class.
#
# @author Chris Page <chris@starforge.co.uk>
# @version 1.3
# @date 13 Sept 2011
# @copy 2011, Chris Page <chris@starforge.co.uk>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@ -41,11 +38,10 @@ use HTML::Entities;
use strict;
# Globals within this and available to subclasses
use vars qw{$VERSION $errstr};
our $errstr;
BEGIN {
$VERSION = 1.2;
$errstr = '';
$errstr = '';
}
# ============================================================================

6
ConfigMicro.pm
View File

@ -3,9 +3,6 @@
# loading and saving class.
#
# @author Chris Page <chris@starforge.co.uk>
# @version 2.0
# @date 22 Feb 2009
# @copy 2009, Chris Page <chris@starforge.co.uk>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@ -47,10 +44,9 @@ require 5.005;
use DBI;
use strict;
our ($VERSION, $errstr);
our $errstr;
BEGIN {
$VERSION = 2.0;
$errstr = '';
}

6
HTMLValidator.pm
View File

@ -6,9 +6,6 @@
# to ensure that the xhtml generated by HTML::Tidy is valid.
#
# @author Chris Page <chris@starforge.co.uk>
# @version 1.0
# @date 22 May 09
# @copy 2009, Chris Page <chris@starforge.co.uk>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@ -34,9 +31,6 @@ use strict;
our @ISA = qw(Exporter);
our @EXPORT = qw(scrub_html tidy_html check_xhtml);
our $VERSION = 1.0;
# =============================================================================
# HTML::Scrubber related code

10
Logging.pm
View File

@ -3,9 +3,6 @@
# printing facilities for the whole system.
#
# @author Chris Page <chris@starforge.co.uk>
# @version 1.0
# @date 2 March 2009
# @copy 2009, Chris Page <chris@starforge.co.uk>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@ -32,9 +29,6 @@ our @ISA = qw(Exporter);
our @EXPORT = qw(warn_log die_log);
our @EXPORT_OK = qw(start_log end_log);
our $VERSION = 1.0;
my $logfile; # If defined, this is handle to the file that entries a written to
my $logtime; # The time that the log file was opened
@ -67,7 +61,7 @@ sub warn_log {
sub die_log {
my $ip = shift || "unknown";
my $message = shift;
print $logfile scalar(localtime)," [$$:$ip]: $message\n"
if($logfile);
@ -100,7 +94,7 @@ sub start_log {
## @fn void end_log($progname)
# Stop logging warnings and errors to a file. This will write an indicator
# Stop logging warnings and errors to a file. This will write an indicator
# that logging is stopping to the file and then close it.
#
# @param progname A optional program name to show in the log. Defaults to $0

8
Modules.pm
View File

@ -2,9 +2,6 @@
# This file contains the implementation of the Module loading class.
#
# @author Chris Page <chris@starforge.co.uk>
# @version 0.3
# @date 13 Sept 2011
# @copy 2011, Chris Page <chris@starforge.co.uk>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@ -30,11 +27,10 @@ use DBI;
use Logging qw(die_log);
use strict;
use vars qw{$VERSION $errstr};
our $errstr;
BEGIN {
$VERSION = 0.1;
$errstr = '';
$errstr = '';
}
# ==============================================================================

8
SessionHandler.pm
View File

@ -2,9 +2,6 @@
# This file contains the implementation of the perl session class.
#
# @author Chris Page <chris@starforge.co.uk>
# @version 1.1
# @date 13 Sept 2011
# @copy 2011, Chris Page <chris@starforge.co.uk>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@ -105,11 +102,10 @@ use Data::Dumper;
use Logging qw(die_log);
# Globals...
use vars qw{$VERSION $errstr};
our $errstr;
BEGIN {
$VERSION = 0.2;
$errstr = '';
$errstr = '';
}
# ============================================================================

6
Template.pm
View File

@ -2,9 +2,6 @@
# This file contains the implementation of the template engine.
#
# @author Chris Page <chris@starforge.co.uk>
# @version 1.0
# @date 23 November 09
# @copy 2009, Chris Page <chris@starforge.co.uk>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@ -31,10 +28,9 @@ use POSIX qw(strftime);
use Utils qw(path_join superchomp);
use strict;
our ($VERSION, $errstr, $utfentities, $entities, $ords);
our ($errstr, $utfentities, $entities, $ords);
BEGIN {
$VERSION = 1.0;
$errstr = '';
$utfentities = { '\xC2\xA3' => '£',

5
Utils.pm
View File

@ -4,9 +4,6 @@
# need for multiple copies around various modules.
#
# @author Chris Page <chris@starforge.co.uk>
# @version 1.0
# @date 1 March 09
# @copy 2009, Chris Page <chris@starforge.co.uk>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@ -47,8 +44,6 @@ our @ISA = qw(Exporter);
our @EXPORT = qw();
our @EXPORT_OK = qw(path_join superchomp trimspace is_defined_numeric rfc822_date title_case sentence_case get_proc_size blind_untaint);
our $VERSION = 1.0;
## @fn $ path_join(@fragments)
# Take an array of path fragments and concatenate them together. This will

10
phpBB3.pm
View File

@ -2,9 +2,6 @@
# This file contains the implementation of the perl phpBB3 interaction class.
#
# @author Chris Page <chris@starforge.co.uk>
# @version 0.7
# @date 27 July 2011
# @copy 2011, Chris Page <chris@starforge.co.uk>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@ -45,11 +42,10 @@ use WWW::Mechanize; # Needed to register via phpBB's registration form
use Utils qw(path_join);
# Globals...
use vars qw{$VERSION $ANONYMOUS $errstr %fmt_map};
our ($ANONYMOUS $errstr %fmt_map);
BEGIN {
$ANONYMOUS = 1; # ID of the anonymous user, should be 1 unless you Know What You're Doing.
$VERSION = 0.6; # Package version number
$errstr = ''; # Global error string
# Hash to map php date() formats to strftime format codes
@ -1056,12 +1052,12 @@ sub _check_hash {
my ($password, $hash) = @_;
# lifted straight from phpBB3, if that changes, this must be changed!
my $itoa64 = './0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
my $itoa64 = './0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
return (_hash_crypt_private($password, $hash, $itoa64) eq $hash)
if (length($hash) == 34);
return md5_hex($password) eq $hash;
return md5_hex($password) eq $hash;
}
1;