SVN: toys/rsget.pl/RSGet/Main.pm

[sparky]

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();