Im folgenden wird beschrieben, wie man neue Felder zur Registrierung hinzufügt und die Eingaben im Profil und neben Posts und IMs anzeigt.


Es ist einfach schrittweise das auszuführen was dort steht und entspricht einem komplett zerpflücktem mod-file - allerdings ist dabei folgendes zu beachten:
- "MyFieldText" ist natürlich durch den Text zu ersetzen, den du vor dem Wert anzeigen lassen willst ( Im Profil, Posts oder IM's )
- in "$userprofile{$user}->[20]" ist die 20 je nach dem wieviele Einträge im Profil du schon vorgenommen hast zu erhöhen
  Dies kann auch durch mods erfolgt sein. Bitte prüfe daher, ob ein mod schon etwas zu dem Userfile hinzugefügt hat!
- "name="myinput"" ist durch einen im Script eindeutigen, nicht schon belegten Variablen Namen zu ersetzen (d.h. je neues Feld ein neuer Name)


OK nun geht's los...


Zur Anzeige der neuen Eingabe neben einem Post oder IM
[code]
<edit file> 
Sources/Load.pl 
</edit file> 
 
<search for> 
 $userprofile{$user}->[9] = $userprofile{$user}->[9] ? qq~<a href="aim:goim?screenname=$userprofile{$user}->[9]&message=Hi.+Are+you+there?"><img src="$imagesdir/aim.gif" alt="$userprofile{$user}->[9]" border="0"></a>~ : ''; 
</search for> 
 
<add after> 
 $userprofile{$user}->[20] = $userprofile{$user}->[20] ? qq~<font size="1">MyFieldText: $userprofile{$user}->[20]<br>~ : ''; 
</add after> 
[/code]


Zur Anzeige im Profil, während der Bearbeitung:
[code] 
<edit file> 
Sources/Profile.pl 
</edit file> 
 
<search for> 
 <td width="320"><font size=2><b>$txt{'35'}: </b></font></td> 
 <td><font size=2><input type="hidden" name="username" value="$INFO{'username'}">$INFO{'username'}</font></td> 
 </tr><tr> 
</search for> 
 
<add before> 
 <td width="320"><font size=2><b>MyFieldText: </b></font></td> 
 <td><font size=2><input type="text" name="myinput" size="25" value="$memsettings[20]"></font></td> </tr> 
 <tr> 
</add before> 
[/code]


Zum Zulassen bestimmter Zeichen im neuen Feld, Umformung des Eingabetextes ins HTML Format und schreiben ins Userfile.
In diesem Beispiel werden nur Buchstaben zugelassen. Bei Fehleingabe kommt eine Fehlermeldung die auch entsprechend anzupassen ist.
( Das foldende wird beim Ausführen der Modifizierung des Profils ausgeführt )
[code]
<search for> 
 &fatal_error("$txt{'75'}") if($member{'name'} eq ''); 
 &fatal_error("$txt{'242'}") if($member{'name'} !~ /^[\s0-9A-Za-z\[\]#%+,-|\.:=?@^_]+$/); 
</search for> 
 
<add after> 
 &fatal_error("Please ENTER something into the Field MyFieldText") if($member{'myinput'} eq ''); 
 &fatal_error("Please ENTER only characters into the Field MyFieldText") if($member{'myinput'} =~ /[^a-zA-Z. ]/); 
</add after> 

<search for> 
  &ToHTML($member{'name'}); 
</search for> 
 
<add after> 
  &ToHTML($member{'myinput'}); 
</add after> 

<search for> 
  print FILE "$FORM{'hideemail'}\n";
</search for> 
 
<add after> 
  print FILE "$member{'myinput'}\n"; 
</add after> 
[/code]
Willst du, dass für MyField keine Eingabe erforderlich ist, nehme die komplette Zeile im add-after-tag mit "eq ''" heraus. 
Möchtest du mehr bzw andere Zeichen zulassen sind folgende Seiten hilfreich:
( Suchkriterien hinzufügen / Regular Expressions )
http://www.linuxuniversity.org/dev_track/perl-class/week5/lesson5.html
http://www.perldoc.com/perl5.6/pod/perlre.html#Regular-Expressions
http://stein.cshl.org/WWW/software/CGI/


Zur Anzeige beim Ansehen des Profils
[code]
<search for> 
 <td><font size=2><b>$txt{'68'}: </b></font></td> 
 <td><font size=2>$memsettings[1]</font></td> 
</search for> 
 
<replace> 
 <td><font size=2><b>MyFieldText: </b></font></td> 
 <td><font size=2>$memsettings[20]</font></td> 
 </tr><tr> 
 <td><font size=2><b>$txt{'35'}: </b></font></td> 
 <td><font size=2>$memsettings[1]</font></td> 
</replace> 
[/code]
 

Anzeige bei der Registrierung ( erfolgt hier nach den Passwortfeldern )
[code]
<edit file> 
Sources/Register.pl 
</edit file> 
 
<search for> 
        <td width="40%"><font size=2>* <b>$txt{'82'}:</b></font></td>
        <td><font size=2><input type=password maxlength="30" name=passwrd2 size=30></font></td>
      </tr>
</search for> 
 
<add after>
 <tr>
   <td width="40%"><font size=2>* <b>MyFieldText:</b></font></td> 
   <td><input type=text name=myinput size=20 maxlength=25></td>
 </tr> 
</add after> 
[/code]
maxlength für das Eingabefeld kann entsprechend angepasst werden.


Auch hier noch einmal der Check welche Zeichen im neuen Feld zugelassen werden sollen und ob ein Leerstring erlaubt ist.
[code] 
<search for> 
 &fatal_error("($member{'username'}) $txt{'37'}") if($member{'username'} eq ''); 
 &fatal_error("($member{'username'}) $txt{'99'}") if($member{'username'} eq '_' || $member{'username'} eq '|'); 
</search for> 
 
<add after> 
 &fatal_error("Please ENTER something into the Field MyFieldText") if($member{'myinput'} eq ''); 
 &fatal_error("Please ENTER only characters into the Field MyFieldText") if($member{'myinput'} =~ /[^a-zA-Z. ]/); 
</add after> 
 
<search for> 
 print FILE "$FORM{'hideemail'}\n";
</search for> 
 
<add after> 
 print FILE "$member{'myfield'}\n"; 
 fclose(FILE);
</add after> 
[/code]
 
 

 
So ich hoffe das war's  *g*

Übrigends: Hast du vor, dieses bei einem deiner mods zu nutzen, empfehle ich alle Anzeigetexte durch Variablen zu ersetzen und im language-file zu definieren!
Ebenfalls ist es evt. besser, die neuen Daten statt an die Userdatei anzuhängen, in eine extra Datei zu speichern. Dies erhöht die Kompatibilität mit anderen mods!


MFG
T-Master