Printable Version of Topic

Click here to view this topic in its original format

Dream.In.Code _ Perl and Python _ Perl Check Box

Posted by: Pjohn323 14 Nov, 2008 - 10:04 AM

I am modifing an existing scripts .. with a script. It works .. but the option needs to be checked by user to enable what is the default. What I'd like .. is the option to be displayed checked initially and then if changed by user (unchecked) it would display the change when the user returns to the option page, either checked or unchecked as he/she desired.

CODE
<edit file>
Admin/Smilies.pl
</edit file>

<search for>
    elsif ($showsmdir   eq 4) { $ssm4   = " selected"; }
</search for>

<add after>
    if    ($showsmilierow eq 1) { $srow = " checked"; }
</add after>

<search for>
    <td class="windowbg2" colspan="3"><b>$smiltxt{'12'}</b><br /> $smiltxt{'13'} </td>
    <td class="windowbg2" colspan="4" align="right"><input type="checkbox" name="detachblock" value="1"$dblock /></td>
  </tr><tr>
</search for>

<add after>
    <td class="windowbg2" colspan="3"><b>$smiltxt{'22'}</b></td>
    <td class="windowbg2" colspan="4" align="right"><input type="checkbox" name="showsmilierow" value="1"$srow /></td>
  </tr><tr>
</add after>

<search for>
    $option10 = qq(\$poptext = "$FORM{'poptext'}";);
</search for>

<add after>
    $option11 = qq(\$showsmilierow = "$FORM{'showsmilierow'}";);
</add after>

<search for>
    print FILE "$option10\n\n";
</search for>

<replace>
    print FILE "$option10\n";
    print FILE "$option11\n\n";
</replace>

<edit file>
Languages/English/Admin.lng
</edit file>

<search for>
'21' => 'Click on the smilie you wish to insert into your message:',
</search for>

<add after>
'22' => 'Show Smilie Row Under Reply Box:',
</add after>

<edit file>
Sources/InstantMessage.pl
</edit file>

<search for>
                AddText(AddTxt);
            }
</search for>

<add after>
            ~;
            $imsend .= qq~
</add after>

<search for>
                document.write("<img src='$imagesdir/cry.gif' onclick='cry();' "+HAND+" align='bottom' alt='$post_txt{'530'}' title='$post_txt{'530'}' border='0'> ");$moresmilieslist
</search for>

<add after>
                ~ if $showsmilierow;
                $imsend .= qq~
</add after>

<edit file>
Sources/Post.pl
</edit file>

<search for>
                document.write("<span  class='small'>$post_txt{'215'}</span>");
            }
            //-->
            </script>
~;
</search for>

<replace>
                document.write("<span  class='small'>$post_txt{'215'}</span>");
            }
            //-->
            </script>
~ if $showsmilierow;
</replace>

Posted by: KevinADC 14 Nov, 2008 - 12:14 PM

I'm a little (well alot) confused. Where is the perl?

Posted by: Pjohn323 14 Nov, 2008 - 04:35 PM

QUOTE(KevinADC @ 14 Nov, 2008 - 12:14 PM) *

I'm a little (well alot) confused. Where is the perl?


CODE
if ($action eq 'detailedversion') { return 1; }

if (!-e ("$vardir/Smilies.txt")) {
  fopen(ADMIN_SMILIES, ">>$vardir/Smilies.txt");
  print ADMIN_SMILIES "1;";
  fclose(ADMIN_SMILIES);
}

require "$vardir/Smilies.txt";

