Programs Under Development (PUDs)

#!/usr/bin/perl use CGI; # Sends Errors to Browser use CGI::Carp qw(fatalsToBrowser); $query = new CGI; $sendmail = "/usr/lib/sendmail -t"; # File location of the member info $puds_file = "puds.txt"; &pagestart; open(INFO,"+>>$puds_file"); flock INFO, 2; seek INFO, 0, 0; @puds = ; @new_puds = (); foreach $pud (@puds){ chomp($pud); ($title, $author, $userid, $email, $plat, $lang, $type, $status, $description, $date, $ss, $days, $monthday) = split(/\|/,$pud); ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); if ($mday != $monthday) { $days++; if ($days == 30) { &sendwarn; } } if ($days < 55 ) { &dispinfo($title, $author, $userid, $email, $plat, $lang, $type, $status, $description, $date, $ss); $pud = "$title|$author|$userid|$email|$plat|$lang|$type|$status|$description|$date|$ss|$days|$mday\n"; push @new_puds, $pud; } } seek INFO, 0, 0; truncate INFO, 0; print INFO @new_puds; close(INFO); &pageend; sub pagestart { print $query->header; print< Programs Under Development (PUDs)

Programs Under Development (PUDs)
Programs That the Members are Currently Creating

HOME >> Program Archives >> Programs Under Development (PUDs)

Submit Your PUD: If you have a program that you are currently creating and would like to post it here, in the PUDs page, you need to submit it. However, for you to submit a PUD, you must currently be a member of BASIC Guru Online. You can sign-up for membership in the Members Home Page. If you are currently a member, then you can proceed to submit your PUD information.

Update Your PUD: If your PUD is currently on this page and you want to update anything about it (espcially the status or add a screenshot), then send an email to pudupdate\@basicguruonline.com. Make sure to include your Name, UserName, and User ID\#. If the new status of your PUD is that it is currently being tested, you can submit the .zip file along with it so that people who view the PUD can also download it to test it.

HEADING } sub pageend { print<

Problems with this page?
Contact the Webmaster. ENDING } sub dispinfo { print< $title

PUD ($stat,$file) = split(/\*/,$status); if ($file) { print ""; } print<

Author:	$author
Platform:	$plat
Language:	$lang
Type:	$type
Status:	$stat"; } else { print "	$status
Description:	$description
Date Posted:	$date

PUD2 if ($ss ne 'null') { open(FILE,"$ss"); read(FILE, $dat, 6); read(FILE, $dat, 4); close(FILE); ($width, $height) = unpack("SS", $dat); if ($width <= 150) { $width *= 2; $height *= 2; } if ($width > 300) { $width /= 2; $height /= 2; } print< SHOT } else { print< SHOT } print<

ENDPUD } sub sendwarn { open(MAIL, "|$sendmail"); print MAIL <