[RESOLVED] [Perl] A once working code, help?

**Jabal** · Aug 20th, 2006, 11:09 AM

To make a long story short, I had a working news update code, didnt realize it worked, and broke it. Because that is how smart I am. I thought I was looking at the perl news page, not the old html one that didnt update unless you coded it. So here's the code that I unfixed:
(Not VBCODE, just used the tags for ease)

VB Code:

#!C:\Perl\bin\perl
 
print "Content-type:text/html\n\n";
$pass = 0;
if( $ENV{'REQUEST_METHOD'} eq 'POST')
{read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'})};
@pairs = split(/&/, $buffer);
($Second, $Minute, $Hour, $Day, $Month, $Year, $WeekDay, $DayOfYear, $IsDST) = localtime(time) ;
use Switch;
switch ($Month) {
case 0                { $Month = "January" }
case 1                { $Month = "February" }
case 2                { $Month = "March" }
case 3                { $Month = "April" }
case 4                { $Month = "May" }
case 5                { $Month = "June" }
case 6                { $Month = "July" }
case 7                { $Month = "August" }
case 8                { $Month = "September" }
case 9                { $Month = "October" }
case 10                { $Month = "November" }
case 11                { $Month = "December" }
else                   { print "Unknown" }
}
if($Day < 10)
{$Day = "0" . $Day ;}
$Year+=1900;
if($Hour > 12)
{$Hour-=12;}
if($Hour < 10){
$Hour = sprintf("%02d",$Hour);}
if($Second < 10){
$Second = sprintf("%02d",$Second);}
if($Minute < 10){
$Minute = sprintf("%02d",$Minute);}
print "<html><head>\n";
 
print "<div name=\"Ad\" style=\"display:none\">\n";
print "<textarea><body></textarea> \n";
print "</div>\n";
print "<META HTTP-EQUIV=Refresh CONTENT=\"10; URL=\"Newnews.pl\">\n";
($key, $password) = split(/=/, $pairs[1]);
if ($password eq "reggae")
{
  open(News,">>cshcanews.txt");
  $news = split(/&/, <News>);
      ($key, $value) = split(/=/, $line);
      $post = $value;
  print News "Harvey&$post&$Month $Day, $Year $Hour:$Minute:$Second\n";
  close(News);
  $pass = 1;
    print "<HEAD>\n";
    print "<SCRIPT LANGUAGE=\"JavaScript\">\n";
    print "<!-- Hide from older browsers\n";
    print "alert('Your change has been made');\n";
    print "// end hiding -->\n";
    print "</SCRIPT>\n";
    print "</HEAD>\n";
}
else {
    print "<HEAD>\n";
    print "<SCRIPT LANGUAGE=\"JavaScript\">\n";
    print "<!-- Hide from older browsers\n";
    print "alert('Incorrect Password'}');\n";
    print "// end hiding -->\n";
    print "</SCRIPT>\n";
    print "</HEAD>\n";
} print "</head><body background=\"http://fire.prohosting.com/jabal/CSHCA/background.GIF\">\n";
print "<CENTER><TABLE height=\"100\%\"><TR><TD valign=\"middle\"><TABLE valign=\"center\" \"\#000000\" cellpadding=\"0\" cellspacing=\"1\" border=\"0\"><TR><TD bgcolor=\"\#AAAAFF\"><CENTER><BR><BR>Please wait while we forward you back to the news update screen.<BR><BR></TD></TR><TR><TD bgcolor=\"\#0000FF\"><A HREF=\"Newnews.pl\"><CENTER>Or click here if you do not wish to wait.</A></TD></TR></TABLE></TD></TR></TABLE></CENTER>\n";
print "<!-- </body> --></body></html>\n";
print "</HTML>\n";

No thats not the real password, I plan on changing it. Also just so you know, the code is supposed to take the post and password. the password will identify that Harvey made the post, so we dont need a user name. It will then take the post and add it to the text file, and the time of day it was done. The news perl file that displays the infop still works.

Thanks for the help,
Jabal

**Jabal** · Aug 20th, 2006, 08:04 PM

Well, I figured it out, it was an error in the #! line
I forgot to change it for linux -.-
So, I guess this topic can be deleted, it was a stupid mistake.

Thread: [RESOLVED] [Perl] A once working code, help?

Thread Tools

Display

[RESOLVED] [Perl] A once working code, help?

Re: [Perl] A once working code, help?

Posting Permissions