Delete eg as agreed at TPC3 (yes, 3). Dusty, obsolete, non-w-clean.

May be repopulated with fresh maintained examples.

p4raw-id: //depot/perl@6556

1 files changed, 0 insertions, 33 deletions

diff --git a/eg/cgi/internal_links.cgi b/eg/cgi/internal_links.cgi
deleted file mode 100644
index 4806966842..0000000000
--- a/eg/cgi/internal_links.cgi
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/usr/local/bin/perl
-
-use CGI;
-$query = new CGI;
-
-# We generate a regular HTML file containing a very long list
-# and a popup menu that does nothing except to show that we
-# don't lose the state information.
-print $query->header;
-print $query->start_html("Internal Links Example");
-print "<H1>Internal Links Example</H1>\n";
-print "Click <cite>Submit Query</cite> to create a state.  Then scroll down and",
-    " click on any of the <cite>Jump to top</cite> links.  This is not very exciting.";
-
-print "<A NAME=\"start\"></A>\n"; # an anchor point at the top
-
-# pick a default starting value;
-$query->param('amenu','FOO1') unless $query->param('amenu');
-
-print $query->startform;
-print $query->popup_menu('amenu',[('FOO1'..'FOO9')]);
-print $query->submit,$query->endform;
-
-# We create a long boring list for the purposes of illustration.
-$myself = $query->self_url;
-print "<OL>\n";
-for (1..100) {
-    print qq{<LI>List item #$_ <A HREF="$myself#start">Jump to top</A>\n};
-}
-print "</OL>\n";
-
-print $query->end_html;
-