text_combined: marcus meissner xullbgtvsusede wed feb 13 2008 065915pm 0100 m9 wrote greg freemyer schreef feb 13 2008 1231 pm anders johansson wrote wednesday 13 february 2008 182147 anders johansson wrote im pretty sure ive seen update channel test updates nope wrong though tested anders 103 rcs couple test updates sure became available dont think alpha releases anything greg none updater available early time testupdates 103 betas rcs plan 110 betas rcs ciao marcus unsubscribe email assipqffnmekprykassopensuseorg additional commands email qybuovjskcmhopensuseorg jqttpvdz00gmailcom sun feb 24 103050 2008 afbwukvkuzblperlorg jqttpvdz00gmailcom subject undefined subroutine paramadmin eq date tue 19 feb 2008 164621 0800 pst messageid 8dc2291a53884f749e3afda052b5f983d5g2000hscgooglegroupscom mimeversion 10 contenttype textplain charsetiso88591 contenttransferencoding 7bit im using web developer server suite community edition pretty much box windowsxp script worked fine lamp system although sure apache modules loaded beginning wonder missing configuration allow paramadmin eq error software error undefined subroutine mainparam called cwwwvhostslocalhost cgibinstafiopl line 33 script cwwwperlbinperlexe use cgicarp qwfatalstobrowser organizational inout board configuration data require cwwwperllibdatapathstafioph turn debugging output parameter debugging paramdebug 1 0 print header refresh css header proper print start_htmltitlestaff inout organization stylesrccwwwapache22manualstylecssmanualcss headmetahttp_equivrefreshcontent60 get user information memory users get_users paramadmin eq admin interface adddelete users paramapswd got password validate paramapswd eq adminpass good password check add delete paramuserid put_a_user paramuserid parampswd paramname paramextension paramlocation paramreturn paramemail paramlocstring paramaim users get_users display_inout_board users else val paramdelme foreach val file datapath_ext unlink file users get_users display_inout_board users else report invalid administrative password print eof invalid password password entered incorrect use browsers back function try eof else put form something including getting admin password admin else paramuserid parampswd sent password validate change status isvalidpswdusersparamuseridpswdparampswd change status put_a_user paramuserid usersparamuseridpswd usersparamuseridname usersparamuseridextension paramlocation paramreturn usersparamuseridemail paramlocstring usersparamuseridaim users get_users display_inout_board users else report invalid password print eof invalid password password entered incorrect use browsers back function try eof elsif paramnewpswd paramnewpswd2 weve got new password confirm rewrite isvalidpswdusersparamuserid pswdparamoldpswd check new passwords match paramnewpswd eq paramnewpswd2 rewrite user record put_a_user paramuserid paramnewpswd paramname paramextension paramlocation paramreturn paramemail paramaim users get_users display_inout_board users else report mismatched new passwords print eof mismatched new passwords new passwords match use browsers back function try eof else report invalid password print eof invalid password old password incorrect use browsers back function try eof else put form get new password user change_password paramuserid usersparamuseridpswd usersparamuseridname usersparamuseridextension usersparamuseridlocation usersparamuseridreturn usersparamuseridemail usersparamuseridaim else password userid need put form let user change location return change_statusparamuserid usersparamuserid email else display_inout_board users end adminelse print end_html exit subroutines sub admin administration form adddelete users _ add user print start_formmethodpost actionstafiopl print eof add useradmin password user id user name phone extension aim address email address password location eof foreach locations print _n print eof location text return eof delete user print start_formmethodpost actionstafiopl print eof deleteadmin password eof foreach usr sort keys users print eof usersusrname eof print eof eof end admin sub change_password user gets form change password userid pswd name extension location return email aim _ print h1change password print start_formmethodpost actionstafiopl print eof old password new password confirm password eof end change_password sub change_status user gets form change location andor return time userid email _ print h1change status print change passwordn print start_formmethodpost actionstafiopl print eof useruserid password location eof foreach locations print _n print eof location text return eof end change_status sub display_inout_board display table user data users _ print n print n print n print h1organization staff io board print h1organization h2in board print eof name extension location returning aim eof foreach usr sort keys users print eof usersusrname usersusrextension usersusrlocation usersusrreturn usersusraim eof print n print n print h2staff directoryn print n end display_inout_board sub get_a_user retrieve data one user file _ userid pswd name extension loc time email aim file datapathfile open file try_later1 foreach userid file ext pswd name extension loc time email aim split delim _ close return userid pswd name extension loc time email aim end get_a_user sub get_users get user data hash hashes keyed userid u files file userid pswd name extension loc time email aim opendir datadir datapath try_later2 files grep ext readdir datadir closedir datadir foreach file files userid pswd name extension loc time email aim get_a_user file uuseridpswd pswd uuseridname name uuseridextension extension uuseridlocation loc uuseridreturn time uuseridemail email uuseridaim aim return u end get_users sub isvalidpswd validate password userid return 1 true password valid u p _ return 0 p eq bosspass return 1 else return u eq p 1 0 return return end isvalidpswd sub put_a_user write new data one user userid pswd name extension loc return email locstr aim _ locstr tr locstr unknown unless length locstr 1 loc locstr loc eq return unless return file datapathuseridext open file try_later3 print pswddelimnamedelimextensiondelimlocdelimreturn delimemaildelimaim close end put_a_user sub try_later minimal error handling localerrnum _ print h2unable open file reading errnum 1 print h2unable find data files errnum 2 print h2unable open file writing errnum 3 print h2please try later print end_html exit end try_later henccgdmmhlfpplephhg contenttype messagerfc822 contentdisposition inline filenamebeginnerscgi_13167ezm amuhlazymountaincom sun feb 24 103050 2008 greg jetter afbwukvkuzblperlorg subject undefined subroutine paramadmin eq date wed 20 feb 2008 083847 0900 mimeversion 10 contenttype textplain charsetiso88591 contenttransferencoding 7bit messageid 20080220083847595greglazymountaincom tuesday february 19 2008 346 pm jqttpvdz00gmailcom wrote im using web developer server suite community edition pretty much box windowsxp script worked fine lamp system although sure apache modules loaded beginning wonder missing configuration allow paramadmin eq error software error undefined subroutine mainparam called cwwwvhostslocalhost cgibinstafiopl line 33 missing function called param reason loaded use quit bit code defined must loaded call use require see comments script cwwwperlbinperlexe use cgicarp qwfatalstobrowser organizational inout board configuration data require cwwwperllibdatapathstafioph reads insure paths additional libraries correct greg henccgdmmhlfpplephhg contenttype messagerfc822 contentdisposition inline filenamebeginnerscgi_13168ezm bonvqfmyoemsgzprincipalcom sun feb 24 103050 2008 mimeversion 10 subject undefined subroutine paramadmin eq date wed 20 feb 2008 165809 0600 messageid hellman matthew contenttype textplain charsetusascii contenttransferencoding quotedprintable want use function oriented interface cgi need import functions see httpsearchcpanorgldscgipm333cgipmprogramming_style example httpsearchcpanorgldscgipm333cgipma_complete_example_of_a_s imple_formbased_script original message jqttpvdz00gmailcom mailtojqttpvdz00gmailcom sent tuesday february 19 2008 646 pm afbwukvkuzblperlorg subject undefined subroutine paramadmin eq im using web developer server suite community edition pretty much box windowsxp script worked fine lamp system although sure apache modules loaded beginning wonder missing configuration allow paramadmin eq error software error undefined subroutine mainparam called cwwwvhostslocalhost cgibinstafiopl line 33 script cwwwperlbinperlexe use cgicarp qwfatalstobrowser organizational inout board configuration data require cwwwperllibdatapathstafioph turn debugging output parameter debugging 3d paramdebug 1 0 print header refresh css header proper print start_htmltitle3dstaff inout organization style3dsrc3dcwwwapache22manualstylecssmanualcss head3dmetahttp_equiv3drefreshcontent3d60 get user information memory users 3d get_users paramadmin eq admin interface adddelete users paramapswd got password validate paramapswd eq adminpass good password check add delete paramuserid put_a_user paramuserid parampswd paramname paramextension paramlocation paramreturn paramemail paramlocstring paramaim users 3d get_users display_inout_board users else val 3d paramdelme foreach val file 3d datapath_ext unlink file users 3d get_users display_inout_board users else report invalid administrative password print eof invalid password password entered incorrect use browsers back function try eof else put form something including getting admin password admin else paramuserid parampswd sent password validate change status isvalidpswdusersparamuseridpswdparampswd change status put_a_user paramuserid usersparamuseridpswd usersparamuseridname usersparamuseridextension paramlocation paramreturn usersparamuseridemail paramlocstring usersparamuseridaim users 3d get_users display_inout_board users else report invalid password print eof invalid password password entered incorrect use browsers back function try eof elsif paramnewpswd paramnewpswd2 weve got new password confirm rewrite isvalidpswdusersparamuserid pswdparamoldpswd check new passwords match paramnewpswd eq paramnewpswd2 rewrite user record put_a_user paramuserid paramnewpswd paramname paramextension paramlocation paramreturn paramemail paramaim users 3d get_users display_inout_board users else report mismatched new passwords print eof mismatched new passwords new passwords match use browsers back function try eof else report invalid password print eof invalid password old password incorrect use browsers back function try eof else put form get new password user change_password paramuserid usersparamuseridpswd usersparamuseridname usersparamuseridextension usersparamuseridlocation usersparamuseridreturn usersparamuseridemail usersparamuseridaim else password userid need put form let user change location return change_statusparamuserid usersparamuserid email else display_inout_board users end adminelse print end_html exit subroutines sub admin administration form adddelete users 3d _ add user print start_formmethod3dpost action3dstafiopl print eof add useradmin passwordname3dapswd value3d size3d20 maxlength3d20 user idvalue3duserid size3d25 user namevalue3dname size3d25 phone extensionname3dextension value3dextension size3d10 aim addressname3daim value3daim size3d25 email addressname3demail value3demail size3d25 passwordname3dpswd value3d size3d20 maxlength3d20 location eof foreach locations print _n print eof location textname3dlocstring value3d size3d25 return byname3dreturn value3d size3d10 eof delete user print start_formmethod3dpost action3dstafiopl print eof deleteadmin passwordname3dapswd value3d size3d20 maxlength3d20 eof foreach usr sort keys users print eof usersusrname eof print eof eof end admin sub change_password user gets form change password userid pswd name extension location return email aim 3d _ print h1change password print start_formmethod3dpost action3dstafiopl print eof old passwordname3doldpswd value3d size3d20 maxlength3d20 new passwordname3dnewpswd value3d size3d20 maxlength3d20 confirm passwordname3dnewpswd2 value3d size3d20 maxlength3d20 eof end change_password sub change_status user gets form change location andor return time userid email 3d _ print h1change status print change passwordn print start_formmethod3dpost action3dstafiopl print eof useruserid passwordname3dpswd value3d size3d20 maxlength3d20 location eof foreach locations print _n print eof location textname3dlocstring value3d size3d25 return byname3dreturn value3d size3d10 eof end change_status sub display_inout_board display table user data users 3d _ print n print n print n print h1organization staff io board print h1organization h2in board print eof name extension location returning aim eof foreach usr sort keys users print eof usersusrnamea usersusrextension usersusrlocationtd usersusrreturn usersusraim eof print n print n print h2staff directoryn print n end display_inout_board sub get_a_user retrieve data one user file 3d _ userid pswd name extension loc time email aim file 3d datapathfile open file try_later1 foreach userid 3d file 3d ext pswd name extension loc time email aim 3d split delim _ close return userid pswd name extension loc time email aim end get_a_user sub get_users get user data hash hashes keyed userid u 3d files file userid pswd name extension loc time email aim opendir datadir datapath try_later2 files 3d grep ext readdir datadir closedir datadir foreach file files userid pswd name extension loc time email aim 3d get_a_user file uuseridpswd 3d pswd uuseridname 3d name uuseridextension 3d extension uuseridlocation 3d loc uuseridreturn 3d time uuseridemail 3d email uuseridaim 3d aim return u end get_users sub isvalidpswd validate password userid return 1 true password valid u p 3d _ return 3d 0 p eq bosspass return 3d 1 else return 3d u eq p 1 0 return return end isvalidpswd sub put_a_user write new data one user userid pswd name extension loc return email locstr aim 3d _ locstr 3d tr locstr 3d unknown unless length locstr 1 loc 3d locstr loc eq return 3d unless return file 3d datapathuseridext open file try_later3 print pswddelimnamedelimextensiondelimlocdelimreturn delimemaildelimaim close end put_a_user sub try_later minimal error handling localerrnum 3d _ print h2unable open file reading errnum 3d3d 1 print h2unable find data files errnum 3d3d 2 print h2unable open file writing errnum 3d3d 3 print h2please try later print end_html exit end try_later unsubscribe email utxpucvywmgwlorgutxpucvperlorg additional commands email isjidlzkoaxnvxgqperlorg httplearnperlorg message disclaimer email message intended use individual entity addressed may contain information privileged confidential exempt disclosure applicable law intended recipient dissemination distribution copying communication strictly prohibited received communication error please notify us immediately reply email ameysrgprincipalcom delete destroy copies original message attachments thereto email sent principal financial group member companies may retained required law regulation nothing message intended constitute electronic signature purposes uniform electronic transactions act ueta electronic signatures global national commerce act esign unless specific statement contrary included message communication may used promote market transaction idea discussed publication intended provide general information subject matter covered provided understanding principal rendering legal accounting tax advice marketed opinion may used avoid penalties internal revenue code consult appropriate counsel advisors matters pertaining legal tax accounting obligations requirements henccgdmmhlfpplephhg wed 06 aug 2008 055844 0100 opensuse 110 a2 updater question