# HG changeset patch
# User Julian Schnidder <j.schnidder@gmx.de>
# Date 1206730044 14400
# Node ID 7ae60e7eb6f8fd352bbf5584339d2b7c5b0e5706
# Parent  fb3a6c53c2b20456a4943df2d1dfc1c8f40abf5d
info.m added

diff --git a/doc/interpreter/contributors.in b/doc/interpreter/contributors.in
--- a/doc/interpreter/contributors.in
+++ b/doc/interpreter/contributors.in
@@ -170,6 +170,7 @@
 Ben Sapp
 Alois Schloegl
 Michel D. Schmid
+Julian Schnidder
 Nicol N. Schraudolph
 Sebastian Schubert
 Ludwig Schwardt
diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,8 @@
+2008-03-28  Julian Schnidder  <j.schnidder@gmx.de>
+
+	* miscellaneous/info.m: New function.
+	* miscellaneous/Makefile.in (SOURCES): Add it to the list.
+
 2008-03-27  Soren Hauberg  <hauberg@gmail.com>
 
 	* plot/xlim.m, plot/ylim.m, plot/zlim.m, strings/strtrim.m:
diff --git a/scripts/miscellaneous/Makefile.in b/scripts/miscellaneous/Makefile.in
--- a/scripts/miscellaneous/Makefile.in
+++ b/scripts/miscellaneous/Makefile.in
@@ -36,8 +36,8 @@
 SOURCES = ans.m bincoeff.m bug_report.m bunzip2.m cast.m comma.m \
   compare_versions.m computer.m copyfile.m \
   delete.m dir.m doc.m dos.m dump_prefs.m edit.m \
-  fileattrib.m fileparts.m flops.m fullfile.m getfield.m gunzip.m \
-  gzip.m inputname.m ismac.m ispc.m isunix.m license.m list_primes.m ls.m \
+  fileattrib.m fileparts.m flops.m fullfile.m getfield.m gunzip.m gzip.m \
+  info.m inputname.m ismac.m ispc.m isunix.m license.m list_primes.m ls.m \
   ls_command.m menu.m mex.m mexext.m mkoctfile.m movefile.m \
   namelengthmax.m news.m orderfields.m pack.m paren.m parseparams.m \
   run.m semicolon.m setfield.m single.m substruct.m swapbytes.m tar.m \
diff --git a/scripts/miscellaneous/info.m b/scripts/miscellaneous/info.m
new file mode 100644
--- /dev/null
+++ b/scripts/miscellaneous/info.m
@@ -0,0 +1,44 @@
+## Copyright (C) 2008 Julian Schnidder
+##
+## This file is part of Octave.
+##
+## Octave is free software; you can redistribute it and/or modify it
+## under the terms of the GNU General Public License as published by
+## the Free Software Foundation; either version 3 of the License, or (at
+## your option) any later version.
+##
+## Octave is distributed in the hope that it will be useful, but
+## WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+## General Public License for more details.
+##
+## You should have received a copy of the GNU General Public License
+## along with Octave; see the file COPYING.  If not, see
+## <http://www.gnu.org/licenses/>.
+
+## -*- texinfo -*-
+## @deftypefn {Function File} {} info ()
+## Display contact information for the GNU Octave community.
+## @end deftypefn
+
+function info ()
+
+  printf ("\n\
+  Additional information about GNU Octave is available at\n\
+  http://www.octave.org\n\
+\n\
+  Descriptions of mailing lists devoted to Octave are available at\n\
+  http://www.octave.org/archive.html\n\
+\n\
+  You may also find some information in the Octave Wiki at\n\
+  http://wiki.octave.org\n\
+\n\
+  Additional functionality can be enabled by using packages from\n\
+  the Octave Forge project, which may be found at\n\
+  http://octave.sourceforge.net\n\
+\n\
+  Report bugs to <bug@octave.org> (but first, please read\n\
+  http://www.octave.org/bugs.html to learn how to write a helpful report)\n\
+\n");
+
+endfunction