SVN: toys/rsget.pl/RSGet/Main.pm
sparky
sparky at pld-linux.org
Fri Oct 8 23:42:51 CEST 2010
Author: sparky
Date: Fri Oct 8 23:42:51 2010
New Revision: 11836
Modified:
toys/rsget.pl/RSGet/Main.pm
Log:
- added discontinuation_warning
Modified: toys/rsget.pl/RSGet/Main.pm
==============================================================================
--- toys/rsget.pl/RSGet/Main.pm (original)
+++ toys/rsget.pl/RSGet/Main.pm Fri Oct 8 23:42:51 2010
@@ -63,6 +63,13 @@
$sig_pipe = 1;
};
+sub discontinuation_warning
+{
+ ( "*** This is the last release of the current rsget.pl series. ***\n",
+ "*** Find out more at: ***\n",
+ "*** http://rsget.pl/about/new-core/ ***\n" );
+}
+
my $http = undef;
sub init
{
@@ -96,6 +103,7 @@
my $start_dir = Cwd::getcwd();
require Proc::Daemon;
print "starting rsget.pl daemon\n" if verbose( 1 );
+ print $_ foreach discontinuation_warning;
Proc::Daemon::Init();
chdir $start_dir;
} elsif ( $daemon ) {
@@ -106,6 +114,8 @@
new RSGet::Line();
new RSGet::Line( "rsget.pl started successfully on pid $$" );
new RSGet::Line();
+ warn $_ foreach discontinuation_warning;
+ new RSGet::Line();
RSGet::Line::update();
loop();
More information about the pld-cvs-commit
mailing list