/\n/g; + $area =~ s/&(?:#160|nbsp);/ /g; + + # Rueckgabe + \$area; +} + +################################ +# sub message_field +# +# HTML eines Postingtextes +# erzeugen +################################ + +sub message_field ($$) { + my $posting = ${+shift}; + my $params = shift; + $params = {} unless (defined $params); + + # ================ + # Postingtext + # ================ + my $qchar = $params -> {quoteChars}; + + if ($params -> {quoting}) { # Quotes bekommen eine extra Klasse? + # ueberfluessige Abstaende entfernen, + # sie werden eh wieder auseinandergezogen... + $posting =~ s/(\177(?:[^<]|<(?!br>))*
)
(?=\177)/$1/g; + $posting =~ s/(\177(?:[^<]|<(?!br>))*
)
(?!\177)/$1/g; + + my ($last_level, $level, $line, $q, @new)=(-1,0); + + foreach $line (split (/
/,$posting)) { # Zeilenweise gucken, + ($q) = ($line =~ /^(\177+)/g); # wieviele + $level = length ($q); # Quotingchars am Anfang stehen + if ($level != $last_level) { # wenn sich was verandert... + # ... dann TU ETWAS! + + if ($last_level <= 0 and $level > 0) {$last_level = $level; $line='
'.$params -> {startCite} . $line} + elsif ($level > 0) {$last_level = $level; $line=$params -> {endCite} . '
' . $params -> {startCite} . $line} + elsif ($level == 0 and $last_level > 0) {$last_level = -1; $line = $params -> {endCite} . '
' . $line}} + + push @new,$line} + + $new[0] =~ s/^
//; + $posting = (join '
',@new) . (($last_level > 0)?$params -> {endCite}:'');} + + $posting =~ s/\177/$qchar/g; # normalisierte Quotes in Chars umsetzen + + # Rueckgabe + \$posting; +} + + +# ==================================================== +# Modulinitialisierung +# ==================================================== + +# making require happy +1; + +# ==================================================== +# end of Encode::Posting +# ==================================================== \ No newline at end of file diff --git a/selfforum-cgi/shared/Id.pm b/selfforum-cgi/shared/Id.pm new file mode 100644 index 0000000..33c0c83 --- /dev/null +++ b/selfforum-cgi/shared/Id.pm @@ -0,0 +1,73 @@ +# Id.pm + +############################################## +# # +# Autor: n.d.p. / nd@o3media.de # +# # +# Letze Aenderung: n.d.p. / 2001-01-28 # +# # +# ========================================== # +# # +# Funktion: # +# # +# Bereitsstellen einer einmaligen ID # +# # +############################################## + +use strict; + +package Id; +require 5.000; + +##################### +# Funktionsexport +##################### + +require Exporter; +@Id::ISA = qw(Exporter); +@Id::EXPORT = qw(unique_id); + +use vars qw(@table); + +########################################## +# EXPORT # +# # +# sub &unique_id # +# # +# Funktion: # +# Rueckgabe der ID # +########################################## + +sub unique_id { + my $id; + + my $ip=$ENV{'REMOTE_ADDR'}; + my $time=time(); + my $port=$ENV{'REMOTE_PORT'}; + my $rand=int(rand(time())); + $ip = hex(join ('',map {sprintf ('%02X',$_)} split (/\./,$ip))); + + join '',map {to_base64 ($_)} (substr ($time,-9), $port, $ip, $rand, $$); +} + +sub to_base64 ($) { + my $x = shift; + my $y = $table[$x % 64]; + + while ($x = int ($x/64)) {$y = $table[$x % 64] . $y} + + # Rueckgabe + $y; +} + +BEGIN { + srand(time()^$$); + @table = ('a'..'z','-','0'..'9','A'..'Z','_'); +} + +# making 'require' happy +1; + +##################### +# end of Id +##################### \ No newline at end of file diff --git a/selfforum-cgi/shared/Lock.pm b/selfforum-cgi/shared/Lock.pm new file mode 100644 index 0000000..1d2c929 --- /dev/null +++ b/selfforum-cgi/shared/Lock.pm @@ -0,0 +1,608 @@ +# Lock.pm + +# ==================================================== +# Autor: n.d.p. / 2001-01-04 +# lm : n.d.p. / 2000-01-05 +# ==================================================== +# Funktion: +# Sperren einer Datei +# ==================================================== + +use strict; + +package Lock; + +use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS $Timeout $violentTimeout $masterTimeout $iAmMaster); + +# ==================================================== +# Funktionsexport +# ==================================================== + +require Exporter; +@ISA = qw(Exporter); + +@EXPORT_OK = qw(lock_file unlock_file write_lock_file write_unlock_file + violent_unlock_file set_master_lock release_file); + +%EXPORT_TAGS = (READ => [qw(lock_file unlock_file violent_unlock_file)], + WRITE => [qw(write_lock_file write_unlock_file violent_unlock_file)], + ALL => [qw(lock_file unlock_file write_lock_file write_unlock_file + violent_unlock_file set_master_lock release_file)]); + +# ==================================================== +# Windows section (no symlinks) +# ==================================================== + +################################ +# sub w_lock_file +# +# Schreibsperre setzen +################################ + +sub w_lock_file ($;$) { + my $filename=shift; + my ($timeout)=(shift (@_) or $Timeout); + my $i; + + if (-f &masterlockfile($filename)) { + + for ($i=0 ; $i<=$timeout ; $i++) { + # Referenzzaehler um eins erhoehen + &set_ref($filename,1,$timeout) and return 1; + sleep (1);}} + + else { + # Mastersperre + return undef;} + + 0; # Mist +} + +################################ +# sub w_unlock_file +# +# Schreibsperre aufheben +################################ + +sub w_unlock_file ($;$) { + my $filename=shift; + my ($timeout)=(shift (@_) or $Timeout); + + if (-f &masterlockfile($filename)) { + # Referenzzaehler um eins erniedrigen + &set_ref($filename,-1,$timeout) and return 1;} + + 0; # Mist +} + +################################ +# sub w_write_lock_file +# +# Lese- und Schreibsperre +# setzen +################################ + +sub w_write_lock_file ($;$) { + my $filename=shift; + my ($timeout)=(shift (@_) or $Timeout); + + if (-f &masterlockfile($filename) or $iAmMaster) { + # bevorstehenden Schreibzugriff anmelden + &simple_lock ($filename,$timeout) or return 0; + + my $i; + for ($i=0 ; $i<=$timeout ; $i++) { + # Referenzdatei sperren + &simple_lock (&reffile($filename),$timeout) or (return &simple_unlock($filename,$timeout) and 0); + + # Referenzzaehler = 0 ? => okay + return 1 if (&get_ref ($filename) == 0); + + # Referenzdatei wieder freigeben + &simple_unlock (&reffile($filename),$timeout) or (return &simple_unlock($filename,$timeout) and 0); + sleep(1);} + + &simple_unlock ($filename);} + + else { + # Mastersperre gesetzt + return undef;} + + 0; # Mist +} + +################################ +# sub w_write_unlock_file +# +# Lese- und Schreibsperre +# aufheben +################################ + +sub w_write_unlock_file ($;$) { + my $filename=shift; + my ($timeout)=(shift (@_) or $Timeout); + + if (-f &masterlockfile($filename) or $iAmMaster) { + &simple_unlock (&reffile($filename),$timeout) or return 0; # Referenzdatei freigeben + &simple_unlock ($filename,$timeout) or return 0;} # Lesesperre aufheben + + 1; # jawoll! +} + +################################ +# sub w_violent_unlock_file +# +# Sperre brutal aufheben +################################ + +sub w_violent_unlock_file ($) { + my $filename=shift; + + if (-f &masterlockfile($filename)) { + + # Zeit der letzten Modifikation feststellen + # und abbrechen, wenn meine Zeit noch nicht gekommen ist + my $reffile; + if (-f ($reffile = $filename) or -f ($reffile = &lockfile($filename))) { + my $time = (stat $reffile)[9]; + return if ((time - $time) < $violentTimeout);} + + write_lock_file ($filename,1); # letzter Versuch, exklusiven Zugriff zu bekommen + unlink (&reffile($filename)); # Referenzzaehler auf null + simple_unlock (&reffile($filename)); # Referenzdatei freigeben + simple_unlock ($filename);} # Datei freigeben (Lesesperre aufheben) +} + +################################ +# sub w_set_master_lock +# +# Mastersperre setzen +################################ + +sub w_set_master_lock ($;$) { + my $filename=shift; + my $timeout=(shift @_ or $masterTimeout); + + # exklusiven Zugriff erlangen...oder abbrechen + return 0 unless (&write_lock_file ($filename,$timeout)); + + # Mastersperre setzen und Erfolg melden + unlink &masterlockfile($filename) and return 1; + + 0; # Mist +} + +################################ +# sub w_release_file +# +# Alle Sperren inkl. Master- +# sperre aufheben +################################ + +sub w_release_file ($) { + my $filename=shift; + + unlink (&reffile($filename)); # Referenzzaehler auf null + return 0 if (-f &reffile($filename)); # wirklich? + return 0 unless (simple_unlock (&reffile($filename))); # Referenzzaehler freigeben + return 0 unless (&simple_unlock ($filename)); # Datei selbst freigeben (Lesesperre) + return 0 unless (&simple_unlock (&masterfile($filename))); # Mastersperre aufheben + + 1; # jup +} + +# ==================================================== +# *n*x section (symlinks possible) +# ==================================================== + +################################ +# sub x_lock_file +# +# Schreibsperre setzen +################################ + +sub x_lock_file ($;$) { + my $filename=shift; + my ($timeout)=(shift (@_) or $Timeout); + my $i; + + unless (-l &masterlockfile($filename)) { + + for ($i=0 ; $i<=$timeout ; $i++) { + # Referenzzaehler um eins erhoehen + &set_ref($filename,1,$timeout) and return 1; + sleep (1);}} + + else { + # Mastersperre + return undef;} + + 0; # Mist +} + +################################ +# sub x_unlock_file +# +# Schreibsperre aufheben +################################ + +sub x_unlock_file ($;$) { + my $filename=shift; + my ($timeout)=(shift (@_) or $Timeout); + + unless (-l &masterlockfile($filename)) { + # Referenzzaehler um eins erniedrigen + &set_ref($filename,-1,$timeout) and return 1;} + + 0; # Mist +} + +################################ +# sub x_write_lock_file +# +# Lese- und Schreibsperre +# setzen +################################ + +sub x_write_lock_file ($;$) { + my $filename=shift; + my ($timeout)=(shift (@_) or $Timeout); + + unless (-l &masterlockfile($filename) and not $iAmMaster) { + # bevorstehenden Schreibzugriff anmelden + &simple_lock ($filename,$timeout) or return 0; + + my $i; + for ($i=0 ; $i<=$timeout ; $i++) { + # Referenzdatei sperren + &simple_lock (&reffile($filename),$timeout) or (return &simple_unlock($filename,$timeout) and 0); + + # Referenzzaehler = 0 ? => okay + return 1 if (&get_ref ($filename) == 0); + + # Referenzdatei wieder freigeben + &simple_unlock (&reffile($filename),$timeout) or (return &simple_unlock($filename,$timeout) and 0); + sleep(1);} + + &simple_unlock ($filename);} + + else { + # Mastersperre gesetzt + return undef;} + + 0; # Mist +} + +################################ +# sub x_write_unlock_file +# +# Lese- und Schreibsperre +# aufheben +################################ + +sub x_write_unlock_file ($;$) { + my $filename=shift; + my ($timeout)=(shift (@_) or $Timeout); + + unless (-l &masterlockfile($filename) and not $iAmMaster) { + &simple_unlock (&reffile($filename),$timeout) or return 0; # Referenzdatei freigeben + &simple_unlock ($filename,$timeout) or return 0;} # Lesesperre aufheben + + 1; # jawoll! +} + +################################ +# sub x_violent_unlock_file +# +# Sperre brutal aufheben +################################ + +sub x_violent_unlock_file ($) { + my $filename=shift; + + unless (-l &masterlockfile($filename)) { + + # Zeit der letzten Modifikation feststellen + # und abbrechen, wenn meine Zeit noch nicht gekommen ist + my ($reffile,$time); + + if (-f ($reffile = $filename)) { + $time = (stat $reffile)[9];} + + elsif (-l ($reffile = &lockfile($filename))) { + $time = (lstat $reffile)[9];} + + if ($reffile) { + return if ((time - $time) < $violentTimeout);} + + write_lock_file ($filename,1); # letzter Versuch, exklusiven Zugriff zu bekommen + unlink (&reffile($filename)); # Referenzzaehler auf null + simple_unlock (&reffile($filename)); # Referenzdatei freigeben + simple_unlock ($filename);} # Datei freigeben (Lesesperre aufheben) +} + +################################ +# sub x_set_master_lock +# +# Mastersperre setzen +################################ + +sub x_set_master_lock ($;$) { + my $filename=shift; + my $timeout=(shift @_ or $masterTimeout); + + # exklusiven Zugriff erlangen...oder abbrechen + return 0 unless (&write_lock_file ($filename,$timeout)); + + # Mastersperre setzen und Erfolg melden + symlink $filename, &masterlockfile($filename) and return 1; + + 0; # Mist +} + +################################ +# sub x_release_file +# +# Alle Sperren inkl. Master- +# sperre aufheben +################################ + +sub x_release_file ($) { + my $filename=shift; + + unlink (&reffile($filename)); # Referenzzaehler auf null + return 0 if (-f &reffile($filename)); # wirklich? + return 0 unless (simple_unlock (&reffile($filename))); # Referenzzaehler freigeben + return 0 unless (&simple_unlock ($filename)); # Datei selbst freigeben (Lesesperre) + return 0 unless (&simple_unlock (&masterfile($filename))); # Mastersperre aufheben + + 1; # jup +} + +# ==================================================== +# private subs +# ==================================================== + +################################ +# Dateinamen +################################ + +sub reffile ($) { + "$_[0].lock.ref"; +} +sub lockfile ($) { + "$_[0].lock"; +} +sub masterlockfile ($) { + &lockfile(&masterfile($_[0])); +} +sub masterfile ($) { + "$_[0].master"; +} + +################################ +# einfaches Sperren/Entsperren +# Windows +# +# (Lockdatei loeschen) +################################ + +sub w_simple_lock ($;$) { + my $filename=shift; + my ($timeout)=(shift (@_) or $Timeout); + my $lockfile=&lockfile($filename); + + my $i; + for ($i=$timeout; $i>=0; $i--) { + unlink("$lockfile") and return 1; + sleep(1);} + + 0; # Mist +} + +sub w_simple_unlock ($) { + my $filename=shift; + my $lockfile=&lockfile($filename); + my $flag=1; + local *LF; + + open(LF, ">$lockfile") or $flag=0; + close(LF) or $flag=0; + + # Rueckgabe + $flag; +} + +################################ +# einfaches Sperren/Entsperren +# *n*x +# +# (symlink setzen) +################################ + +sub x_simple_lock ($;$) { + my $filename=shift; + my ($timeout)=(shift (@_) or $Timeout); + my $lockfile=&lockfile($filename); + + my $i; + for ($i=$timeout; $i>=0; $i--) { + symlink $filename,$lockfile and return 1; + sleep(1);} + + 0; # Mist +} + +sub x_simple_unlock ($) { + my $filename=shift; + + unlink (&lockfile($filename)) and return 1; + + 0; # hmmm... +} + +################################ +# sub w_set_ref +# Windows +# +# Referenzzaehler um $_[1] +# erhoehen +# (kann auch negativ sein...) +################################ + +sub w_set_ref ($$$) { + my ($filename,$z)=@_; + my $timeout=(shift @_ or $Timeout); + my $old; + my $reffile=&reffile($filename); + local *REF; + + + # runterzaehlen - ja, neue Leseversuche - nein + if ($z > 0) { + return 0 unless(-e &lockfile($filename));} + + # Referenzdatei locken + return 0 unless(&simple_lock ($reffile,$timeout)); + + # Referenzdatei auslesen + unless (open REF,"<$reffile") { + $old=0;} + else { + $old=; + chomp $old; + close REF or return 0;} + + # Neuen Referenzwert schreiben + $old+=$z; + $old=0 if ($old < 0); + open REF,">$reffile" or return 0; + print REF $old; + close REF or return 0; + + # wieder entsperren + return 0 unless(&simple_unlock($reffile)); + + 1; +} + +################################ +# sub x_set_ref +# *n*x +# +# Referenzzaehler um $_[1] +# erhoehen +# (kann auch negativ sein...) +################################ + +sub x_set_ref ($$$) { + my ($filename,$z)=@_; + my $timeout=(shift @_ or $Timeout); + my $old; + my $reffile=&reffile($filename); + local *REF; + + + # runterzaehlen - ja, neue Leseversuche - nein + if ($z > 0) { + return 0 if(-l &lockfile($filename));} + + # Referenzdatei locken + return 0 unless(&simple_lock ($reffile,$timeout)); + + # Referenzdatei auslesen + unless (open REF,"<$reffile") { + $old=0;} + else { + $old=; + chomp $old; + close REF or return 0;} + + # Neuen Referenzwert schreiben + $old += $z; + $old = 0 if ($old < 0); + open REF,">$reffile" or return 0; + print REF $old; + close REF or return 0; + + # wieder entsperren + return 0 unless(&simple_unlock($reffile)); + + 1; +} + +################################ +# sub get_ref +# +# Referenzzaehler auslesen +# +# Das Locking muss an +# anderer Stelle ausgefuehrt +# werden! +################################ + +sub get_ref ($$) { + my $filename=shift; + my $reffile=&reffile($filename); + my $old; + local *REF; + + unless (open REF,"<$reffile") { + $old=0;} + else { + $old=; + chomp $old; + close REF or return 0;} + + # Rueckgabe + $old; +} + +# ==================================================== +# Modulinitialisierung +# ==================================================== + +BEGIN { + # Globale Variablen (Zeiten in Sekunden) + $Timeout = 10; # normaler Timeout + $violentTimeout = 600; # zum gewaltsamen Entsperren (10 Minuten) + $masterTimeout = 20; # fuer die Mastersperre + + $iAmMaster = 0; # erstmal bin ich kein Master :-) + + # wirkliche Funktionen ihren Bezeichnern zuweisen + # (perldoc -f symlink) + + if ( eval {local $SIG{__DIE__}; symlink('',''); 1 } ) { + *lock_file = \&x_lock_file; + *unlock_file = \&x_unlock_file; + *write_lock_file = \&x_write_lock_file; + *write_unlock_file = \&x_write_unlock_file; + *violent_unlock_file = \&x_violent_unlock_file; + *set_master_lock = \&x_set_master_lock; + *release_file = \&x_release_file; + + *simple_lock = \&x_simple_lock; + *simple_unlock = \&x_simple_unlock; + *set_ref = \&x_set_ref;} + + else { + *lock_file = \&w_lock_file; + *unlock_file = \&w_unlock_file; + *write_lock_file = \&w_write_lock_file; + *write_unlock_file = \&w_write_unlock_file; + *violent_unlock_file = \&w_violent_unlock_file; + *set_master_lock = \&w_set_master_lock; + *release_file = \&w_release_file; + + *simple_lock = \&w_simple_lock; + *simple_unlock = \&w_simple_unlock; + *set_ref = \&w_set_ref;} +} + +# making require happy +1; + +# ==================================================== +# end of Lock +# ==================================================== \ No newline at end of file diff --git a/selfforum-cgi/shared/Mail.pm b/selfforum-cgi/shared/Mail.pm new file mode 100644 index 0000000..e46a81c --- /dev/null +++ b/selfforum-cgi/shared/Mail.pm @@ -0,0 +1,294 @@ +# Mail.pm + +############################################## +# # +# Autor: n.d.p. nd@o3media.de # +# # +# Letze Aenderung: n.d.p. / 2001-01-03 # +# # +# ========================================== # +# # +# Funktion: # +# ganz simples Formatieren und Senden # +# einer Mail im text/plain, qp-Format # +# # +############################################## + +use strict; + +package Mail; + +use vars qw($mailbox $mailprog @ISA @EXPORT); + +# =================== +# Funktionsexport +# =================== + +require Exporter; +@ISA = qw(Exporter); +@EXPORT = qw(is_mail_address send_mail); + +######################################## +# EXPORT +# sub is_mail_address +# +# Funktion: +# Ueberpruefen der Syntax einer +# Email-Adresse +# +# Rueckgabe +# true/false +######################################## + +sub is_mail_address ($) { + return ($_[0] =~ /$mailbox/); +} + +######################################## +# EXPORT +# sub send_mail +# +# Funktion: +# Senden der Nachricht +# ueber open-print-close +# $Mail::mailprog enthaelt +# den vollstaendigen string fuer +# open, dass heisst, es kann +# auch ein Dateiname sein. +# +# Rueckgabe: +# true/false +######################################## + +sub send_mail { + my $param=shift; + local *MAIL; + + open MAIL,$mailprog or return 0; + print MAIL &as_string ($param); + close MAIL and return 1; + + # Hier muss irgendwas schiefgelaufen sein + 0; +} + +########################################## +# PRIVAT +# sub as_string +# +# Funktion: +# Bereitstellung der gesamten Mail +# als String. +# +# Rueckgabe: +# String +########################################## + +sub as_string { + my $param=shift; + + my $header=&header_as_string ($param); + my $body=&body_as_string ($param); + + # Rueckgabe + "$header\n$body\n"; +} + +########################################## +# PRIVAT +# sub body_as_string +# +# Funktion: +# Bereitstellung des Bodys +# als (qp-codierten) String. +# +# Rueckgabe: +# String +########################################## + +sub body_as_string { + my $param=shift; + + &encode_qp($param->{body}); +} + +########################################## +# PRIVAT +# sub header_as_string +# +# Funktion: +# Bereitstellung des Headers +# als String. +# +# Rueckgabe: +# String +########################################## + +sub header_as_string { + my $param=shift; + + my $string="Content-Disposition: inline\n"; + $string.="MIME-Version: 1.0\n"; + $string.="Content-Transfer-Encoding: quoted-printable\n"; + $string.="Content-Type: text/plain\n"; + $string.="Date: ".&rfc822_date(time)."\n"; + $string.="From: ".$param->{'from'}."\n"; + $string.=&get_list('To',$param->{'to'}); + $string.=&get_list('Cc',$param->{'cc'}); + $string.=&get_list('Bcc',$param->{'bcc'}); + $string.="Subject: ".encode_qp($param->{'subject'})."\n"; + + # Rueckgabe + $string; +} + +####################################### +# PRIVAT +# sub encode_qp +# +# C&P aus dem Modul MIME::QuotedPrint +# Thanx for that +####################################### + +sub encode_qp ($) +{ + my $res = shift; + $res =~ s/([^ \t\n!-<>-~])/sprintf("=%02X", ord($1))/eg; # rule #2,#3 + $res =~ s/([ \t]+)$/ + join('', map { sprintf("=%02X", ord($_)) } + split('', $1) + )/egm; # rule #3 (encode whitespace at eol) + + # rule #5 (lines must be shorter than 76 chars, but we are not allowed + # to break =XX escapes. This makes things complicated :-( ) + my $brokenlines = ""; + $brokenlines .= "$1=\n" + while $res =~ s/(.*?^[^\n]{73} (?: + [^=\n]{2} (?! [^=\n]{0,1} $) # 75 not followed by .?\n + |[^=\n] (?! [^=\n]{0,2} $) # 74 not followed by .?.?\n + | (?! [^=\n]{0,3} $) # 73 not followed by .?.?.?\n + ))//xsm; + + "$brokenlines$res"; +} + +############################################## +# PRIVAT +# sub get_list +# +# Funktion: +# Aufbereitung einer Liste oder eines +# Strings fuer den Header (To, Cc, Bcc) +# +# Rueckgabe: +# Ergebnis oder nichts +############################################## + +sub get_list ($$) { + my ($start,$list)=splice @_; + my $string=""; + + return "" unless (length($list)); + if (ref($list)) { + return "" unless (@$list); + foreach (@$list) { + $string.="$start: $_\n";}} + else { + $string="$start: $list\n";} + + # Rueckgabe + $string; +} + +############################################## +# PRIVAT +# sub rfc822_date +# +# Funktion: +# Bereitstellung eines RFC-konformen +# Datumstrings +# +# Rueckgabe: +# Datumstring +############################################## + +sub rfc822_date ($) { + my ($sek, $min, $std, $mtag, $mon, $jahr, $wtag) = gmtime (+shift); + + sprintf ('%s, %02d %s %04d %02d:%02d:%02d GMT', + (qw(Sun Mon Tue Wed Thu Fri Sat))[$wtag], + $mtag, + (qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec))[$mon], + $jahr+1900, $std, $min, $sek); +} + +############################################## +# Modulinitialisierung +# BEGIN +# +# Funktion: +# Bereitstellung des Regexps und des +# Mailprogs +############################################## + +BEGIN { + # Standard-Mailprogramm + + # Dieser String wird so, wie er ist, an die open-Anweisung geschickt, + # -t = tainted(?),der Header (=alles bis zur ersten Leerzeile) + # wird nach To:, Cc: und evtl. Bcc: abgesucht. + # -oi = damit wird verhindert, dass sendmail, ein Zeile, wo nur ein + # Punkt drinsteht, als Mailende erkennt( waere Standard ). + # =================================================================== + + $mailprog = '|/usr/lib/sendmail -t -oi'; + + # Thanx to J. Friedl for this regex: + + my ($address,$route_addr,$phrase,$addr_spec,$X,$phrase_char,$quoted_str,$comment,$word,$phrase_ctrl,$NonASCII, + $CloseBR,$OpenBR,$esc,$route,$domain,$local_part,$Period,$sub_domain,$domain_lit,$domain_ref,$quoted_pair, + $dtext,$atom,$qtext,$atom_char,$ctrl,$space,$tab,$CloseParen,$ctext,$Cnested,$OpenParen,$CRlist); + + $esc = '\\\\'; + $Period = '\.'; + $space = '\040'; + $tab = '\t'; + $OpenBR = '\['; + $CloseBR = '\]'; + $OpenParen = '\('; + $CloseParen = '\)'; + $NonASCII = '\x80-\xff'; + $ctrl = '\000-\037'; + $CRlist = '\n\015'; + $qtext = qq/[^$esc$NonASCII$CRlist\"]/; + $dtext = qq/[^$esc$NonASCII$CRlist$OpenBR$CloseBR]/; + $quoted_pair = qq< $esc [^$NonASCII] >; + $ctext = qq< [^$esc$NonASCII$CRlist()] >; + $Cnested = qq< $OpenParen $ctext* (?: $quoted_pair $ctext* )* $CloseParen >; + $comment = qq< $OpenParen $ctext* (?: (?: $quoted_pair | $Cnested ) $ctext* )* $CloseParen >; + $X = qq< [$space$tab]* (?: $comment [$space$tab]* )* >; + $atom_char = qq/[^($space)<>\@,;:\".$esc$OpenBR$CloseBR$ctrl$NonASCII]/; + $atom = qq< $atom_char+ (?!$atom_char) >; + $quoted_str = qq< \" $qtext * (?: $quoted_pair $qtext * )* \" >; + $word = qq< (?: $atom | $quoted_str ) >; + $domain_ref = $atom; + $domain_lit = qq< $OpenBR (?: $dtext | $quoted_pair )* $CloseBR >; + $sub_domain = qq< (?: $domain_ref | $domain_lit ) $X >; + $domain = qq< $sub_domain (?: $Period $X $sub_domain )* >; + $route = qq< \@ $X $domain (?: , $X \@ $X $domain )* : $X >; + $local_part = qq< $word $X (?: $Period $X $word $X )* >; + $addr_spec = qq< $local_part \@ $X $domain >; + $route_addr = qq[ < $X (?: $route )? $addr_spec > ]; + $phrase_ctrl = '\000-\010\012-\037'; + $phrase_char = qq/[^()<>\@,;:\".$esc$OpenBR$CloseBR$NonASCII$phrase_ctrl]/; + $phrase = qq< $word $phrase_char * (?: (?: $comment | $quoted_str ) $phrase_char * )* >; + $mailbox = qq< $X (?: $addr_spec | $phrase $route_addr ) >; + $mailbox = qr ~^$mailbox$~x; +} + +# making 'require' happy +1; + +##################### +# end of Mail +##################### \ No newline at end of file diff --git a/selfforum-cgi/shared/Posting/Write.pm b/selfforum-cgi/shared/Posting/Write.pm new file mode 100644 index 0000000..d2444df --- /dev/null +++ b/selfforum-cgi/shared/Posting/Write.pm @@ -0,0 +1,280 @@ +# Posting/Write.pm + +# ==================================================== +# Autor: n.d.p. / 2001-01-29 +# lm : n.d.p. / 2001-01-29 +# ==================================================== +# Funktion: +# Speicherung eines Postings +# ==================================================== + +use strict; + +package Posting::Write; + +use vars qw(@ISA @EXPORT); + +# ==================================================== +# Funktionsexport +# ==================================================== + +require Exporter; +@ISA = qw(Exporter); +@EXPORT = qw(write_posting); + +use Encode::Plain; $Encode::Plain::utf8 = 1; +use Encode::Posting; +use Lock qw(:WRITE release_file); +use Posting::_lib qw(get_message_node get_message_header create_forum_xml_string save_file); + +use XML::DOM; + +################################ +# sub write_posting +# +# Neues Posting speichern +################################ + +sub write_posting ($) { + my $param = shift; + my ($thread,$tid); + my $mid = 'm'.($param -> {lastMessage} + 1); + + my $pars = {quoteChars => $param -> {quoteChars}, + messages => $param -> {messages}}; + + my %error = (threadWrite => '1 could not write thread file', + forumWrite => '2 could not write forum file', + threadFile => '3 could not load thread file', + noParent => '4 could not find parent message'); + + # neue Nachricht + unless ($param -> {parentMessage}) { + $tid = 't'.($param -> {lastThread} + 1); + $thread = create_new_thread ({msg => $mid, + ip => $param -> {ip}, + name => $param -> {author}, + email => $param -> {email}, + home => $param -> {homepage}, + image => $param -> {image}, + category => $param -> {category}, + subject => $param -> {subject}, + time => $param -> {time}, + dtd => $param -> {dtd}, + thread => $tid, + body => $param -> {body}, + pars => $pars}); + + save_file ($param -> {messagePath}.$tid.'.xml',\($thread -> toString)) or return $error{threadWrite}; + + # Thread eintragen + $param -> {parsedThreads} + -> {$param -> {lastThread} + 1} = [{mid => $param -> {lastMessage} + 1, + unid => $param -> {uniqueID}, + name => plain($param -> {author}), + cat => plain(length($param -> {category})?$param->{category}:''), + subject => plain($param -> {subject}), + time => plain($param -> {time})}]; + + my $forum = create_forum_xml_string ($param -> {parsedThreads}, + {dtd => $param -> {dtd}, + lastMessage => $mid, + lastThread => $tid}); + + save_file ($param -> {forumFile}, $forum) or return $error{forumWrite}; + release_file ($param -> {messagePath}.$tid.'.xml'); + return (0, $thread, $mid);} + + # Reply + else { + $tid = 't'.($param -> {thread}); + my $tfile = $param -> {messagePath}.$tid.'.xml'; + my $xml; + + unless (write_lock_file ($tfile)) { + violent_unlock_file ($tfile); + return $error{threadFile};} + + else { + $xml = eval {local $SIG{__DIE__}; new XML::DOM::Parser (KeepCDATA => 1) -> parsefile ($tfile);}; + + if ($@) { + violent_unlock_file ($tfile) unless (write_unlock_file ($tfile)); + return $error{threadFile};} + + my $mnode = get_message_node ($xml, $tid, 'm'.$param -> {parentMessage}); + + unless (defined $mnode) { + violent_unlock_file ($tfile) unless (write_unlock_file ($tfile)); + return $error{noParent};} + + my $pheader = get_message_header ($mnode); + + my $message = create_message ($xml, + {msg => $mid, + ip => $param -> {ip}, + name => $param -> {author}, + email => $param -> {email}, + home => $param -> {homepage}, + image => $param -> {image}, + category => length($param -> {category})?$param -> {category}:$pheader -> {category}, + subject => length($param -> {subject})?$param -> {subject}:$pheader -> {subject}, + time => $param -> {time}, + pars => $pars}); + + $mnode -> appendChild ($message); + + my $mcontent = $xml -> createElement ('MessageContent'); + $mcontent -> setAttribute ('mid', $mid); + $mcontent -> appendChild ($xml -> createCDATASection (${encoded_body(\($param -> {body}), $pars)})); + + my $content = $xml -> getElementsByTagName ('ContentList', 1) -> item (0); + $content -> appendChild ($mcontent); + + unless (save_file ($tfile, \($xml -> toString))) { + violent_unlock_file ($tfile) unless (write_unlock_file ($tfile)); + return $error{threadWrite};} + + violent_unlock_file ($tfile) unless (write_unlock_file ($tfile)); + + $thread = $xml; + + # Message eintragen + # ACHTUNG! danach kann der Threadbaum nicht mehr fuer die visuelle + # Ausgabe genutzt werden, da die answers nicht angepasst werden + # (und somit nicht mehr stimmen...) + + my $i=1; + my $cat = length($param -> {category})?$param -> {category}:$pheader -> {category}; + my $subj = length($param -> {subject})?$param -> {subject}:$pheader -> {subject}; + + for (@{$param -> {parsedThreads} -> {$param -> {thread}}}) { + if ($_ -> {mid} == $param -> {parentMessage}) { + splice @{$param -> {parsedThreads} -> {$param -> {thread}}},$i,0, + {mid => $param -> {lastMessage} + 1, + unid => $param -> {uniqueID}, + name => plain ($param -> {author}), + cat => plain(length($cat)?$cat:''), + subject => plain(length($subj)?$subj:''), + level => $_ -> {level} + 1, + time => plain ($param -> {time})}; + last;} + $i++;} + + my $forum = create_forum_xml_string ($param -> {parsedThreads}, + {dtd => $param -> {dtd}, + lastMessage => $mid, + lastThread => 't'.$param -> {lastThread}}); + + save_file ($param -> {forumFile}, $forum) or return $error{forumWrite};} + + return (0, $thread, $mid);} +} + +# ==================================================== +# Private Funktionen +# ==================================================== + +sub create_message ($$) { + my ($xml,$par) = @_; + + my $message = $xml -> createElement ('Message'); + $message -> setAttribute ('id', $par -> {msg}); + $message -> setAttribute ('ip', $par -> {ip}); + + # Header erzeugen + my $header = $xml -> createElement ('Header'); + + # alles inside of 'Header' + my $author = $xml -> createElement ('Author'); + my $name = $xml -> createElement ('Name'); + $name -> addText ($par -> {name}); + $author -> appendChild ($name); + + my $email = $xml -> createElement ('Email'); + $email -> addText ($par -> {email}); + $author -> appendChild ($email); + + if (length ($par -> {home})) { + my $home = $xml -> createElement ('HomepageUrl'); + $home -> addText ($par -> {home}); + $author -> appendChild ($home);} + + if (length ($par -> {image})) { + my $image = $xml -> createElement ('ImageUrl'); + $image -> addText ($par -> {image}); + $author -> appendChild ($image);} + + my $category = $xml -> createElement ('Category'); + $category -> addText ($par -> {category}); + + my $subject = $xml -> createElement ('Subject'); + $subject -> addText ($par -> {subject}); + + my $date = $xml -> createElement ('Date'); + $date -> setAttribute ('longSec', $par -> {time}); + + $header -> appendChild ($author); + $header -> appendChild ($category); + $header -> appendChild ($subject); + $header -> appendChild ($date); + $message -> appendChild ($header); + + $message; +} + +sub create_new_thread ($) { + my $par = shift; + + # neues Dokument + my $xml = new XML::DOM::Document; + + # XML-declaration + my $decl = new XML::DOM::XMLDecl; + $decl -> setVersion ('1.0'); + $decl -> setEncoding ('UTF-8'); + $xml -> setXMLDecl ($decl); + + # Doctype + my $dtd = $xml -> createDocumentType ('Forum', $par -> {dtd}, undef, undef); + $xml -> setDoctype ($dtd); + + # Root erzeugen + my $forum = $xml -> createElement ('Forum'); + + # Thread erzeugen + my $thread = $xml -> createElement ('Thread'); + $thread -> setAttribute ('id', $par -> {thread}); + + # Message erzeugen + my $message = create_message ($xml,$par); + + # Contentlist + my $content = $xml -> createElement ('ContentList'); + my $mcontent = $xml -> createElement ('MessageContent'); + $mcontent -> setAttribute ('mid', $par -> {msg}); + $mcontent -> appendChild ($xml -> createCDATASection (${encoded_body(\($par -> {body}), $par -> {pars} )})); + + # die ganzen Nodes verknuepfen + $thread -> appendChild ($message); + $forum -> appendChild ($thread); + + $content -> appendChild ($mcontent); + $forum -> appendChild ($content); + + $xml -> appendChild ($forum); + + # und fertiges Dokument zurueckgeben + $xml; +} + +# ==================================================== +# Modulinitialisierung +# ==================================================== + +# making require happy +1; + +# ==================================================== +# end of Posting::Write +# ==================================================== \ No newline at end of file diff --git a/selfforum-cgi/shared/Posting/_lib.pm b/selfforum-cgi/shared/Posting/_lib.pm new file mode 100644 index 0000000..fea4097 --- /dev/null +++ b/selfforum-cgi/shared/Posting/_lib.pm @@ -0,0 +1,509 @@ +# Posting/_lib.pm + +# ==================================================== +# Autor: n.d.p. / 2001-01-07 +# lm : n.d.p. / 2001-01-08 +# ==================================================== +# Funktion: +# * Schnittstellen fuer den Zugriff auf Messages +# * Zeitdarstellung +# ==================================================== + +use strict; + +package Posting::_lib; + +use vars qw(@ISA @EXPORT_OK); + +use Encode::Plain; $Encode::Plain::utf8 = 1; + +use XML::DOM; + +# ==================================================== +# Funktionsexport +# ==================================================== + +require Exporter; +@ISA = qw(Exporter); +@EXPORT_OK = qw(get_message_header get_message_body get_message_node parse_single_thread + hr_time short_hr_time long_hr_time + get_all_threads + create_forum_xml_string + save_file); + +# ==================================================== +# Zugriff uebers DOM +# ==================================================== + +########################### +# sub get_message_header +# +# Messageheader auslesen +########################### + +sub get_message_header ($) { + my $node = shift; + my %conf; + + my $header = $node -> getElementsByTagName ('Header', 0) -> item (0); + my $author = $header -> getElementsByTagName ('Author', 0) -> item (0); + my $name = $author -> getElementsByTagName ('Name', 0) -> item (0); + my $email = $author -> getElementsByTagName ('Email', 0) -> item (0); + my $home = $author -> getElementsByTagName ('HomepageUrl', 0) -> item (0); + my $image = $author -> getElementsByTagName ('ImageUrl', 0) -> item (0); + my $cat = $header -> getElementsByTagName ('Category', 0) -> item (0); + my $subject = $header -> getElementsByTagName ('Subject', 0) -> item (0); + my $date = $header -> getElementsByTagName ('Date', 0) -> item (0); + + %conf = (name => ($name -> hasChildNodes)?$name -> getFirstChild -> getData:undef, + category => ($cat -> hasChildNodes)?$cat -> getFirstChild -> getData:undef, + subject => ($subject -> hasChildNodes)?$subject -> getFirstChild -> getData:undef, + email => (defined ($email) and $email -> hasChildNodes)?$email -> getFirstChild -> getData:undef, + home => (defined ($home) and $home -> hasChildNodes)?$home -> getFirstChild -> getData:undef, + image => (defined ($image) and $image -> hasChildNodes)?$image -> getFirstChild -> getData:undef, + time => $date -> getAttribute ('longSec')); + \%conf; +} + +########################### +# sub get_message_header +# +# Messagebody auslesen +########################### + +sub get_message_body ($$) { + my ($xml,$mid) = @_; + my $body; + + foreach ($xml -> getElementsByTagName ('ContentList', 1) -> item (0) -> getElementsByTagName ('MessageContent', 0)) { + if ($_ -> getAttribute ('mid') eq $mid) { + $body = ($_ -> hasChildNodes)?$_ -> getFirstChild -> getData:''; + last;}} + + \$body; +} + +########################### +# sub get_message_header +# +# Messagenode bestimmen +########################### + +sub get_message_node ($$$) { + my ($xml,$tid,$mid) = @_; + my ($mnode,$tnode); + + for ( $xml -> getElementsByTagName ('Thread')) { + if ($_ -> getAttribute ('id') eq $tid) { + $tnode = $_; + for ($tnode -> getElementsByTagName ('Message')) { + if ($_ -> getAttribute ('id') eq $mid) { + $mnode = $_; + last;}} + last;}} + + wantarray?($mnode, $tnode):$mnode; +} + +########################### +# sub parse_single_thread +# +# einzelne Threaddatei +# parsen +########################### + +sub parse_single_thread ($$;$) { + my ($tnode, $deleted, $sorted) = @_; + my ($header, @msg, %mno); + + for ($tnode -> getElementsByTagName ('Message')) { + $header = get_message_header ($_); + + push @msg,{mid => ($_ -> getAttribute ('id') =~ /(\d+)/)[0], + ip => $_ -> getAttribute ('ip'), + kids => [$_ -> getElementsByTagName ('Message', 0)], + answers => $_ -> getElementsByTagName ('Message') -> getLength, + deleted => ($_ -> getAttribute ('flag') eq 'deleted')?1:0, + name => plain($header -> {name}), + cat => plain($header -> {category} or ''), + subject => plain($header -> {subject}), + time => plain($header -> {time})}; + $mno{$_} = $#msg;} + + # Eintraege ergaenzen und korrigieren + my $level; + $msg[0] -> {level} = 0; + for (@msg) { + $level = $_ -> {level} + 1; + @{$_ -> {kids}} = map {$msg[$mno{$_}] -> {level} = $level; $mno{$_}} @{$_ -> {kids}};} + + # ============ + # Sortieren und bei Bedarf + # geloeschte Messages entfernen + + my $smsg = sort_thread (\@msg, $sorted); + delete_messages ($smsg) unless ($deleted); + + $smsg; +} + +########################### +# sub create_message_xml +# +# Message-XML-String +# erzeugen +########################### + +sub create_message_xml ($$$) { + my ($xml, $msges, $num) = @_; + + my $msg = $msges -> [$num]; + + my $message = $xml -> createElement ('Message'); + $message -> setAttribute ('id', 'm'.$msg -> {mid}); + $message -> setAttribute ('flag', 'deleted') if ($msg -> {deleted}); + + # Header erzeugen + my $header = $xml -> createElement ('Header'); + + # alles inside of 'Header' + my $author = $xml -> createElement ('Author'); + my $name = $xml -> createElement ('Name'); + $name -> addText (toUTF8($msg -> {name})); + + my $email = $xml -> createElement ('Email'); + + my $category = $xml -> createElement ('Category'); + $category -> addText (toUTF8($msg -> {cat})); + + my $subject = $xml -> createElement ('Subject'); + $subject -> addText (toUTF8($msg -> {subject})); + + my $date = $xml -> createElement ('Date'); + $date -> setAttribute ('longSec', $msg -> {time}); + + $author -> appendChild ($name); + $author -> appendChild ($email); + $header -> appendChild ($author); + $header -> appendChild ($category); + $header -> appendChild ($subject); + $header -> appendChild ($date); + $message -> appendChild ($header); + + if ($msg -> {kids}) { + for (@{$msg -> {kids}}) { + $message -> appendChild (&create_message_xml ($xml, $msges, $_));}} + + $message; +} + +# ==================================================== +# XML-Parsen von Hand +# ==================================================== + +########################### +# sub sort_thread +# +# Messages eines +# Threads sortieren +########################### + +sub sort_thread ($$) { + my ($msg, $sorted) = @_; + + my ($z, %mhash) = (0); + + if ($sorted) { # aelteste zuerst + for (@$msg) { + @$msg[@{$_ -> {kids}}] = sort {$a -> {mid} <=> $b -> {mid}} @$msg[@{$_ -> {kids}}] if (@{$_ -> {kids}} > 1); + $mhash{$_ -> {mid}} = [@$msg[@{$_ -> {kids}}]];}} + + else { # juengste zuerst + for (@$msg) { + @$msg[@{$_ -> {kids}}] = sort {$b -> {mid} <=> $a -> {mid}} @$msg[@{$_ -> {kids}}] if (@{$_ -> {kids}} > 1); + $mhash{$_ -> {mid}} = [@$msg[@{$_ -> {kids}}]];}} + + # Kinder wieder richtig einsortieren + my @smsg = ($msg -> [0]); + for (@smsg) { + ++$z; + splice @smsg,$z,0,@{$mhash{$_ -> {mid}}} if ($_ -> {answers}); + delete $_ -> {kids};} + + \@smsg; +} + +########################### +# sub delete_messages +# +# geoeschte Nachrichten +# herausfiltern +########################### + +sub delete_messages ($) { + my $smsg = shift; + + my ($z, $oldlevel, @path) = (0,0,0); + + for (@$smsg) { + if ($_ -> {deleted}) { + my $n = $_ -> {answers}+1; + for (@path) {$smsg -> [$_] -> {answers} -= $n;} + splice @$smsg,$z,$n;} + + else { + if ($_ -> {level} > $oldlevel) { + push @path,$z; + $oldlevel = $_ -> {level};} + + elsif ($_ -> {level} < $oldlevel) { + splice @path,$_ -> {level}-$oldlevel; + $oldlevel = $_ -> {level};} + + else { $path[-1] = $z; } + + $z++;}} + + return; +} + +########################### +# sub get_all_threads +# +# Hauptdatei laden und +# parsen +########################### + +sub get_all_threads ($$;$) { + my ($file, $deleted, $sorted) = @_; + my ($last_thread, $last_message, @unids, %threads); + local *FILE; + + open FILE, $file or return undef; + my $xml = join '',
- ";
+
+ my $tpar = {template => $param -> {tree},
+ cgi => $param -> {cgi},
+ start => -1};
+
+ my @threads;
+
+ unless ($view -> {sortedThreads}) {
+ @threads = sort {$b <=> $a} keys %$threads;}
+ else {
+ @threads = sort {$a <=> $b} keys %$threads;}
+
+ for (@threads) {
+ $tpar -> {thread} = "$_";
+ print ${html_thread ($threads -> {$_}, $template, $tpar)},"\n",'
- ',"\n";} + + print "
- ' + .${$template -> scrap ($temp -> {(length $_ -> {cat})?'start':'startNC'}, + {$temp -> {name} => $_ -> {name}, + $temp -> {subject} => $_ -> {subject}, + $temp -> {cat} => $_ -> {cat}, + $temp -> {time} => plain(short_hr_time ($_ -> {time})), + $temp -> {link} => query_string({$t => $tid, $p => $_ -> {mid}})}, + $par -> {addParam})} + .' ';} + + else { + $html = '
- ' + .${$template -> scrap ($temp -> {(length $_ -> {cat})?'start':'startNC'}, + {$temp -> {name} => $_ -> {name}, + $temp -> {subject} => $_ -> {subject}, + $temp -> {cat} => $_ -> {cat}, + $temp -> {time} => plain(short_hr_time ($_ -> {time})), + $temp -> {link} => query_string({$t => $tid, $p => $_ -> {mid}})}, + $par -> {addParam})} + .' '; + + return \$html;}} + + # Teilthread + else { + my $start=-1; + for (@$msg) {$start++; last if ($_ -> {mid} == $par -> {start});} + my $end = $start + $msg -> [$start] -> {answers}; + $start++; + @indexes = ($start..$end); + $oldlevel = $startlevel = $msg -> [$par -> {start}] -> {level};} + + # HTML erzeugen + for (@$msg[@indexes]) { + + if ($_ -> {level} < $oldlevel) { + $html.='
- ' + .${$template -> scrap ($temp -> {(length $_ -> {cat})?'line':'lineNC'}, + {$temp -> {name} => $_ -> {name}, + $temp -> {subject} => $_ -> {subject}, + $temp -> {cat} => $_ -> {cat}, + $temp -> {time} => plain(short_hr_time ($_ -> {time})), + $temp -> {link} => query_string({$t => $tid, $p => $_ -> {mid}})}, + $par -> {addParam})} + .' '; + } + else { + $html.='
- ' + .${$template -> scrap ($temp -> {(length $_ -> {cat})?'line':'lineNC'}, + {$temp -> {name} => $_ -> {name}, + $temp -> {subject} => $_ -> {subject}, + $temp -> {cat} => $_ -> {cat}, + $temp -> {time} => plain(short_hr_time ($_ -> {time})), + $temp -> {link} => query_string({$t => $tid, $p => $_ -> {mid}})}, + $par -> {addParam})} + .' '; + } + } + + $html.='
| {&& IMG_X2 &&} {&& LINK_SELFAKTUELL &&} {&& IMG_X2 &&} {&& LINK_SELFLIVE &&} {&& IMG_X2 &&} {&& LINK_SELFFORUM &&} |
| {&& IMG_XWEB &&} | +SELFHTML Forum |
| {&& IMG_X5 &&} | +
+ {&& IMG_XGDOWN &&} {&& %IF _ERR_MESS &&}Fehler{&& %ELSE &&}Neue Nachricht verfassen{&& %ENDIF &&} Dies ist ein Forum als Ergänzung zu {&& IMG_X1 &&} {&& LINK_SELFHTML &&}. Von allen hier Teilnehmenden werden HTML-Grundkenntnisse erwartet. Es wird auch erwartet, daß bei Problemen erst einmal in SELFHTML oder anderen Hilfen nach einer Lösung gesucht wird. Ferner sollten folgende Ressourcen bekannt sein: |
| + {&& IMG_XGDOWN &&} | |
Fehler
+{&& _ERR_MESS &&}
{&& %ELSE &&}Neue Nachricht verfassen
+Mit einer neuen Nachricht wird auch ein neues Thema (neuer Nachrichten-Thread) gestartet. Das ist sinnvoll, um eine Frage zu stellen oder eine neue Diskussion zu entfachen.
{&& %ENDIF &&} +{&& POST_FORM &&} +| + {&& IMG_XGOUP &&} |
| {&& IMG_X2 &&} {&& LINK_SELFAKTUELL &&} {&& IMG_X2 &&} {&& LINK_SELFLIVE &&} {&& IMG_X2 &&} {&& LINK_SELFFORUM &&} |
© 2000 {&& IMG_XGMAIL &&} {&& MAIL_SELF &&}
+ + + ]]>| {&& IMG_X2 &&} {&& LINK_SELFAKTUELL &&} {&& IMG_X2 &&} {&& LINK_SELFLIVE &&} {&& IMG_X2 &&} {&& LINK_SELFFORUM &&} |
| {&& IMG_XWEB &&} | +SELFHTML Forum |
| {&& IMG_X5 &&} | +
+ {&& IMG_XGDOWN &&} Fehler |
| + {&& IMG_XGDOWN &&} | |
Fehler
+{&& _ERR_MESS &&}
+ +| {&& IMG_XGOUP &&} |
| {&& IMG_X2 &&} {&& LINK_SELFAKTUELL &&} {&& IMG_X2 &&} {&& LINK_SELFLIVE &&} {&& IMG_X2 &&} {&& LINK_SELFFORUM &&} |
© 2000 {&& IMG_XGMAIL &&} {&& MAIL_SELF &&}
+ + + ]]>| {&& IMG_X2 &&} {&& LINK_SELFAKTUELL &&} {&& IMG_X2 &&} {&& LINK_SELFLIVE &&} {&& IMG_X2 &&} {&& LINK_SELFFORUM &&} |
| {&& IMG_XWEB &&} | +Danke |
| {&& IMG_X5 &&} | +
+ {&& IMG_XGDOWN &&} Diese Nachricht ist nun im Forum lesbar |
| + {&& IMG_XGDOWN &&} | |
Diese Nachricht ist nun im Forum lesbar
+von: {&& _NAME &&}{&& %IF _MAIL &&}, {&& IMG_XGMAIL &&} {&& _MAIL &&}{&& %ENDIF &&}, {&& _TIME &&}{&& %IF _HOME &&}
+ {&& _HOME &&}{&& %ENDIF &&}
{&& %IF _CATEGORY &&}({&& _CATEGORY &&}) {&& %ENDIF &&}{&& _TITLE &&}
+{&& _BODY &&}
{&& %IF _IMAGE &&} +
| {&& IMG_XGOUP &&} |
| {&& IMG_X2 &&} {&& LINK_SELFAKTUELL &&} {&& IMG_X2 &&} {&& LINK_SELFLIVE &&} {&& IMG_X2 &&} {&& LINK_SELFFORUM &&} |
© 2000 {&& IMG_XGMAIL &&} {&& MAIL_SELF &&}
+ + + ]]>Name: |
+ |
| E-Mail: | +|
| Themenbereich: | +|
| Thema: | +|
|
+ Nachrichtentext: + | |
| URL (optional): | +|
| URL Grafik (optional): | +|
+
Bitte nur einmal auf Nachricht absenden klicken, dann abwarten!
+ ]]>]]>
-
+
-
+
-
+
| {&& IMG_X2 &&} {&& LINK_SELFAKTUELL &&} {&& IMG_X2 &&} {&& LINK_SELFLIVE &&} |
| {&& IMG_XWEB &&} | +SELFHTML Forum | |
+
|
+
+ {&& IMG_XGDOWN &&} Aktuelle Nachrichten Dies ist ein Forum als Ergänzung zu {&& IMG_X1 &&} {&& LINK_SELFHTML &&}. Von allen hier Teilnehmenden werden HTML-Grundkenntnisse erwartet. Es wird auch erwartet, daß bei Problemen erst einmal in SELFHTML oder anderen Hilfen nach einer Lösung gesucht wird. Ferner sollten folgende Ressourcen bekannt sein: Und im {&& IMG_SMILE &&} Chat treffen sich fast den ganzen Tag über Gleichgesinnte und tauschen Infos und Hilfe aus! {&& %IF _LOAD_TIME &&} +Ladezeitpunkt: {&& _LOAD_TIME &&} {&& %ENDIF &&} | |
| {&& IMG_XGDOWN &&} | ||
Aktuelle Nachrichten
+Mitmachen: Um auf eine aktuelle Nachricht zu antworten, einfach diese öffnen und lesen. Alle Nachrichten enthalten ein Formular zum Antworten.
+ Tip: Nachrichten in neuem Fenster öffnen (rechte Maustaste). Dann bleibt diese Indexdatei im Hintergrund geöffnet.
Alte Nachrichten finden Sie im {&& IMG_X1 &&} {&& LINK_ARCHIV2 &&}.
+Neue Nachricht
+{&& IMG_X3NEU &&} {&& LINK_NEU &&}
+Damit wird ein neuer Thread im Forum eröffnet.
+| {&& IMG_XGOUP &&} |
| {&& IMG_X2 &&} {&& LINK_SELFAKTUELL &&} {&& IMG_X2 &&} {&& LINK_SELFLIVE &&} |
© 2000 {&& IMG_XGMAIL &&} {&& MAIL_SELF &&}
+ + + ]]>| {&& IMG_X2 &&} {&& LINK_SELFAKTUELL &&} {&& IMG_X2 &&} {&& LINK_SELFLIVE &&} {&& IMG_X2 &&} {&& LINK_SELFFORUM &&} |
| {&& IMG_XWEB &&} | +{&& _BEF_NAME &&}: |
| {&& IMG_X5 &&} | +
+ {&& IMG_XGDOWN &&} Nachricht lesen |
| {&& IMG_XGDOWN &&} | |
Nachricht lesen
+{&& %IF _REF_LINK _REF_TITLE _REF_NAME &&}Ursprüngliche Nachricht zum Thema: {&& IMG_X3 &&} {&& %IF _REF_CATEGORY &&}({&& _REF_CATEGORY &&}) {&& %ENDIF &&}{&& _REF_TITLE &&} von {&& _REF_NAME &&}, {&& _REF_TIME &&}
+ {&& %ENDIF &&}Die folgende Nachricht zum Thema stammt von: {&& _BEF_NAME &&}{&& %IF _BEF_MAIL &&}, {&& IMG_XGMAIL &&} {&& _BEF_MAIL &&}{&& %ENDIF &&}, {&& _BEF_TIME &&}{&& %IF _BEF_HOME &&}
+ {&& _BEF_HOME &&}{&& %ENDIF &&}
{&& _MESSAGE &&}
{&& %IF _BEF_IMAGE &&} +
Antworten
{&& %IF _THREAD &&} +- {&& _THREAD &&}
Eigene Antwort schreiben
+Die Nachricht, auf die Sie antworten, ist im Feld des Nachrichtentextes noch mal komplett zitiert. Entfernen Sie bei langen Nachrichten bitte alle Passagen aus dem Zitat bis auf jene, auf die Sie selbst Bezug nehmen wollen.
++
Bitte nur einmal auf Nachricht absenden klicken, dann abwarten!
+| {&& IMG_XGOUP &&} |
| {&& IMG_X2 &&} {&& LINK_SELFAKTUELL &&} {&& IMG_X2 &&} {&& LINK_SELFLIVE &&} {&& IMG_X2 &&} {&& LINK_SELFFORUM &&} |
© 2000 {&& IMG_XGMAIL &&} {&& MAIL_SELF &&}
+ + + ]]>