YOURaff $verzija

#!/usr/bin/perl ########################################################## # *** aff.lib *** # # This script is a part of the following program: # # ---- YOURaff 1.0 ---- # # Script Copyright (c) YOURsoft 2002 and on. # All rights reserved. http://www.yoursoft-tm.com # # Selling the code for this program without prior written consent is # expressly forbidden. Obtain permission before redistributing this # program over the Internet or in any other medium. In all cases # copyright and header must remain intact. # # By using this code you agree to indemnify YOURsoft from any # liability that might arise from it's use. # # Questions, suggestions, comments: www.yoursoft-tm.com # ########################################################## ################### DO NOT EDIT BELOW #################### &variables; sub variables { open(FILE,"variables.dat"); while () { chomp; ($name,$value)=split(/\=/,$_); $$name=$value; } } sub napaka { my($problem) = @_; print "Content-type: text/html\n\n"; print qq~ YOURaff $verzija

$izrazi{error}

$problem

~; exit; } sub error { my($problem) = @_; print "Content-type: text/html\n\n"; print qq~ YOURaff $verzija

$izrazi{error}

$problem

~; exit; } sub mygmtime { ($etime) = @_; @months = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug", "Sep","Oct","Nov","Dec"); @days = ("Sun","Mon","Tue","Wed","Thu","Fri","Sat"); ($sec,$min,$hr,$mday,$mon,$yr,$wday,$yday,$isdst) = gmtime($etime); $timestr = sprintf("%3s, %02d-%3s-%4d %02d:%02d:%02d GMT", $days[$wday],$mday,$months[$mon],$yr+1900,$hr,$min,$sec); return $timestr; } 1;