Tatsuki SUGIURA
sugi****@users*****
2006年 7月 12日 (水) 20:41:43 JST
Index: slashjp/docs/boilerplates/command-line diff -u slashjp/docs/boilerplates/command-line:1.2 slashjp/docs/boilerplates/command-line:1.3 --- slashjp/docs/boilerplates/command-line:1.2 Wed Dec 22 05:54:53 2004 +++ slashjp/docs/boilerplates/command-line Wed Jul 12 20:41:43 2006 @@ -1,15 +1,15 @@ #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. -# Copyright 1997-2004 by Open Source Development Network. See README +# Copyright 1997-2005 by Open Source Technology Group. See README # and COPYING for more information, or see http://slashcode.com/. -# $Id: command-line,v 1.2 2004/12/21 20:54:53 oliver Exp $ +# $Id: command-line,v 1.3 2006/07/12 11:41:43 sugi Exp $ use strict; use File::Basename; use Getopt::Std; # more modules -(my $VERSION) = ' $Revision: 1.2 $ ' =~ /\$Revision:\s+([^\s]+)/; +(my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); my %opts; @@ -63,7 +63,7 @@ $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. -Copyright 1997-2004 by Open Source Development Network. See README +Copyright 1997-2005 by Open Source Technology Group. See README and COPYING for more information, or see http://slashcode.com/. EOT Index: slashjp/docs/boilerplates/module diff -u slashjp/docs/boilerplates/module:1.2 slashjp/docs/boilerplates/module:1.3 --- slashjp/docs/boilerplates/module:1.2 Wed Dec 22 05:54:53 2004 +++ slashjp/docs/boilerplates/module Wed Jul 12 20:41:43 2006 @@ -1,7 +1,7 @@ # This code is a part of Slash, and is released under the GPL. -# Copyright 1997-2004 by Open Source Development Network. See README +# Copyright 1997-2005 by Open Source Technology Group. See README # and COPYING for more information, or see http://slashcode.com/. -# $Id: module,v 1.2 2004/12/21 20:54:53 oliver Exp $ +# $Id: module,v 1.3 2006/07/12 11:41:43 sugi Exp $ package Slash::MODULE; @@ -28,7 +28,7 @@ use base 'Exporter'; use vars qw($VERSION @EXPORT @EXPORT_OK); -($VERSION) = ' $Revision: 1.2 $ ' =~ /\$Revision:\s+([^\s]+)/; +($VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; @EXPORT = qw(); @EXPORT_OK = qw(); @@ -165,4 +165,4 @@ =head1 VERSION -$Id: module,v 1.2 2004/12/21 20:54:53 oliver Exp $ +$Id: module,v 1.3 2006/07/12 11:41:43 sugi Exp $ Index: slashjp/docs/boilerplates/task diff -u /dev/null slashjp/docs/boilerplates/task:1.1.2.1 --- /dev/null Wed Jul 12 20:41:43 2006 +++ slashjp/docs/boilerplates/task Wed Jul 12 20:41:43 2006 @@ -0,0 +1,23 @@ +#!/usr/bin/perl -w +# This code is a part of Slash, and is released under the GPL. +# Copyright 1997-2005 by Open Source Technology Group. See README +# and COPYING for more information, or see http://slashcode.com/. +# $Id: task,v 1.1.2.1 2006/07/12 11:41:43 sugi Exp $ + +use strict; + +use Slash::Constants ':slashd'; + +use vars qw( %task $me ); + +$task{$me}{timespec} = '0 0 0 * *'; +$task{$me}{timespec_panic_1} = 1; # if panic, this can wait +$task{$me}{fork} = SLASHD_NOWAIT; +$task{$me}{code} = sub { + my($virtual_user, $constants, $slashdb, $user, $info, $gSkin) = @_; + + +}; + +1; + Index: slashjp/docs/boilerplates/web diff -u slashjp/docs/boilerplates/web:1.2 slashjp/docs/boilerplates/web:1.3 --- slashjp/docs/boilerplates/web:1.2 Wed Dec 22 05:54:53 2004 +++ slashjp/docs/boilerplates/web Wed Jul 12 20:41:43 2006 @@ -1,8 +1,8 @@ #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. -# Copyright 1997-2004 by Open Source Development Network. See README +# Copyright 1997-2005 by Open Source Technology Group. See README # and COPYING for more information, or see http://slashcode.com/. -# $Id: web,v 1.2 2004/12/21 20:54:53 oliver Exp $ +# $Id: web,v 1.3 2006/07/12 11:41:43 sugi Exp $ # this program does some really cool stuff. # so i document it here. yay for me! @@ -14,7 +14,7 @@ use Slash::Utility; use vars qw($VERSION); -($VERSION) = ' $Revision: 1.2 $ ' =~ /\$Revision:\s+([^\s]+)/; +($VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; # this is an example main(). feel free to use what you think @@ -25,6 +25,7 @@ my $constants = getCurrentStatic(); my $user = getCurrentUser(); my $form = getCurrentForm(); + my $gSkin = getCurrentSkin(); # possible value of "op" parameter in form my %ops = ( @@ -45,7 +46,7 @@ header(getData('header')) or return; # from data;SCRIPTNAME;default # dispatch of op - $ops{$op}[FUNCTION]->($slashdb, $constants, $user, $form); + $ops{$op}[FUNCTION]->($slashdb, $constants, $user, $form, $gSkin); # writeLog('SOME DATA'); # if appropriate footer();
スラド