remove unused event scripts/templates

4 files changed, 0 insertions, 317 deletions

diff --git a/english/template/debian/event.wml b/english/template/debian/event.wml
deleted file mode 100644
index 370374634ac..00000000000
--- a/english/template/debian/event.wml
+++ /dev/null
@@ -1,77 +0,0 @@
-#use wml::debian::events_common
-#use wml::debian::basic title="<pagetitle/>"
-#use wml::debian::languages
-
-{#check_trans#}
-
-<h2><pagetitle/></h2>
-
-<dateinfo/>
-
-	<strong><langwhere/>:</strong>  <where/><br />
-<: if (length ("<infolink/>")) { :>
-	<strong><langinfo/>:</strong>  <a href="<infolink/>"><infolink/></a><br />
-<: } :>
-<: if (<year> >= 2003) {
-    print qq'    <a href="$(WML_SRC_BASENAME).$(CUR_ISO_LANG).ics"><getics></a>\n';
-} :>
-
-<hrline/>
-
-<intro/>
-
-<hrline/>
-
-<h2><debinvolve/></h2>
-
-<involve/>
-
-<: if (qq{<coord>} ne 'none') { :>
-<p><strong><maincoordinator/>:</strong>  <coord/>
-<: } :>
-# there are no files named project-* in events/*/ directories... huh?
-#<table>
-#	<tr><projcoordinator/></tr>
-#	<:= get_event_stuff ( '<abbr/>', '0', '$(ENGLISHDIR)/events/<year/>', 'project-\w+' ) :>
-#</table>
-#
-#<hrline/>
-
-# there are no files named news-* in events/*/ directories... huh?
-#<h2><latestnews/></h2>
-#
-#<:= get_event_stuff ( '<abbr/>', '0', '$(ENGLISHDIR)/events/<year/>', 'news-\d+\w*' ) :>
-#
-#<hrline/>
-
-<:
-  if (open (PAGE, "$WML_SRC_FILENAME")) {
-    $go = 0;
-    $use = 0;
-    while (<PAGE>) {
-      next until ($use || /^#use wml::debian::event/);
-      $use = 1;
-      next if (/^#/ || /^\s*$/);
-      $go =1;
-    }
-    close (PAGE);
-  } else {
-    $go = 1;
-  }
-
-  if ($go) {
-:>
-
-<h2><relatedlinks/></h2>
-
-{#mainbody#}
-
-<: } :>
-
-{#pre_footer#:
-<hrlinehidden/>
-
-<:= languages_footer() :>
-:#pre_footer#}
-
-{#mainbody#:
diff --git a/english/template/debian/events_common.wml b/english/template/debian/events_common.wml
deleted file mode 100644
index 23ed4faf7b8..00000000000
--- a/english/template/debian/events_common.wml
+++ /dev/null
@@ -1,153 +0,0 @@
-#use wml::std::tags
-#use wml::debian::common_translation
-#use wml::debian::openrecode
-
-<bind-gettext-domain domain="newsevents" />
-
-<define-tag eventtitle whitespace=delete>
-  <gettext domain="newsevents">Upcoming Attractions</gettext>
-</define-tag>
-<define-tag notvalid whitespace=delete>
-  <gettext domain="newsevents">link may no longer be valid</gettext>
-</define-tag>
-<define-tag langwhen whitespace=delete>
-  <gettext domain="newsevents">When</gettext>
-</define-tag>
-<define-tag langwhere whitespace=delete>
-  <gettext domain="newsevents">Where</gettext>
-</define-tag>
-<define-tag langinfo whitespace=delete>
-  <gettext domain="newsevents">More Info</gettext>
-</define-tag>
-<define-tag debinvolve whitespace=delete>
-  <gettext domain="newsevents">Debian Involvement</gettext>
-</define-tag>
-<define-tag maincoordinator whitespace=delete>
-  <gettext domain="newsevents">Main Coordinator</gettext>
-</define-tag>
-<define-tag projcoordinator whitespace=delete>
-  <gettext domain="newsevents"><th>Project</th><th>Coordinator</th></gettext>
-</define-tag> 
-<define-tag relatedlinks whitespace=delete>
-  <gettext domain="newsevents">Related Links</gettext>
-</define-tag>
-<define-tag latestnews whitespace=delete>
-  <gettext domain="newsevents">Latest News</gettext>
-</define-tag>
-<define-tag getics whitespace=delete>
-  <gettext domain="newsevents">Download calendar entry</gettext>
-</define-tag>
-
-<define-tag dateinfo whitespace=delete>
-	<strong><langwhen/>:</strong>  
-<:
-if ("<startdate/>" =~ /^\d{4}-\d{2}-\d{2}$/)
-{
-	print &daterange("<startdate/>", "<enddate/>");
-}
-else
-{
-	print "<date/>";
-}
-:><br />
-</define-tag>
-
-
-<perl>
-use Encode;
-
-#############################################################################
-# grabs the date and title of the last $number news items from directory $path.
-# If $number is zero then all the news items are shown.
-sub get_event_stuff {
-  my ( $path, $number, $current_dir, $match ) = @_;
-
-  opendir(DIR, "$current_dir/$path");
-  @files = grep { /^$match.wml$/ && -f "$current_dir/$path/$_" } readdir(DIR);
-  @files = sort {$b cmp $a} @files;
-  closedir DIR;
-
-	$str = '<tr><td>(<none/>)</td></tr>';
-
-  $count = 0;
-  foreach (@files) 
-  {
-     $count++;
-     my $fh = openrecode("$path/$_", "$current_dir/$path/$_");
-     if ( /($match).wml/ ) 
-	 {
-        $base = $1;
-     }
-     $title = ''; $date = ''; $contact = ''; $email = ''; $desc = '';
-     $startdate = ''; $enddate = '';
-     <protect pass=2>
-     foreach $line (Encode::decode_utf8(<$fh>)) 
-	 {
-        if ($line =~ /^<define-tag pagetitle>(.*)<\/define-tag>/) 
-		{
-           $title = Encode::encode_utf8($1);
-        }
-        elsif ($line =~ /^<define-tag date>(.*)<\/define-tag>/) 
-		{
-           $date = Encode::encode_utf8($1);
-        }
-        elsif ($line =~ /^<define-tag startdate>(.*)<\/define-tag>/) 
-		{
-           $startdate = Encode::encode_utf8($1);
-        }
-        elsif ($line =~ /^<define-tag enddate>(.*)<\/define-tag>/) 
-		{
-           $enddate = Encode::encode_utf8($1);
-        }
-        elsif ($line =~ /^<define-tag contact>(.*)<\/define-tag>/) 
-		{
-           $contact = Encode::encode_utf8($1);
-        }
-        elsif ($line =~ /^<define-tag email>(.*)<\/define-tag>/) 
-		{
-           $email = Encode::encode_utf8($1);
-        }
-        elsif ($line =~ /^<define-tag desc>(.*)<\/define-tag>/) 
-		{
-           $desc = Encode::encode_utf8($1);
-        }
-     </protect>
-		if ($startdate && $enddate)
-		{
-			$date = &daterange($startdate, $enddate);
-		}
-		if ($title && $date) 
-		{
-           $str = "<tt>[$date]</tt> <strong><a href=\"$path/$base\">$title</a></strong><br />\n";
-           last;
-		}
-		elsif ($title && $contact && $email && $desc)
-		{
-           $str = "<tr><td><a href=\"$path/$base\">$title</a></td><td><a href=\"mailto:$email\">$contact</a></td><td>$desc</td></tr>\n";
-		   last;
-		}
-		elsif ($title && $contact && $desc)
-		{
-           $str = "<tr><td><a href=\"$path/$base\">$title</a></td><td>$contact</td><td>$desc</td></tr>\n";
-		}
-     }
-     close $fh;
-     if ($count eq $number) { last; }
-  }
-close DIR;
-return $str;
-}
-
-# this particular function doesn't appear to be used anywhere (?!)
-sub make_link 
-{
-  	my ( $url, $text, $temp ) = @_;
-	
-	if ( $temp eq 'yes' ) {
-		$str = "$text - $url (link may no longer be valid)";
-	} else {
-		$str = "<a href=\"$url\">$text</a>";
-	}
-	return $str
-}
-</perl>
diff --git a/english/template/debian/navbar.wml b/english/template/debian/navbar.wml
index 37ed449d7cc..68f1f378064 100644
--- a/english/template/debian/navbar.wml
+++ b/english/template/debian/navbar.wml
@@ -1,5 +1,4 @@
 #use wml::debian::common_translation
-#use wml::debian::events_common
 #use wml::debian::links.tags
 #use wml::debian::stats_tags
 #use wml::debian::common_tags
diff --git a/english/template/debian/past_event.wml b/english/template/debian/past_event.wml
deleted file mode 100644
index 327a83d8263..00000000000
--- a/english/template/debian/past_event.wml
+++ /dev/null
@@ -1,86 +0,0 @@
-#use wml::debian::events_common
-#use wml::debian::basic title="<pagetitle/>"
-#use wml::debian::languages
-
-{#check_trans#}
-
-<h2><pagetitle/></h2>
-
-<dateinfo/>
-
-	<strong><langwhere/>:</strong>  <where/><br />
-# the URL on the following line is intentionally not marked up so we don't
-# have to worry about it becoming stale
-<: if (length ("<infolink/>")) { :>
-	<strong><langinfo/>:</strong> <infolink/><br />
-<: } :>
-
-<hrline/>
-
-<intro/>
-
-<hrline/>
-
-<h2><debinvolve/></h2>
-
-<involve/>
-
-<: if (qq{<coord>} ne 'none') { :>
-<p><strong><maincoordinator/>:</strong>  <coord/>
-<: } :>
-# there are no files named project-* in events/*/ directories... huh?
-#<table>
-## hmm	<tr><th>Project</th><th>Coordinator</th><th>Description</th></tr>
-#	<tr><projcoordinator/></tr>
-#	<:= get_event_stuff ( '<abbr/>', '0', '$(ENGLISHDIR)/events/<year/>', 'project-\w+' ) :>
-#</table>
-#
-#<hrline>
-
-# there are no files named news-* in events/*/ directories... huh?
-#<h2><latestnews/></h2>
-#
-#<:= get_event_stuff ( '<abbr/>', '0', '$(ENGLISHDIR)/events/<year/>', 'news-\d+\w*' ) :>
-#
-#<hrline/>
-
-<:
-  if (open (PAGE, "$WML_SRC_FILENAME")) {
-    $go = 0;
-    $use = 0;
-<protect pass=2>
-    while (<PAGE>) {
-      next until ($use || /^#use wml::debian::past_event/);
-      $use = 1;
-      next if (/^#/ || /^\s*$/);
-      $go =1;
-    }
-</protect>
-    close (PAGE);
-  } else {
-    $go = 1;
-  }
-
-  if ($go) {
-:>
-
-<define-tag report endtag=required whitespace=delete>
-<preserve href />
-<set-var %attributes />
-  <a href="<get-var href />">%body</a>
-<restore href />
-</define-tag>
-
-<h2><relatedlinks/></h2>
-
-{#mainbody#}
-
-<: } :>
-
-{#pre_footer#:
-<hrlinehidden/>
-
-<:= languages_footer() :>
-:#pre_footer#}
-
-{#mainbody#: