Print Topic - Archive

E-Blah Community  /  Modification Archive  /  Is there a way to do this????
Posted by: BigC, November 5, 2003, 7:15am
Justin,

Is there a wat to disable the bump option in Blah? Everytime some adds something to your post it gets bump back to the top of the board.

I would like it to stay where it is by date of post.
Posted by: Justin, November 5, 2003, 7:44am; Reply: 1
lol ... there is ways to get rid of it ... but it requires a little modifying.  :-/
Posted by: BigC, November 5, 2003, 11:31am; Reply: 2
Is it something easy? Can you point me in the right direction? Or can I ask you to do it for me?
Posted by: Justin, November 5, 2003, 4:44pm; Reply: 3
It's in Post.pl under a Reply sub probably.  It's the thing that opens the board index and writes to it.  :P
Posted by: BigC, November 5, 2003, 5:39pm; Reply: 4
In here???

sub ReplyThread {
   $msid = $URL{'m'};

   if($uallow && $FORM{'ulfile'} ne '') { CoreLoad('Attach'); &Upload; }

   fopen(FILE,"+>>$messages/$msid.txt");
   print FILE "$tuser|$message|$ENV{'REMOTE_ADDR'}|$temail|$mtime|$smiley|||$atturl\n";
   fclose(FILE);

   fopen(FILE,"$messages/$msid.mail");
   @curlist = <FILE>;
   fclose(FILE);
   chomp @curlist;
   if($username ne 'Guest') {
      if($FORM{'xout'}) { $FORM{'notify'} = $notify; }
      fopen(FILE,">$messages/$msid.mail");
      foreach(@curlist) {
         if(($_ eq $username && $FORM{'notify'}) || $_ ne $username) { print FILE "$_\n"; }
         if($_ eq $username && $FORM{'notify'}) { $activated = 1; }
      }
      if($FORM{'notify'} && !$activated) { print FILE "$username\n"; }
      fclose(FILE);
   }
Posted by: Justin, November 5, 2003, 7:15pm; Reply: 5
Hrmmm ... more too it than I though.  :-/


- Justin
Posted by: BigC, November 5, 2003, 7:21pm; Reply: 6
So what more needs to be done? I don't know what I am doing at all when it comes to this. I tried looking it up on the net but I could not find what I need to do.
Posted by: BigC, November 6, 2003, 12:49pm; Reply: 7
Justin,

I looked all though the post and attach.pl files and i can't find what needs to be changed. Can you help me with this please?
Posted by: BigC, November 7, 2003, 9:24pm; Reply: 8
Jus,

I can't get this to work to save my life. Help please man help ;D
Posted by: dandan, November 10, 2003, 2:44am; Reply: 9
what a peculiar request ;) :)
Posted by: BigC, November 12, 2003, 3:11pm; Reply: 10
Justin,

How much would you charge to get this done?
Posted by: Justin, November 12, 2003, 4:12pm; Reply: 11
Nothing.

In Post.pl Look for:
Code
   fopen(FILE,"+<$boards/$URL{'b'}.msg",1) || &error("$posttxt[58]: $URL{'b'}.msg",1);
   @fdump = <FILE>;
   foreach(@fdump) {
      if($_ =~ m/\A$msid\|/) { $receive = $_; last; }
   }
   truncate(FILE,0);
   seek(FILE,0,0);
   chomp $receive;
   ($miduse,$subject,$tempposted,$trdate,$replies,$poll,$type,$micon) = split(/\|/,$receive);

   $start = $replies+1;

   print FILE "$msid|$subject|$tempposted|$trdate|$start|$poll|$type|$micon|$mtime|$tuser\n";

   foreach(@fdump) {
      if($_ =~ m/\A$msid\|/) { next; }
      print FILE $_;
   }
   fclose(FILE);


Replace With:
Code
   fopen(FILE,"+<$boards/$URL{'b'}.msg",1) || &error("$posttxt[58]: $URL{'b'}.msg",1);
   @fdump = <FILE>;
   foreach(@fdump) {
      if($_ =~ m/\A$msid\|/) { $receive = $_; last; }
   }
   truncate(FILE,0);
   seek(FILE,0,0);
   chomp $receive;
   ($miduse,$subject,$tempposted,$trdate,$replies,$poll,$type,$micon) = split(/\|/,$receive);

   $start = $replies+1;

   foreach(@fdump) {
      if($_ =~ m/\A$msid\|/) { print FILE "$msid|$subject|$tempposted|$trdate|$start|$poll|$type|$micon|$mtime|$tuser\n"; }
         else { print FILE $_; }
   }
   fclose(FILE);



I HOPE that works.  :)


- Justin
Posted by: BigC, November 12, 2003, 8:19pm; Reply: 12
Naw  :'( :'( :'( :'( it's not working. There's got to be a way to stop that.
Posted by: BigC, November 14, 2003, 10:12am; Reply: 13
Justin,

Is there any more adjustments that you can think of for this?
Posted by: Justin, November 14, 2003, 4:09pm; Reply: 14
I thought of one, and tried it ... but it was more trouble than anything.  I've been doing other projects lately and been leaving E-Blah alone more.  :-/  Like I just told someone else, I don't have any further plans as to maintaining E-Blah for Perl any longer.  The version currently out is probably one of the last ones to be released.  I've moved on to try PHP and, now, a little MySQL (which I'm kinda enjoying doing, personaly  ;)).  I've been doing a lot of stuff lately (gaming is one of them,  :)) ... so that's where my times going.  lol


- Justin
Posted by: tsopranolcn (Guest), November 14, 2003, 5:14pm; Reply: 15
Could we be seeing a php version of eblah in the future??? :P ;) ;D
Posted by: Justin, November 14, 2003, 8:02pm; Reply: 16
Not in the near future / any future from me anywho.  Someone's already doing phpBlah.  And really ... there are already 2 huge free php forum software makers out there (that I have to say, I hate they're style, but they work).  But they can be modified to be nice ... just seeing one heavily modified to look nice is the problem.  LOL



- Justin
Posted by: BigC, November 18, 2003, 8:50pm; Reply: 17
Justin,

Give it one more shot please :'( :'( :'(
Posted by: Justin, November 18, 2003, 9:09pm; Reply: 18
Here ... I tested this one, and I got it to work.  :)

Search for (MessageIndex.pl):
Code
   fopen(FILE,"$boards/$boardurl.msg");
   while( $mlata = <FILE> ) {
      chomp $mlata;
      ($del,$t,$t,$t,$t,$t,$t,$t,$date) = split(/\|/,$mlata);

      if($URL{'n'} && (($logged{$del}-$date) > 0 || ($logged{"AllRead_$URL{'b'}"}-$date) > 0)) { next; }

      if($stickme{$del}) {
         unshift(@mlata2,$mlata);
      } else { push(@mlata2,$mlata); }
   }
   fclose(FILE);
   $maxm = @mlata2-1 || 1; # /END Come up with new cnt


Replace With:
Code
   fopen(FILE,"$boards/$boardurl.msg");
   while( $mlata = <FILE> ) {
      chomp $mlata;
      ($del,$t,$t,$t,$t,$t,$t,$t,$date) = split(/\|/,$mlata);

      if($URL{'n'} && (($logged{$del}-$date) > 0 || ($logged{"AllRead_$URL{'b'}"}-$date) > 0)) { next; }

      if($stickme{$del}) {
         # unshift(@mlata2,$mlata);
         push(@junk,$mlata);
      } else { push(@mlata2,$mlata); }
   }
   fclose(FILE);
   @mlata2 = sort {$b <=> $a} @mlata2;
   unshift(@mlata2,@junk);

   $maxm = @mlata2-1 || 1; # /END Come up with new cnt
Posted by: BigC, December 11, 2003, 11:41am; Reply: 19
Justin,

I'm sorry I forgot to say thank you for this man. It's works like a charm. You the man 8)

Posted by: Justin, December 11, 2003, 4:08pm; Reply: 20
No problem.  Sorry it took a while for me to get around to it.  :P
Print page generated: January 9, 2009, 5:18pm