2026-07-23 18:02:18 +00:00 · 2007-01-29 12:10:46 +00:00
parent 64e81bd24b
commit 7180919b31
6 changed files with 521 additions and 0 deletions
@@ -0,0 +1,107 @@
+<?php
+/**
+ * Changes:	23.10.2004: Anpassung an neues DB-Schema (WM)
+ */
+	include('../../config.inc.php');
+	include('../../../include/functions.inc.php');
+	include('../../../include/globals.inc.php');
+	
+	if (!$conn = @pg_pconnect(CONN_STRING))
+	   	die("Es konnte keine Verbindung zum Server aufgebaut werden.");
+	if(!($result_stg=pg_exec($conn, "SELECT studiengang_kz, bezeichnung, kurzbz FROM tbl_studiengang ORDER BY kurzbz ASC")))
+		die(pg_errormessage($conn));
+	$num_rows=pg_numrows($result_stg);
+?>
+<HTML>
+<HEAD>
+<TITLE>Mailinglisten</TITLE>
+<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+<LINK rel="stylesheet" href="../../../skin/vilesci.css" type="text/css">
+</HEAD>
+
+<BODY class="background_main">
+<H3>MailingListen </H3>
+
+
+<?php
+	$crlf="\n";
+	for ($i=0; $i<$num_rows; $i++)
+	{
+		$row=pg_fetch_object($result_stg, $i);
+     	$stg_id=$row->studiengang_kz;
+		$stg_kzbz=$row->kurzbz;
+		$sql_query="SELECT * FROM tbl_mailgrp WHERE studiengang_kz=$stg_id ORDER BY mailgrp_kurzbz";
+		//echo $sql_query;
+		if(!($result_mg=pg_exec($conn, $sql_query)))
+			die(pg_errormessage($conn));
+		$nr_mg=pg_numrows($result_mg);
+
+		// Mailgroups
+		for  ($j=0; $j<$nr_mg; $j++)
+		{
+			$row_mg=pg_fetch_object($result_mg, $j);
+			$mg_kurzbz=$row_mg->mailgrp_kurzbz;
+			$sql_query='SELECT uid, nachname, vornamen '.
+				       'FROM tbl_person as p join tbl_personmailgrp using(uid) '.
+				       'WHERE tbl_personmailgrp.mailgrp_kurzbz=\''.$mg_kurzbz.'\' '."AND p.uid NOT LIKE '\\\\_%'".
+					   'ORDER BY nachname';
+			//echo $sql_query;
+			if(!($result_person=pg_exec($conn, $sql_query)))
+				die(pg_errormessage($conn));
+
+			// File Operations
+			$name=$mg_kurzbz.'.txt';
+			$name=strtolower($name);
+			$fp=fopen('../../../../mlists/'.$name,"w");
+			//$fp=fopen('../../../../mlists/'.$name,"w");
+			
+			$nr_person=pg_numrows($result_person);
+			for  ($p=0; $p<$nr_person; $p++)
+			{
+				$row=pg_fetch_object($result_person, $p);
+				fwrite($fp, '#'.$row->nachname.' '.$row->vornamen.$crlf.$row->uid.$crlf);
+			}
+			fclose($fp);
+			echo $name.' created<br>';
+			flush();
+		}
+	}
+	
+	//Zusammenbauen der Studiengaenge die keine Alias Adressen bekommen
+	$noalias_kz='';
+	foreach($noalias as $var)
+	{
+		if($noalias_kz!='')
+			$noalias_kz.=',';
+		$noalias_kz.=$var;
+	}
+	
+	//$qry = "SELECT vornamen, nachname, uid, alias FROM tbl_person where alias<>'' ORDER BY nachname, vornamen";
+	$qry = "SELECT vornamen, nachname, uid, alias FROM tbl_person LEFT JOIN tbl_student using(uid) 
+	        WHERE alias<>'' AND (studiengang_kz NOT IN($noalias_kz) OR studiengang_kz is null) 
+	        ORDER BY nachname, vornamen";
+	
+	if($result = pg_query($conn, $qry))
+	{
+		$fp=fopen('../../../../mlists/tw_alias.txt',"w");
+		while($row=pg_fetch_object($result))
+		{
+			fwrite($fp,"# ".$row->nachname." ".$row->vornamen.$crlf);
+			fwrite($fp,$row->alias.": ".$row->uid.$crlf);			
+		}
+		fclose($fp);
+		echo 'tw_alias.txt created<br>';
+	}
+	else
+	{
+		echo 'tw_alias.txt failed<br>';
+	}
+    
+?>
+<P><BR>
+  Die Mailinglisten wurden erstellt. <BR>
+  Sie k&ouml;nnen nun die erstellten Datein auf den Mail-Server kopieren (<A href="mlists_copy.php">Copy
+  Lists</A>).</P>
+<P><A href="index.html" class="linkblue">&lt;&lt; Zur&uuml;ck</A></P>
+</BODY>
+</HTML>