summaryrefslogtreecommitdiff
path: root/lib/XXV/OUTPUT/NEWS
diff options
context:
space:
mode:
Diffstat (limited to 'lib/XXV/OUTPUT/NEWS')
-rw-r--r--lib/XXV/OUTPUT/NEWS/JABBER.pm12
-rw-r--r--lib/XXV/OUTPUT/NEWS/MAIL.pm6
-rw-r--r--lib/XXV/OUTPUT/NEWS/RSS.pm10
-rw-r--r--lib/XXV/OUTPUT/NEWS/VDR.pm10
4 files changed, 19 insertions, 19 deletions
diff --git a/lib/XXV/OUTPUT/NEWS/JABBER.pm b/lib/XXV/OUTPUT/NEWS/JABBER.pm
index 18e5602..09300a4 100644
--- a/lib/XXV/OUTPUT/NEWS/JABBER.pm
+++ b/lib/XXV/OUTPUT/NEWS/JABBER.pm
@@ -148,7 +148,7 @@ sub new {
# Try to use the Requirments
map {
eval "use $_";
- return panic("\nCan not load Module: $_\nPlease install this module on your System:\nperl -MCPAN -e 'install $_'") if($@);
+ return panic("\nCouldn't load modul: $_\nPlease install this modul on your system:\nperl -MCPAN -e 'install $_'") if($@);
} keys %{$self->{MOD}->{Prereq}};
$self->{TYP} = 'text/plain';
@@ -157,8 +157,8 @@ sub new {
main::after(sub{
# The Initprocess
my $erg = $self->init
- or return error('Problem to initialize news module');
- }, "NEWS::JABBER: Start initiate the Jabber module ...")
+ or return error('Problem to initialize news modul!');
+ }, "NEWS::JABBER: Start initiate the jabber modul ...")
if($self->{active} eq 'y');
return $self;
@@ -222,7 +222,7 @@ sub jdisconnect {
sub send {
# ------------------
my $obj = shift || return error('No object defined!');
- my $vars = shift || return error ('No Vars!' );
+ my $vars = shift || return error('No data defined!');
return undef, lg('This function is deactivated!')
if($obj->{active} ne 'y');
@@ -245,7 +245,7 @@ sub send {
sub read {
# ------------------
my $obj = shift || return error('No object defined!');
- my $vars = shift || return error ('No News!' );
+ my $vars = shift || return error('No data defined!');
return $obj->send($vars);
@@ -270,7 +270,7 @@ sub req {
if($obj->send($vars)) {
return sprintf('Message is send to %s at %s', $obj->{receiveUser}, datum($vars->{AddDate}, 'voll'));
} else {
- return sprintf('Upps, problem send Message to %s at %s', $obj->{receiveUser}, datum($vars->{AddDate}, 'voll'));
+ return sprintf("Sorry, couldn't send message to %s at %s", $obj->{receiveUser}, datum($vars->{AddDate}, 'voll'));
}
}
diff --git a/lib/XXV/OUTPUT/NEWS/MAIL.pm b/lib/XXV/OUTPUT/NEWS/MAIL.pm
index 8ef872b..78089b6 100644
--- a/lib/XXV/OUTPUT/NEWS/MAIL.pm
+++ b/lib/XXV/OUTPUT/NEWS/MAIL.pm
@@ -135,7 +135,7 @@ sub new {
# Try to use the Requirments
map {
eval "use $_";
- return panic("\nCan not load Module: $_\nPlease install this module on your System:\nperl -MCPAN -e 'install $_'") if($@);
+ return panic("\nCouldn't load modul: $_\nPlease install this modul on your system:\nperl -MCPAN -e 'install $_'") if($@);
} keys %{$self->{MOD}->{Prereq}};
# create Template object
@@ -161,7 +161,7 @@ sub new {
# The Initprocess
my $erg = $self->init
- or return error('Problem to initialize news module')
+ or return error('Problem to initialize news modul!')
if($self->{active} eq 'y');
$self->{TYP} = 'text/plain';
@@ -271,7 +271,7 @@ sub parseFooter {
sub read {
# ------------------
my $obj = shift || return error('No object defined!');
- my $vars = shift || return error ('No News!' );
+ my $vars = shift || return error('No data defined!');
my $output = '';
$vars->{count} = ++$obj->{NEWSCOUNT};
diff --git a/lib/XXV/OUTPUT/NEWS/RSS.pm b/lib/XXV/OUTPUT/NEWS/RSS.pm
index 129452b..b4d5293 100644
--- a/lib/XXV/OUTPUT/NEWS/RSS.pm
+++ b/lib/XXV/OUTPUT/NEWS/RSS.pm
@@ -81,7 +81,7 @@ sub new {
# Try to use the Requirments
map {
eval "use $_";
- return panic("\nCan not load Module: $_\nPlease install this module on your System:\nperl -MCPAN -e 'install $_'") if($@);
+ return panic("\nCouldn't load modul: $_\nPlease install this modul on your system:\nperl -MCPAN -e 'install $_'") if($@);
} keys %{$self->{MOD}->{Prereq}};
$self->{TYP} = 'application/xhtml+xml';
@@ -90,8 +90,8 @@ sub new {
main::after(sub{
# The Initprocess
my $erg = $self->init
- or return error('Problem to initialize News Module');
- }, "NEWS::RSS: Start initiate the RSS Feed ...")
+ or return error('Problem to initialize news modul!');
+ }, "NEWS::RSS: Start initiate rss feed ...")
if($self->{active} eq 'y');
@@ -167,7 +167,7 @@ sub createRSS {
sub send {
# ------------------
my $obj = shift || return error('No object defined!');
- my $vars = shift || return error ('No Vars!' );
+ my $vars = shift || return error('No data defined!');
++$obj->{COUNT};
@@ -187,7 +187,7 @@ sub send {
sub read {
# ------------------
my $obj = shift || return error('No object defined!');
- my $vars = shift || return error ('No News!' );
+ my $vars = shift || return error('No data defined!');
return undef, lg('This function is deactivated!')
if($obj->{active} ne 'y');
diff --git a/lib/XXV/OUTPUT/NEWS/VDR.pm b/lib/XXV/OUTPUT/NEWS/VDR.pm
index 38ad12a..c0072a9 100644
--- a/lib/XXV/OUTPUT/NEWS/VDR.pm
+++ b/lib/XXV/OUTPUT/NEWS/VDR.pm
@@ -78,7 +78,7 @@ sub new {
# Try to use the Requirments
map {
eval "use $_";
- return panic("\nCan not load Module: $_\nPlease install this module on your System:\nperl -MCPAN -e 'install $_'") if($@);
+ return panic("\nCouldn't load modul: $_\nPlease install this modul on your system:\nperl -MCPAN -e 'install $_'") if($@);
} keys %{$self->{MOD}->{Prereq}};
$self->{TYP} = 'text/plain';
@@ -87,8 +87,8 @@ sub new {
main::after(sub{
# The Initprocess
my $erg = $self->init
- or return error('Problem to initialize news module');
- }, "NEWS::VDR: Start initiate the News vdr module ...")
+ or return error('Problem to initialize news modul!');
+ }, "NEWS::VDR: Start initiate news vdr module ...")
if($self->{active} eq 'y');
return $self;
@@ -110,7 +110,7 @@ sub init {
sub send {
# ------------------
my $obj = shift || return error('No object defined!');
- my $vars = shift || return error ('No Vars!' );
+ my $vars = shift || return error('No data defined!');
return undef, lg('This function is deactivated!')
if($obj->{active} ne 'y');
@@ -131,7 +131,7 @@ sub send {
sub read {
# ------------------
my $obj = shift || return error('No object defined!');
- my $vars = shift || return error ('No News!' );
+ my $vars = shift || return error('No data defined!');
return $obj->send($vars);
generated by cgit v1.2.3 (git 2.25.1) at 2026-05-12 21:20:31 +0000