Chat LIVE With Programming Experts! There Are 23 Online Right Now...

Dream.In.Code > Programming Help > Perl and Python

Welcome to Dream.In.Code
	Become an Expert! Join 244,220 Programmers for FREE! Get instant access to thousands of experts, tutorials, code snippets, and more! There are 1,396 people online right now. Registration is fast and FREE... Join Now! Chat LIVE With a Expert

Perl Check Box

Reply to this topic

Start new topic

Perl Check Box, Checked/Unchecked, Checked before ?

Pjohn323	14 Nov, 2008 - 10:04 AM Post #1
New D.I.C Head Joined: 14 Nov, 2008 Posts: 2	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>
	This Post Was Helpful!

Register for Free to Make These Ads Go Away!

KevinADC	RE: Perl Check Box 14 Nov, 2008 - 12:14 PM Post #2
D.I.C Regular Joined: 23 Jan, 2007 Posts: 375 Thanked: 22 times Dream Kudos: 50 My Contributions	I'm a little (well alot) confused. Where is the perl?
	This Post Was Helpful!

Pjohn323	RE: Perl Check Box 14 Nov, 2008 - 04:35 PM Post #3
New D.I.C Head Joined: 14 Nov, 2008 Posts: 2	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> <img src="$imagesdir/grin.gif" alt="" /> $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> <img src="$imagesdir/grin.gif" alt="" /> $asmtxt{'08'}</b></td> </tr>~; $inew = 0; while ($inew <= "5") { $yymain .= qq~<tr> <td class="windowbg2" width="5%" align="center"> </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> <img src="$imagesdir/grin.gif" alt="" /> $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> <img src="$imagesdir/grin.gif" alt="" /> $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" /> <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;
	This Post Was Helpful!

KevinADC	RE: Perl Check Box 14 Nov, 2008 - 06:34 PM Post #4
D.I.C Regular Joined: 23 Jan, 2007 Posts: 375 Thanked: 22 times Dream Kudos: 50 My Contributions	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.
	This Post Was Helpful!

clock	RE: Perl Check Box 23 Nov, 2008 - 02:14 AM Post #5
New D.I.C Head Joined: 23 Nov, 2008 Posts: 2	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
	This Post Was Helpful!

Fast Reply

Reply to this topic

Start new topic

Display Mode: Standard · Switch to: Linear+ · Switch to: Outline

Track this topic · Email this topic · Print this topic · Subscribe to this forum

Time is now: 7/4/09 08:37AM

Invision Power Board v2.1.7 © 2009 IPS, Inc.

Licensed to: MediaGroup1

Advertising | Terms of Use | Privacy Policy | About Us | Site Map

Advertise on this site through Lake Quincy Media

Forum Index: Programming Help | C and C++ | VB6 | Java | VB.NET | C# | ASP.NET | PHP | ColdFusion | Perl and Python | Ruby | Databases | Other Languages | Game Programming | Mobile Development | Software Development | Computer Science | Industry News | Programming Tutorials | C++ Tutorials | Visual Basic Tutorials | Java Tutorials | VB.NET Tutorials | C# Tutorials | Linux Tutorials | PHP Tutorials | ColdFusion Tutorials | Windows Tutorials | HTML/JavaScript Tutorials | CSS Tutorials | Flash Tutorials | Web Promotion Tutorials | Graphic Design & Photoshop Tutorials | Software Development Tutorials | Database Tutorials | Other Language Tutorials | ASP.NET Tutorials | Game Programming Tutorials |

Copyright 2001-2008 MediaGroup1 LLC, All Rights Reserved
A MediaGroup1 LLC Production - Version 6.0.2.1.36
Server: secure2

Search^Updated!w00t

Over 509,000 Pages! Advanced Forum Search

Live Help!

Be Social

Tutorials

Programming

Web Development

Reference Sheets

Code Snippets

DIC Chatroom

Join our IRC Chat

Bye Bye Ads

Monthly Drawing

Top Contributors

Top 10 Kudos This Month