sub SmiliePanel {
  &is_admin_or_gmod;
  if    ($smiliestyle eq 1) { $ss1    = " selected='selected'"; }
  elsif ($smiliestyle eq 2) { $ss2    = " selected='selected'"; }
  if    ($showadded   eq 1) { $sa1    = " selected='selected'"; }
  elsif ($showadded   eq 2) { $sa2    = " selected='selected'"; }
  elsif ($showadded   eq 3) { $sa3    = " selected='selected'"; }
  elsif ($showadded   eq 4) { $sa4    = " selected='selected'"; }
  if    ($showsmdir   eq 1) { $ssm1   = " selected='selected'"; }
  elsif ($showsmdir   eq 2) { $ssm2   = " selected='selected'"; }
  elsif ($showsmdir   eq 3) { $ssm3   = " selected='selected'"; }
  elsif ($showsmdir   eq 4) { $ssm4   = " selected='selected'"; }
  if    ($detachblock eq 1) { $dblock = " checked='checked'"; }
  opendir(DIR, "$smiliesdir");
  @contents = readdir(DIR);
  closedir(DIR);
  $smilieslist = "";

  foreach $line (sort { uc($a) cmp uc($b) } @contents) {
    ($name, $extension) = split(/\./, $line);
    if ($extension =~ /gif/i || $extension =~ /jpg/i || $extension =~ /jpeg/i || $extension =~ /png/i) {
      if ($line !~ /banner/i) {
        $smilieslist .= qq~<tr>
    <td class="windowbg2" width="5%" align="center"><input type="radio" name="showinbox" value="$name"~ . ($showinbox eq $name ? ' checked="checked"' : '') . qq~ /></td>
    <td class="windowbg2" width="21%" align="center">[smiley=$line]</td>
    <td class="windowbg2" width="21%" align="center">$line</td>
    <td class="windowbg2" width="21%" align="center">$name</td>
    <td class="windowbg2" colspan="4" width="32%" align="center"><img src="$smiliesurl/$line" alt="$name" title="$name" /></td>
  </tr>~;
      }
    }
  }
  $yymain .= qq~
<form action="$adminurl?action=addsmilies" method="post">
<table border="0" width="98%" cellspacing="1" cellpadding="4" class="bordercolor" align="center">
  <tr>
    <td class="titlebg" colspan="8"><b>&nbsp;<img src="$imagesdir/grin.gif" alt="" />&nbsp;$asmtxt{'11'}</b></td>
  </tr><tr>
    <td class="catbg" width="5%" align="center"><b>$smiltxt{'22'}</b></td>
    <td class="catbg" width="20%" align="center"><b>$asmtxt{'02'}</b></td>
    <td class="catbg" width="20%" align="center"><b>$asmtxt{'03'}</b></td>
    <td class="catbg" width="20%" align="center"><b>$asmtxt{'04'}</b></td>
    <td class="catbg" width="15%" align="center"><b>$asmtxt{'05'}</b></td>
    <td class="catbg" width="10%" align="center"><b>$asmtxt{'06'}</b></td>
    <td class="catbg" width="5%" align="center"><b>$asmtxt{'07'}</b></td>
    <td class="catbg" width="5%" align="center"><b>$asmtxt{'12'}</b></td>
  </tr>~;

  $i = 0;
  while ($SmilieURL[$i]) {
    undef $box;
    if ($SmilieLinebreak[$i] eq "<br />") { $box = " checked='checked'"; }
    if ($SmilieURL[$i] =~ /\//i) { $tmpurl = $SmilieURL[$i]; }
    else { $tmpurl = qq~$imagesdir/$SmilieURL[$i]~; }
    $j = $i + 1;
    if ($i != 0) {
      $up = qq~<a href="$adminurl?action=smiliemove;index=$i"><img src="$imagesdir/smiley_up.gif" border="0" alt="$asmtxt{'13'}" title="$asmtxt{'13'}" /></a>~;
    } else {
      $up = qq~<img src="$imagesdir/smiley_up.gif" border="0" alt="" />~;
    }
    if ($SmilieURL[$i + 1]) {
      $down = qq~<a href="$adminurl?action=smiliemove;index=$j"><img src="$imagesdir/smiley_down.gif" border="0" alt="$asmtxt{'14'}" title="$asmtxt{'14'}" /></a>~;
    } else {
      $down = qq~<img src="$imagesdir/smiley_down.gif" border="0" alt="" />~;
    }
    $yymain .= qq~<tr>
    <td class="windowbg2" width="5%" align="center"><input type="radio" name="showinbox" value="$SmilieDescription[$i]"~ . ($showinbox eq $SmilieDescription[$i] ? ' checked="checked"' : '') . qq~ /></td>
    <td class="windowbg2" width="20%" align="center"><input type="text" name="scd[$i]" value="$SmilieCode[$i]" /></td>
    <td class="windowbg2" width="20%" align="center"><input type="text" name="smimg[$i]" value="$SmilieURL[$i]" /></td>
    <td class="windowbg2" width="20%" align="center"><input type="text" name="sdescr[$i]" value="$SmilieDescription[$i]" /></td>
    <td class="windowbg2" width="15%" align="center"><input type="checkbox" name="smbox[$i]" value="1"$box /></td>
    <td class="windowbg2" width="10%" align="center"><img src="$tmpurl" alt="" /></td>
    <td class="windowbg2" width="5%" align="center"><input type="checkbox" name="delbox[$i]" value="1" /></td>
    <td class="windowbg2" width="5%" align="center">$up $down</td>
  </tr>~;
    $i++;
  }
  $yymain .= qq~<tr>
    <td class="titlebg" colspan="8"><b>&nbsp;<img src="$imagesdir/grin.gif" alt="" />&nbsp;$asmtxt{'08'}</b></td>
  </tr>~;
  $inew = 0;
  while ($inew <= "5") {
    $yymain .= qq~<tr>
    <td class="windowbg2" width="5%" align="center">&nbsp;</td>
    <td class="windowbg2" width="20%" align="center"><input type="text" name="scd[$i]" /></td>
    <td class="windowbg2" width="20%" align="center"><input type="text" name="smimg[$i]" /></td>
    <td class="windowbg2" width="20%" align="center"><input type="text" name="sdescr[$i]" /></td>
    <td class="windowbg2" width="15%" align="center"><input type="checkbox" name="smbox[$i]" value="1" /></td>
    <td class="windowbg2" width="20%" align="center" colspan="3"></td>
  </tr>~;
    $i++;
    $inew++;
    if ($inew == 5) {
      $yymain .= qq~<tr>
    <td colspan="8" class="titlebg"><b>&nbsp;<img src="$imagesdir/grin.gif" alt="" />&nbsp;$smiltxt{'2'}</b></td>
  </tr><tr>
    <td class="catbg" width="5%" align="center"><b>$smiltxt{'22'}</b></td>
    <td class="catbg" width="21%" align="center"><b>$asmtxt{'02'}</b></td>
    <td class="catbg" width="21%" align="center"><b>$asmtxt{'03'}</b></td>
    <td class="catbg" width="21%" align="center"><b>$asmtxt{'04'}</b></td>
    <td class="catbg" colspan="4" width="32%" align="center"><b>$asmtxt{'06'}</b></td>
  </tr>$smilieslist<tr>
    <td class="titlebg" colspan="8" height="22"><b>&nbsp;<img src="$imagesdir/grin.gif" alt="" />&nbsp;$smiltxt{'3'}</b><br /></td>
  </tr><tr>
    <td class="windowbg2" colspan="4"><b>$smiltxt{'4'}</b></td>
    <td class="windowbg2" colspan="4" align="right">
      <select name="smiliestyle">
        <option value="1"$ss1>$smiltxt{'5'}</option>
        <option value="2"$ss2>$smiltxt{'6'}</option>
      </select>
    </td>
  </tr><tr>
    <td class="windowbg2" colspan="4"><b>$smiltxt{'7'}</b></td>
    <td class="windowbg2" colspan="4" align="right">
      <select name="showadded">
        <option value="1"$sa1>$smiltxt{'8'}</option>
        <option value="2"$sa2>$smiltxt{'9'}</option>
        <option value="3"$sa3>$smiltxt{'10'}</option>
        <option value="4"$sa4>$smiltxt{'11'}</option>
      </select>
    </td>
  </tr><tr>
    <td class="windowbg2" colspan="4"><b>$smiltxt{'2'}</b></td>
    <td class="windowbg2" colspan="4" align="right">
      <select name="showsmdir">
        <option value="1"$ssm1>$smiltxt{'8'}</option>
        <option value="2"$ssm2>$smiltxt{'9'}</option>
        <option value="3"$ssm3>$smiltxt{'10'}</option>
        <option value="4"$ssm4>$smiltxt{'11'}</option>
      </select>
    </td>
  </tr><tr>
    <td class="windowbg2" colspan="4"><b>$smiltxt{'12'}</b><br /> $smiltxt{'13'} </td>
    <td class="windowbg2" colspan="4" align="right"><input type="checkbox" name="detachblock" value="1"$dblock /></td>
  </tr><tr>
    <td class="windowbg2" colspan="4"><b>$smiltxt{'14'}</b></td>
    <td class="windowbg2" colspan="4" align="right"><input type="text" size="10" name="winwidth" value="$winwidth" /></td>
  </tr><tr>
    <td class="windowbg2" colspan="4"><b>$smiltxt{'15'}</b></td>
    <td class="windowbg2" colspan="4" align="right"><input type="text" size="10" name="winheight" value='$winheight' /></td>
  </tr><tr>
    <td class="windowbg2" colspan="4"><b>$smiltxt{'23'}</b></td>
    <td class="windowbg2" colspan="4" align="right"><input type="radio" name="showinbox" value=""~ . (!$showinbox ? ' checked="checked"' : '') . qq~ /></td>
  </tr><tr>
    <td class="windowbg2" colspan="4"><b>$smiltxt{'18'}</b></td>
    <td class="windowbg2" colspan="4" align="left">$smiliesurl</td>
  </tr><tr>
    <td class="windowbg2" colspan="4"><b>$smiltxt{'20'}</b></td>
    <td class="windowbg2" colspan="4" align="right"><input type="text" size="10" name="popback" value="$popback" /></td>
  </tr><tr>
    <td class="windowbg2" colspan="4"><b>$smiltxt{'19'}</b></td>
    <td class="windowbg2" colspan="4" align="right"><input type="text" size="10" name="poptext" value="$poptext" /></td>
  </tr><tr>
    <td class="catbg" align="center" colspan="8">
    <input type="submit" value="$asmtxt{'09'}" class="button" />&nbsp;<input type="reset" value="$asmtxt{'10'}" class="button" /></td>
  </tr>
</table>
</form>
~;

      $yytitle     = "$asmtxt{'01'}";
      $action_area = "smilies";
      &AdminTemplate;
      exit;
    }
  }

}

sub AddSmilies {
  &is_admin_or_gmod;
  $option1  = qq(\$smiliestyle = "$FORM{'smiliestyle'}";);
  $option2  = qq(\$showadded = "$FORM{'showadded'}";);
  $option3  = qq(\$showsmdir = "$FORM{'showsmdir'}";);
  $option4  = qq(\$detachblock = "$FORM{'detachblock'}";);
  $option5  = qq(\$winwidth = "$FORM{'winwidth'}";);
  $option6  = qq(\$winheight = "$FORM{'winheight'}";);
  $option9  = qq(\$popback = "$FORM{'popback'}";);
  $option10 = qq(\$poptext = "$FORM{'poptext'}";);
  $option11 = qq(\$showinbox = "$FORM{'showinbox'}";);

  $count = 0;
  $tempA = 0;
  fopen(FILE, ">$vardir/Smilies.txt", 1);
  while ($FORM{"scd[$tempA]"}) {
    $delcheck = $FORM{"delbox[$tempA]"};
    $var1     = $FORM{"smimg[$tempA]"};
    $var2     = $FORM{"scd[$tempA]"};
    $var3     = $FORM{"sdescr[$tempA]"};
    $var4     = $FORM{"smbox[$tempA]"};
    if ($var4 eq "1") { $var4 = "<br />"; }
    else { $var4 = ""; }
    &ToHTML($var2);
    $var2 =~ s/\$/$/g;
    $var2 =~ s/\@/@/g;
    &ToHTML($var3);
    $var3 =~ s/\$/$/g;
    $var3 =~ s/\@/@/g;
    $img = qq(\$SmilieURL[$count] = "$var1";);
    $scd = qq(\$SmilieCode[$count] = "$var2";);
    $sdr = qq(\$SmilieDescription[$count] = "$var3";);
    $smb = qq(\$SmilieLinebreak[$count] = "$var4";);

    if ($delcheck ne "1") {
      print FILE "$img\n";
      print FILE "$scd\n";
      print FILE "$sdr\n";
      print FILE "$smb\n\n";
      ++$count;
    }
    ++$tempA;
  }
  print FILE "$option1\n";
  print FILE "$option2\n";
  print FILE "$option3\n";
  print FILE "$option4\n";
  print FILE "$option5\n";
  print FILE "$option6\n";
  print FILE "$option9\n";
  print FILE "$option10\n";
  print FILE "$option11\n";
  print FILE "\n1;";
  fclose(FILE);

  $yySetLocation = qq~$adminurl?action=smilies~;
  &redirectexit;
}

sub SmilieMove {
  &is_admin_or_gmod;
  $index    = $INFO{'index'};
  $newindex = $index - 1;

  if ($SmilieURL[$index] ne "" && $SmilieURL[$newindex] ne "") {
    fopen(FILE, "$vardir/Smilies.txt");
    @tmpsmilies = <FILE>;
    fclose(FILE);
    if ($newindex >= 0 && $newindex <= $#tmpsmilies) {
      $i = 0;
      foreach (@tmpsmilies) {
        if    ($tmpsmilies[$i] =~ /\[$newindex\] \=/i) { $tmpsmilies[$i] =~ s/\[$newindex\] \=/\[$index\] \=/g; }
        elsif ($tmpsmilies[$i] =~ /\[$index\] \=/i)    { $tmpsmilies[$i] =~ s/\[$index\] \=/\[$newindex\] \=/g; }
        $i++;
      }
      fopen(FILE, ">$vardir/Smilies.txt", 1);
      print FILE @tmpsmilies;
      fclose(FILE);
    }
  }

  $yySetLocation = qq~$adminurl?action=smilies~;
  &redirectexit;
}

1;

Posted by: KevinADC 14 Nov, 2008 - 06:34 PM

You have to use cookies or sessions or send the data to the script in the query string or hidden form fields if you want your script to remember something between invocations.

Posted by: clock 23 Nov, 2008 - 02:14 AM

http://search.cpan.org/search?query=session&mode=module here youcan find module that help you in sessions or the simplest way is to use hidden fields in form

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)