Menu
▾
▴
sandweb-commit — CVS activity
You can subscribe to this list here.
| 2001 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
(28) |
Nov
(58) |
Dec
(85) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2002 |
Jan
(125) |
Feb
(222) |
Mar
(274) |
Apr
(51) |
May
(22) |
Jun
(50) |
Jul
(15) |
Aug
(33) |
Sep
(11) |
Oct
(29) |
Nov
(17) |
Dec
(1) |
| 2003 |
Jan
(100) |
Feb
(21) |
Mar
(7) |
Apr
(45) |
May
|
Jun
(43) |
Jul
(27) |
Aug
(24) |
Sep
|
Oct
|
Nov
|
Dec
|
| 2004 |
Jan
(1) |
Feb
|
Mar
(13) |
Apr
|
May
(1) |
Jun
|
Jul
|
Aug
(7) |
Sep
|
Oct
|
Nov
|
Dec
(4) |
| 2005 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(1) |
|
From: Rob H. <for...@us...> - 2003-01-07 03:50:10
|
Update of /cvsroot/sandweb/sandweb/doc In directory sc8-pr-cvs1:/tmp/cvs-serv17889/doc Removed Files: dependencies.list Log Message: on second that, dependencies.list is redundant. I merged it's info into INSTALL, so now we have good dependency info, right where a new SandWeb admin will look when they go to install. --- dependencies.list DELETED --- |
|
From: Rob H. <for...@us...> - 2003-01-07 03:41:37
|
Update of /cvsroot/sandweb/sandweb/doc In directory sc8-pr-cvs1:/tmp/cvs-serv16038 Modified Files: dependencies.list Log Message: updated dependencies, listed stuff that'll work on both Unix and Windows ( under Cygwin ), what versions we tested under, and where to get them from. Index: dependencies.list =================================================================== RCS file: /cvsroot/sandweb/sandweb/doc/dependencies.list,v retrieving revision 1.4 retrieving revision 1.5 diff -U2 -r1.4 -r1.5 --- dependencies.list 4 Apr 2002 19:26:23 -0000 1.4 +++ dependencies.list 7 Jan 2003 03:41:34 -0000 1.5 @@ -1,10 +1,24 @@ -Sandweb has the following dependencies. +SandWeb has the following dependencies. -* perl 5.6 -* expect 5.28.1+ -perl modules: -* expat (v1.95.1+) -* XML::Parser (v2.30+) -* XML::Simple (v1.05+) -* HTML::Template (v2.2+) +Unix programs ( available from perl.org, gnu.org and apache.org ) : + +( Windows users download setup.exe from http://www.cygwin.com, these + are all available as Cygwin packages ) + +* perl ( tested with 5.6 ) +* expect ( tested with 5.2.1 ) +* file ( tested with 3.28-1 ) +* apache ( tested with 1.3.x ) +* make ( testing with 3.x ) +* cvs ( tested with 1.11 ) + +Perl modules ( from http://search.cpan.org ) : + +* HTML-Template ( tested with 2.6 ) +* Test-Harness ( tested with 2.26 ) +* Test-Simple ( tested with 0.47 ) +* XML-NamespaceSupport ( tested with 1.08 ) +* XML-SAX ( tested with 0.12 ) +* XML-Simple ( tested with 2.02 ) + |
|
From: Rob H. <for...@us...> - 2003-01-06 09:51:41
|
Update of /cvsroot/sandweb/sandweb In directory sc8-pr-cvs1:/tmp/cvs-serv18081 Modified Files: MANIFEST Log Message: API docs removed. Index: MANIFEST =================================================================== RCS file: /cvsroot/sandweb/sandweb/MANIFEST,v retrieving revision 1.16 retrieving revision 1.17 diff -U2 -r1.16 -r1.17 --- MANIFEST 6 Jan 2003 08:15:20 -0000 1.16 +++ MANIFEST 6 Jan 2003 09:51:38 -0000 1.17 @@ -62,6 +62,4 @@ doc/dependencies.list -doc/API/File.txt -doc/API/Repository.txt images/sandweb-logo.png |
|
From: Rob H. <for...@us...> - 2003-01-06 09:50:37
|
Update of /cvsroot/sandweb/sandweb/doc/API/Repository In directory sc8-pr-cvs1:/tmp/cvs-serv17734/API/Repository Removed Files: cvs.txt Log Message: these have all been moved into POD format. --- cvs.txt DELETED --- |
|
From: Rob H. <for...@us...> - 2003-01-06 09:50:37
|
Update of /cvsroot/sandweb/sandweb/doc/API/File In directory sc8-pr-cvs1:/tmp/cvs-serv17734/API/File Removed Files: Unix.txt Log Message: these have all been moved into POD format. --- Unix.txt DELETED --- |
|
From: Rob H. <for...@us...> - 2003-01-06 09:50:37
|
Update of /cvsroot/sandweb/sandweb/doc/API/Auth In directory sc8-pr-cvs1:/tmp/cvs-serv17734/API/Auth Removed Files: FlatFile.txt Log Message: these have all been moved into POD format. --- FlatFile.txt DELETED --- |
Update of /cvsroot/sandweb/sandweb/doc/API In directory sc8-pr-cvs1:/tmp/cvs-serv17734/API Removed Files: Auth.txt Browse.txt Config.txt Diff.txt File.txt Log.txt Repository.txt Security.txt Shell.txt UI.txt Log Message: these have all been moved into POD format. --- Auth.txt DELETED --- --- Browse.txt DELETED --- --- Config.txt DELETED --- --- Diff.txt DELETED --- --- File.txt DELETED --- --- Log.txt DELETED --- --- Repository.txt DELETED --- --- Security.txt DELETED --- --- Shell.txt DELETED --- --- UI.txt DELETED --- |
|
From: Rob H. <for...@us...> - 2003-01-06 09:49:33
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb/Repository In directory sc8-pr-cvs1:/tmp/cvs-serv17142/Repository Modified Files: cvs.pm Log Message: all API docs transferred from docs/API to POD. some need to be formatted better, and some of the docs are incomplete, but it's really close now :) Index: cvs.pm =================================================================== RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository/cvs.pm,v retrieving revision 1.35 retrieving revision 1.36 diff -U2 -r1.35 -r1.36 --- cvs.pm 5 Jan 2003 08:59:08 -0000 1.35 +++ cvs.pm 6 Jan 2003 09:49:30 -0000 1.36 @@ -1,7 +1,1726 @@ +=pod +=head1 + +SandWeb::Repository::cvs + +-------------------------------------------------------------------------------- +METHOD + new + +SYNOPSIS + [...1698 lines suppressed...] + +RETURN CODE + + A string containing the current system password for an instantiated CVS + object is returned. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + + #lib/SandWeb/Repository/cvs.pm # - -=pod -=head1 SandWeb::Repository::cvs |
|
From: Rob H. <for...@us...> - 2003-01-06 09:49:33
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb/File In directory sc8-pr-cvs1:/tmp/cvs-serv17142/File Modified Files: Unix.pm Log Message: all API docs transferred from docs/API to POD. some need to be formatted better, and some of the docs are incomplete, but it's really close now :) Index: Unix.pm =================================================================== RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File/Unix.pm,v retrieving revision 1.7 retrieving revision 1.8 diff -U2 -r1.7 -r1.8 --- Unix.pm 5 Jan 2003 08:59:08 -0000 1.7 +++ Unix.pm 6 Jan 2003 09:49:30 -0000 1.8 @@ -1,7 +1,441 @@ -#lib/SandWeb/File/Unix.pm -# - =pod =head1 + +# lib/SandWeb/File/Unix.pm +# +# This class handles all file viewing and operations on Unix systems. +# It is only intended to be called by the File class. +-------------------------------------------------------------------------------- +METHOD + new + +SYNOPSIS + + my $file = SandWeb::File->new( + location => $location; + filename => $filename; + ); + + +DESCRIPTION + + This method is a constructor. It needs to know the location of the + file as well as the name of the file. + +PARAMETERS + + location (type: string) (required) + + This contains the full ( absolute or relative ) path + to the file, as far as the file system is concerned. + + Default: none. + + filename (type: string) (required) + + This contains the full name of the file, as far as the + file system is concerned. + + Default: none. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- + +METHOD + get_owner + +SYNOPSIS + + my $owner = $file->get_owner(); + +DESCRIPTION + + Returns the UID of the owner of the file. + +PARAMETERS + + None. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- + +METHOD + get_group + +SYNOPSIS + + my $group = $file->get_group(); + +DESCRIPTION + + Returns the GID of the group membership of the file. + +PARAMETERS + + None. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- + +METHOD + get_filename + +SYNOPSIS + + my $filename = $file->get_filename(); + +DESCRIPTION + + Returns the full name of the file. + +PARAMETERS + + None. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- + +METHOD + get_location + +SYNOPSIS + + my $location = $file->get_location(); + +DESCRIPTION + + Returns the full ( absolute or relative ) path + to the file. + +PARAMETERS + + None. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- + +METHOD + get_permissions + +SYNOPSIS + + my $permissions = $file->get_permissions(); + +DESCRIPTION + + Returns the current file system permissions, + as an octal value. + +PARAMETERS + + None. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- + +METHOD + get_file_type + +SYNOPSIS + + my $file_type = $file->get_file_type(); + +DESCRIPTION + + Returns Perl's guess as to what type of file + this is. Type returned one of : Binary, Text, + Directory or Unknown. + +PARAMETERS + + None. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- + +METHOD + get_size + +SYNOPSIS + + my $file_size = $file->get_size(); + +DESCRIPTION + + Returns the size of the file, in bytes. + +PARAMETERS + + None. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- + +METHOD + get_age + +SYNOPSIS + + my $age = $file->get_age(); + +DESCRIPTION + + Returns the date of the last modification to this + file, in local time ( day month date time year ). + +PARAMETERS + + None. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- + +METHOD + create_file + +SYNOPSIS + + my $return = $file->create_file(); + +DESCRIPTION + + Creates a file, using the filename passed to the constructor. + +PARAMETERS + + None. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- + +METHOD + create_folder + +SYNOPSIS + + my $return = $file->create_folder(); + +DESCRIPTION + + Creates a folder ( also known as a directory ) using the + filename passed to the constructor. + +PARAMETERS + + None. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- + +METHOD + copy + +SYNOPSIS + + my $return = $file->copy( tofile => "alternate_name.c" ); + +DESCRIPTION + + Creates an exact copy of the file. + +PARAMETERS + + tocopy (type: string) (required) + Contains the full path and filename of the copy. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- + +METHOD + rename + +SYNOPSIS + + my $return = $file->rename( tofile => "alternate_name.c" ); + +DESCRIPTION + + Renames an existing file. This is the same thing as a move, + as far as the file system and operating system are concerned. + +PARAMETERS + + tocopy (type: string) (required) + Contains the full path and filename of the new file. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- + +METHOD + remove_file + +SYNOPSIS + + my $return = $file->remove_file(); + +DESCRIPTION + + Removes the file specified in the constructor. + +PARAMETERS + + none. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- + +METHOD + remove_folder + +SYNOPSIS + + my $return = $file->remove_folder(); + +DESCRIPTION + + Removes the folder specified in the constructor. + +PARAMETERS + + none. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +#lib/SandWeb/File/Unix.pm +# SandWeb::File::Unix |
|
From: Rob H. <for...@us...> - 2003-01-06 09:49:33
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb/Auth In directory sc8-pr-cvs1:/tmp/cvs-serv17142/Auth Modified Files: FlatFile.pm Log Message: all API docs transferred from docs/API to POD. some need to be formatted better, and some of the docs are incomplete, but it's really close now :) Index: FlatFile.pm =================================================================== RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Auth/FlatFile.pm,v retrieving revision 1.8 retrieving revision 1.9 diff -U2 -r1.8 -r1.9 --- FlatFile.pm 5 Jan 2003 08:59:08 -0000 1.8 +++ FlatFile.pm 6 Jan 2003 09:49:30 -0000 1.9 @@ -1,7 +1,99 @@ +=pod +=head1 + # SandWeb FlatFile authentication module # +# lib/SandWeb/Auth/FlatFile.pm +# +# This class verifies MD5 passwords for a given username, and returns +# true if the user if authentic, false if not. +-------------------------------------------------------------------------------- -=pod -=head1 +METHOD + new + +SYNOPSIS + + my $flatfile = SandWeb::Auth::FlatFile::->new( + 'log_obj' => $log, + ); + +DESCRIPTION + + This method is a constructor. + +PARAMETERS + + log_obj (type: string) (required) + + A reference to an instantiated log object. + + Default: none. + +RETURN CODES + + Returns a reference to a FlatFile object. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + +-------------------------------------------------------------------------------- + +METHOD + + verify_password + +SYNOPSIS + + my $user_is_authentic = $flatfile->verify_password( + username => $username, + password => $password, + user_dir => $user_dir, + salt => $salt, + }; + +DESCRIPTION + + This method verifies if a user is authentic or not by querying SandWeb's flat-file + database. + + +PARAMETERS + + username (type: string) (required) + + The current user's full username. + + Default: none. + + password (type: string) (required) + + The encrypted password to verify. + + Default: none. + + user_dir (type: string) (required) + + The root of where homedirs are stored. + + FIXME - why does verify_password need to know this? + + Default: none. + + salt (type: string) (required) + + The salt used for the encrypted password. + + Default: none. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + +# SandWeb FlatFile authentication module +# SandWeb::Auth::FlatFile |
|
From: Rob H. <for...@us...> - 2003-01-06 09:49:33
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb In directory sc8-pr-cvs1:/tmp/cvs-serv17142 Modified Files: Repository.pm Log Message: all API docs transferred from docs/API to POD. some need to be formatted better, and some of the docs are incomplete, but it's really close now :) Index: Repository.pm =================================================================== RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository.pm,v retrieving revision 1.48 retrieving revision 1.49 diff -U2 -r1.48 -r1.49 --- Repository.pm 5 Jan 2003 08:59:07 -0000 1.48 +++ Repository.pm 6 Jan 2003 09:49:30 -0000 1.49 @@ -1,7 +1,1654 @@ +=pod +=head1 + +SandWeb::Repository + +-------------------------------------------------------------------------------- +METHOD + new + +SYNOPSIS + [...1626 lines suppressed...] + +RETURN CODE + + A string containing the current system password for an instantiated Repository + object is returned. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + + #lib/SandWeb/Repository.pm # - -=pod -=head1 SandWeb::Repository |
|
From: Rob H. <for...@us...> - 2003-01-06 09:46:20
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb In directory sc8-pr-cvs1:/tmp/cvs-serv16252 Modified Files: Log.pm Security.pm Shell.pm UI.pm Log Message: catching up more PODs to the state of the API docs.. Index: Log.pm =================================================================== RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Log.pm,v retrieving revision 1.13 retrieving revision 1.14 diff -U2 -r1.13 -r1.14 --- Log.pm 5 Jan 2003 08:59:07 -0000 1.13 +++ Log.pm 6 Jan 2003 09:46:16 -0000 1.14 @@ -42,7 +42,30 @@ -new +METHOD + new - instantiates a new object +SYNOPSIS + + +DESCRIPTION + + +PARAMETERS + + parameter (type: string) (required) + + Default: none. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- =cut @@ -66,7 +89,32 @@ =head1 -standard +METHOD + + standard + +SYNOPSIS + + +DESCRIPTION + + +PARAMETERS + + parameter (type: string) (required) + + Default: none. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- - logs with "standard" severity =cut @@ -82,7 +130,31 @@ =head1 -debug +METHOD + + debug + +SYNOPSIS + + +DESCRIPTION + - logs with "debug" severity +PARAMETERS + + parameter (type: string) (required) + + Default: none. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- =cut @@ -105,7 +177,31 @@ =head1 -error +METHOD + + error + +SYNOPSIS + + +DESCRIPTION + + +PARAMETERS + + parameter (type: string) (required) + + Default: none. - logs with "error" severity +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- =cut @@ -121,7 +217,30 @@ =head1 -get_debug_msgs +METHOD + + get_debug_msgs + +SYNOPSIS + + +DESCRIPTION + + +PARAMETERS + + parameter (type: string) (required) + + Default: none. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. - returns the debug messages =cut Index: Security.pm =================================================================== RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Security.pm,v retrieving revision 1.2 retrieving revision 1.3 diff -U2 -r1.2 -r1.3 --- Security.pm 5 Jan 2003 08:59:07 -0000 1.2 +++ Security.pm 6 Jan 2003 09:46:16 -0000 1.3 @@ -43,8 +43,32 @@ =head1 -new +METHOD + new + +SYNOPSIS + + +DESCRIPTION instantiates a new object + +PARAMETERS + + parameter (type: string) (required) + + Default: none. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- =cut @@ -58,8 +82,33 @@ =head1 -path +METHOD + path + +SYNOPSIS + + +DESCRIPTION looks for and corrects common security problems with Unix directories + +PARAMETERS + + parameter (type: string) (required) + + Default: none. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- + =cut @@ -82,8 +131,33 @@ =head1 -shell +METHOD + shell + +SYNOPSIS + + +DESCRIPTION looks for and corrects common security problems with calling to the Unix shell + + +PARAMETERS + + parameter (type: string) (required) + + Default: none. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + + =cut Index: Shell.pm =================================================================== RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Shell.pm,v retrieving revision 1.23 retrieving revision 1.24 diff -U2 -r1.23 -r1.24 --- Shell.pm 5 Jan 2003 08:59:07 -0000 1.23 +++ Shell.pm 6 Jan 2003 09:46:16 -0000 1.24 @@ -62,8 +62,85 @@ Methods +METHOD + new -new +SYNOPSIS - instantiates a new object + my $shell = SandWeb::Shell->new( + 'vcs_username' => "$vcs_username", + 'vcs_password' => "$vcs_password", + 'system_username' => "$system_username", + 'system_password' => "$system_password", + 'bindir' => "$bindir", + 'system' => "$system", + 'vcs' => "$vcs", + 'log_obj' => $log, + ); + +DESCRIPTION + + This method is a constructor. + +PARAMETERS + + bindir (type: string) (required) + + the full path on the local box to SandWeb's scripts, like sandweb-expect and sandweb-admin + + Default: none. + + system_username (type: string) (optional) + + the user's OS username + + Default: none. + + system_password (type: string) (optional) + + the user's OS password + + Default: none. + + vcs_username (type: string) (optional) + + the user's VCS username + + Default: none. + + vcs_password (type: string) (optional) + + the user's VCS password + + Default: none. + + system (type: boolean) (optional) + + system is true if the user wants to authenticate with the OS, false if not + + Default: none. + + vcs (type: boolean) (optional) + + system is true if the user wants to authenticate with the VCS server, false if not + + Default: none. + + log (type: SandWeb::Log) (required) + + log is a reference to an object based on the SandWeb::Log class + + Default: none. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- =cut @@ -122,7 +199,39 @@ =head1 -execute +METHOD + execute + +SYNOPSIS + + my $output = $shell->execute( + command => $command, + ) + +DESCRIPTION + + This method carries out execution of a shell command. It decides how to use + sandweb-expect if the user wants to authenticate against the system (OS) or + a VCS server. + +PARAMETERS + + command (type: string) (required) + + the command to be executed. Returns a hash with the result in the "output" key + and the errorlevel in the "error" key. + + Default: none. - executes a given command +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- =cut @@ -305,7 +414,39 @@ =head1 -pipe +METHOD + pipe + +SYNOPSIS + + my $filehandle = $shell->pipe( + command => $command, + ) + +DESCRIPTION + + This method carries out execution of a shell command, and attaches + the command to a filehandle through a pipe. + +PARAMETERS + + command (type: string) (required) + + the command to be executed. Returns a filehandle which is a reference + to a pipe to the running command. + + Default: none. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- - opens a pipe to a file =cut Index: UI.pm =================================================================== RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/UI.pm,v retrieving revision 1.38 retrieving revision 1.39 diff -U2 -r1.38 -r1.39 --- UI.pm 5 Jan 2003 08:59:07 -0000 1.38 +++ UI.pm 6 Jan 2003 09:46:17 -0000 1.39 @@ -52,8 +52,31 @@ Methods +METHOD + new -new +SYNOPSIS + + +DESCRIPTION + + +PARAMETERS + + parameter (type: string) (required) + + Default: none. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- - instantiates a new object =cut @@ -76,7 +99,31 @@ =head1 -print_screen +METHOD + + print_screen + +SYNOPSIS + + +DESCRIPTION + + +PARAMETERS - prints out HTML + parameter (type: string) (required) + + Default: none. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- =cut @@ -127,7 +174,31 @@ =head1 -print_popup +METHOD + + print_popup + +SYNOPSIS + + +DESCRIPTION - prints an HTML "pop-up" window + +PARAMETERS + + parameter (type: string) (required) + + Default: none. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- =cut @@ -174,7 +245,31 @@ =head1 -get_menu_bar +METHOD + + get_menu_bar - gets the "menu bar" part of the HTML page +SYNOPSIS + + +DESCRIPTION + + +PARAMETERS + + parameter (type: string) (required) + + Default: none. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- =cut @@ -200,7 +295,31 @@ =head1 -get_menu +METHOD + + get_menu + +SYNOPSIS + + +DESCRIPTION + - get the "menu" part of the HTML template +PARAMETERS + + parameter (type: string) (required) + + Default: none. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. + +-------------------------------------------------------------------------------- =cut @@ -225,7 +344,30 @@ =head1 -get_javascript +METHOD + + get_javascript + +SYNOPSIS + + +DESCRIPTION + + +PARAMETERS + + parameter (type: string) (required) + + Default: none. + +RETURN CODES + + 1 = The operation completed successfully. + + 0 = This means that the method got an error proccessing your request. + Perhaps an invalid parameter? + + -1 = This return value means that there was not sufficient permision to + read the files specified, or they did not exist. - gets javascript content for the HTML template (if any) =cut |
|
From: Rob H. <for...@us...> - 2003-01-06 09:41:13
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory sc8-pr-cvs1:/tmp/cvs-serv13992
Modified Files:
Auth.pm Browse.pm Diff.pm File.pm
Log Message:
started copying the real API docs into the files as POD
Index: Auth.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Auth.pm,v
retrieving revision 1.23
retrieving revision 1.24
diff -U2 -r1.23 -r1.24
--- Auth.pm 5 Jan 2003 08:59:07 -0000 1.23
+++ Auth.pm 6 Jan 2003 09:41:09 -0000 1.24
@@ -36,4 +36,65 @@
use SandWeb::Auth::FlatFile;
+=head1
+
+--------------------------------------------------------------------------------
+
+METHOD
+ new
+
+SYNOPSIS
+
+ my $login = $auth->login(
+ 'log_obj' => $log,
+ 'data_dir' => $config->{'paths'}->{'data_dir'},
+ 'cookie_path' => $config->{'cookie'}->{'path'},
+ 'cookie_domain' => $config->{'cookie'}->{'domain'},
+ );
+
+
+DESCRIPTION
+
+ This method is a constructor.
+
+PARAMETERS
+
+ log_obj (type: string) (required)
+
+ This contains a reference to an instantiated log object.
+
+ Default: none.
+
+ data_dir (type: string) (required)
+
+ This is the path to SandWeb's data directory.
+
+ Default: none.
+
+ cookie_path (type: string) (required)
+
+ This is the path on the server side where cookie data is stored.
+
+ Default: none.
+
+ cookie_domain (type: string) (required)
+
+ This is the domain that we tell the browser this cookie belongs to.
+
+ Default: none.
+
+RETURN CODES
+
+ 1 = The operation completed successfully.
+
+ 0 = This means that the method got an error proccessing your request.
+ Perhaps an invalid parameter?
+
+ -1 = This return value means that there was not sufficient permision to
+ read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
+
+=cut
+
sub new {
my $class = shift;
@@ -51,4 +112,52 @@
}
+=head1
+METHOD
+
+ login
+
+SYNOPSIS
+
+ my $status = $auth->login(
+ username => $username,
+ password => $password,
+ salt => $salt,
+ );
+
+
+DESCRIPTION
+
+ This method checks the username, password and salt
+ sent to it for validity.
+
+PARAMETERS
+
+ username (type: string) (required)
+
+ Contains a username to check for authenticity.
+
+ Default: none.
+
+ username (type: string) (required)
+
+ Contains an encrypted password to check for authenticity.
+
+ Default: none.
+
+ username (type: string) (required)
+
+ Contains the salt for the encrypted password.
+
+ Default: none.
+
+RETURN CODES
+
+ 1 = The user is authentic.
+
+ 0 = The user is not authentic.
+
+--------------------------------------------------------------------------------
+
+=cut
sub login {
@@ -81,4 +190,35 @@
}
+=head1
+
+METHOD
+ load_user
+
+SYNOPSIS
+
+ my $status = $auth->load_user(
+ $cookie,
+ );
+
+DESCRIPTION
+
+ Attempts to validate user's auth cookie, and load the user's
+ settings into the global hashes.
+
+PARAMETERS
+
+ Takes value of the user's cookie as an argument.
+
+RETURN CODES
+
+ 1 = The cookie is valid, and the load completed successfully.
+
+ 0 = The cookie is not valid, the user info was not loaded.
+
+
+--------------------------------------------------------------------------------
+
+=cut
+
sub load_user {
# verifies cookie
@@ -98,4 +238,32 @@
}
+=head1
+
+METHOD
+ logout
+
+SYNOPSIS
+
+ my $stat = $auth->logout();
+
+DESCRIPTION
+
+ Logs a user out of SandWeb by removing their cookie.
+
+PARAMETERS
+
+ None.
+
+RETURN CODES
+
+ 1 = The operation completed successfully.
+
+ 0 = This means that the method got an error proccessing your request.
+ Maybe the cookie file could not be written to?
+
+--------------------------------------------------------------------------------
+
+=cut
+
sub logout {
my $self = shift;
@@ -106,4 +274,31 @@
}
+=head1
+
+METHOD
+ get_username
+
+SYNOPSIS
+
+ my $username = $auth->get_username()
+
+DESCRIPTION
+
+ Returns the current user's full username.
+
+PARAMETERS
+
+ None.
+
+RETURN CODES
+
+ Returns a string.
+
+ 0 = This means that the method got an error proccessing your request.
+
+--------------------------------------------------------------------------------
+
+=cut
+
sub get_username {
my $self = shift;
@@ -111,4 +306,30 @@
return $self->{user_info}->{'username'};
}
+
+=head1
+
+METHOD
+ set_auth_cookie
+
+SYNOPSIS
+
+ my $cookie = $auth->set_auth_cookie();
+
+DESCRIPTION
+
+ Generates random auth cookie.
+
+PARAMETERS
+
+ None.
+
+RETURN CODES
+
+
+ Returns a randomly generated string.
+
+ 0 = This means that the method got an error proccessing your request.
+
+=cut
sub set_auth_cookie {
Index: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.80
retrieving revision 1.81
diff -U2 -r1.80 -r1.81
--- Browse.pm 5 Jan 2003 08:59:07 -0000 1.80
+++ Browse.pm 6 Jan 2003 09:41:10 -0000 1.81
@@ -44,7 +44,94 @@
use strict;
+=head1
+
+uses SandWeb::File, SandWeb::Security
+
+=cut
+
use SandWeb::File;
use SandWeb::Security;
+=head1
+
+METHOD
+ new
+
+SYNOPSIS
+
+ my $browse = SandWeb::Browse->new(
+ 'username' => $username,
+ 'module_name' => $module_name,
+ 'repo_name' => $repo_name,
+ 'vcs_commands' => \@vcs_commands,
+ 'sort' => $sort,
+ 'users_dir' => $users_dir,
+ 'log_obj' => $log,
+ );
+
+DESCRIPTION
+
+ This method is a constructor.
+
+PARAMETERS
+
+ username (type: string) (required)
+
+ The current user's full username.
+
+ Default: none.
+
+ module_name (type: string) (required)
+
+ The name of the VCS module that the user is wants to browse.
+
+ Default: none.
+
+ repo_name (type: string) (required)
+
+ The name of the repository that contains the module that the
+ user wants to browse.
+
+ Default: none.
+
+ vcs_commands (type: array) (required)
+
+ Contains all valid VCS commands for the current module ( for use
+ by the tool bar ).
+
+ Default: none.
+
+ sort (type: string) (required)
+
+ The sorting order for the files.
+
+ FIXME - this should only be for the get_browse method, not the
+ constructor.
+
+ Default: none.
+
+ users_dir (type: string) (required)
+
+ The path to the user's home directory.
+
+ Default: none.
+
+ log_obj (type: string) (required)
+
+ Contains a reference to an instantiated log object.
+
+ Default: none.
+
+RETURN CODES
+
+ 1 = The operation completed successfully.
+
+ 0 = This means that the method got an error proccessing your request.
+ Perhaps an invalid parameter?
+
+--------------------------------------------------------------------------------
+
+=cut
+
sub new {
my $class = shift;
@@ -71,4 +158,70 @@
}
+=head1
+
+METHOD
+
+ get_browser
+
+SYNOPSIS
+
+ my %browser = $browse->get_browser(
+ 'location' => $location,
+ 'progname' => $progname,
+ 'repo_type' => $repo_type,
+ 'repo_name' => $repo_name,
+ 'sort' => $sort,
+ );
+
+DESCRIPTION
+
+ This returns HTML depicting the directories and files that
+ the user wishes to browse, with traverse deeper into the
+ heirarchy.
+
+PARAMETERS
+
+ location (type: string) (required)
+
+ The location that the user wants to start browsing from, relative
+ to the homedir/reponame/module.
+
+ Default: none.
+
+ progname (type: string) (required)
+
+ The name of the CGI ( sandweb.cgi for example ).
+
+ Default: none.
+
+ repo_type (type: string) (required)
+
+ The type of repository ( e.g. CVS, RCS, SVN, etc. ).
+
+ Default: none.
+
+ repo_name (type: string) (required)
+
+ The name of the current repository.
+
+ Default: none.
+
+ sort (type: string) (required)
+
+ This is the sort order for files/directories ( alphabetically or
+ reverse alphabetically ).
+
+ Default: none.
+
+RETURN CODES
+
+ 1 = The operation completed successfully.
+
+ 0 = This means that the method got an error proccessing your request.
+ Perhaps an invalid parameter?
+
+--------------------------------------------------------------------------------
+
+=cut
sub get_browser {
@@ -206,4 +359,52 @@
}
+=head1
+
+METHOD
+
+ get_tool_bar
+
+SYNOPSIS
+
+ my %toolbar = $browse->get_tool_bar(
+ 'location' => $location,
+ 'progname' => $progname,
+ );
+
+DESCRIPTION
+
+ Returns an HTML template depicting the Browse toolbar,
+ which allows you to create/remove files/directories and
+ run VCS commands.
+
+ FIXME - the calling application shouldn't have to run
+ this template object through a loop and insert the VCS
+ commands, this should happen inside the Browse object.
+
+PARAMETERS
+
+ location (type: string) (required)
+
+ The current browsing location.
+
+ Default: none.
+
+ progname (type: string) (required)
+
+ The name of the CGI ( e.g. sandweb.cgi )
+
+ Default: none.
+
+RETURN CODES
+
+ Returns a hash reference to an HTML::Template object.
+
+ 0 = This means that the method got an error proccessing your request.
+ Perhaps an invalid parameter?
+
+--------------------------------------------------------------------------------
+
+=cut
+
sub get_tool_bar {
my $self = shift;
@@ -245,4 +446,31 @@
}
+=head1
+
+METHOD
+
+ get_current_location
+
+SYNOPSIS
+
+ my $current_location = $browse->get_current_location();
+
+
+DESCRIPTION
+
+ Returns the current location of the browse object.
+
+PARAMETERS
+
+ None.
+
+RETURN CODES
+
+ Returns the current location of the browse object as a string.
+
+ 0 = This means that the method got an error proccessing your request.
+ Perhaps an invalid parameter?
+
+=cut
sub get_current_location {
Index: Diff.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Diff.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -U2 -r1.10 -r1.11
--- Diff.pm 5 Jan 2003 08:59:07 -0000 1.10
+++ Diff.pm 6 Jan 2003 09:41:10 -0000 1.11
@@ -54,4 +54,41 @@
=cut
+=head1
+
+METHOD
+ new
+
+SYNOPSIS
+
+ my $diff = $diff->new(
+ diff => $context_diff_format-data;
+ );
+
+DESCRIPTION
+
+ This method is a constructor.
+
+PARAMETERS
+
+ diff (type: string) (required)
+
+ this contains data in context diff format
+
+ Default: none.
+
+RETURN CODES
+
+ 1 = The operation completed successfully.
+
+ 0 = This means that the method got an error proccessing your request.
+ Perhaps an invalid parameter?
+
+ -1 = This return value means that there was not sufficient permision to
+ read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
+
+=cut
+
sub new {
my $class = shift;
@@ -71,4 +108,37 @@
colored_diff
returns an HTML-colorized output of the difference between two files
+
+=cut
+
+=head1
+
+METHOD
+ colored_diff
+
+SYNOPSIS
+
+ my $output = $diff->colored_diff();
+
+DESCRIPTION
+
+ This method colorizes and returns the data that was provided via
+ the constructor ( green for additions, red for removals, blue
+ for all else ).
+
+PARAMETERS
+
+ None
+
+RETURN CODES
+
+ 1 = The operation completed successfully.
+
+ 0 = This means that the method got an error proccessing your request.
+ Perhaps an invalid parameter?
+
+ -1 = This return value means that there was not sufficient permision to
+ read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
=cut
Index: File.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File.pm,v
retrieving revision 1.61
retrieving revision 1.62
diff -U2 -r1.61 -r1.62
--- File.pm 5 Jan 2003 08:59:07 -0000 1.61
+++ File.pm 6 Jan 2003 09:41:10 -0000 1.62
@@ -63,4 +63,52 @@
=cut
+=head1
+
+METHOD
+ new
+
+SYNOPSIS
+
+ my $file = SandWeb::File->new(
+ location => $location;
+ filename => $filename;
+ );
+
+
+DESCRIPTION
+
+ This method is a constructor. It needs to know the location of the
+ file as well as the name of the file.
+
+PARAMETERS
+
+ location (type: string) (required)
+
+ This contains the full ( absolute or relative ) path
+ to the file, as far as the file system is concerned.
+
+ Default: none.
+
+ filename (type: string) (required)
+
+ This contains the full name of the file, as far as the
+ file system is concerned.
+
+ Default: none.
+
+RETURN CODES
+
+ 1 = The operation completed successfully.
+
+ 0 = This means that the method got an error proccessing your request.
+ Perhaps an invalid parameter?
+
+ -1 = This return value means that there was not sufficient permision to
+ read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
+
+=cut
+
sub new {
my $class = shift;
@@ -95,4 +143,30 @@
=head1
+METHOD
+ get_owner
+
+SYNOPSIS
+
+ my $owner = $file->get_owner();
+
+DESCRIPTION
+
+ Returns the UID of the owner of the file.
+
+PARAMETERS
+
+ None.
+
+RETURN CODES
+
+ 1 = The operation completed successfully.
+
+ 0 = This means that the method got an error proccessing your request.
+ Perhaps an invalid parameter?
+
+ -1 = This return value means that there was not sufficient permision to
+ read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
get_owner
@@ -108,7 +182,30 @@
=head1
-get_group
+METHOD
+ get_group
+
+SYNOPSIS
- returns the group ownership of the current file
+ my $group = $file->get_group();
+
+DESCRIPTION
+
+ Returns the GID of the group membership of the file.
+
+PARAMETERS
+
+ None.
+
+RETURN CODES
+
+ 1 = The operation completed successfully.
+
+ 0 = This means that the method got an error proccessing your request.
+ Perhaps an invalid parameter?
+
+ -1 = This return value means that there was not sufficient permision to
+ read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
=cut
@@ -121,7 +218,30 @@
=head1
-get_filename
+METHOD
+ get_filename
+
+SYNOPSIS
+
+ my $filename = $file->get_filename();
- returns the name of the current file
+DESCRIPTION
+
+ Returns the full name of the file.
+
+PARAMETERS
+
+ None.
+
+RETURN CODES
+
+ 1 = The operation completed successfully.
+
+ 0 = This means that the method got an error proccessing your request.
+ Perhaps an invalid parameter?
+
+ -1 = This return value means that there was not sufficient permision to
+ read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
=cut
@@ -134,7 +254,31 @@
=head1
-get_location
+METHOD
+ get_location
+
+SYNOPSIS
+
+ my $location = $file->get_location();
+
+DESCRIPTION
+
+ Returns the full ( absolute or relative ) path
+ to the file.
- returns the location (directory) of the current file
+PARAMETERS
+
+ None.
+
+RETURN CODES
+
+ 1 = The operation completed successfully.
+
+ 0 = This means that the method got an error proccessing your request.
+ Perhaps an invalid parameter?
+
+ -1 = This return value means that there was not sufficient permision to
+ read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
=cut
@@ -147,7 +291,31 @@
=head1
-get_permissions
+METHOD
+ get_permissions
+
+SYNOPSIS
+
+ my $permissions = $file->get_permissions();
+
+DESCRIPTION
+
+ Returns the current file system permissions,
+ as an octal value.
+
+PARAMETERS
- returns the permissions of the current file
+ None.
+
+RETURN CODES
+
+ 1 = The operation completed successfully.
+
+ 0 = This means that the method got an error proccessing your request.
+ Perhaps an invalid parameter?
+
+ -1 = This return value means that there was not sufficient permision to
+ read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
=cut
@@ -160,7 +328,32 @@
=head1
-get_file_type
-
- returns the type of the current file
+METHOD
+ get_file_type
+
+SYNOPSIS
+
+ my $file_type = $file->get_file_type();
+
+DESCRIPTION
+
+ Returns Perl's guess as to what type of file
+ this is. Type returned one of : Binary, Text,
+ Directory or Unknown.
+
+PARAMETERS
+
+ None.
+
+RETURN CODES
+
+ 1 = The operation completed successfully.
+
+ 0 = This means that the method got an error proccessing your request.
+ Perhaps an invalid parameter?
+
+ -1 = This return value means that there was not sufficient permision to
+ read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
=cut
@@ -185,7 +378,30 @@
=head1
-get_mime_type
-
- returns the mime type of the current file
+METHOD
+ get_size
+
+SYNOPSIS
+
+ my $file_size = $file->get_size();
+
+DESCRIPTION
+
+ Returns the size of the file, in bytes.
+
+PARAMETERS
+
+ None.
+
+RETURN CODES
+
+ 1 = The operation completed successfully.
+
+ 0 = This means that the method got an error proccessing your request.
+ Perhaps an invalid parameter?
+
+ -1 = This return value means that there was not sufficient permision to
+ read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
=cut
@@ -227,7 +443,31 @@
=head1
-get_age
-
- returns the age of the current file
+METHOD
+ get_age
+
+SYNOPSIS
+
+ my $age = $file->get_age();
+
+DESCRIPTION
+
+ Returns the date of the last modification to this
+ file, in local time ( day month date time year ).
+
+PARAMETERS
+
+ None.
+
+RETURN CODES
+
+ 1 = The operation completed successfully.
+
+ 0 = This means that the method got an error proccessing your request.
+ Perhaps an invalid parameter?
+
+ -1 = This return value means that there was not sufficient permision to
+ read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
=cut
@@ -315,7 +555,30 @@
=head1
-create_file
-
- creates a file at the current location with the current filename
+METHOD
+ create_file
+
+SYNOPSIS
+
+ my $return = $file->create_file();
+
+DESCRIPTION
+
+ Creates a file, using the filename passed to the constructor.
+
+PARAMETERS
+
+ None.
+
+RETURN CODES
+
+ 1 = The operation completed successfully.
+
+ 0 = This means that the method got an error proccessing your request.
+ Perhaps an invalid parameter?
+
+ -1 = This return value means that there was not sufficient permision to
+ read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
=cut
@@ -341,7 +604,31 @@
=head1
-create_folder
-
- creates a folder at the current location with the current filename
+METHOD
+ create_folder
+
+SYNOPSIS
+
+ my $return = $file->create_folder();
+
+DESCRIPTION
+
+ Creates a folder ( also known as a directory ) using the
+ filename passed to the constructor.
+
+PARAMETERS
+
+ None.
+
+RETURN CODES
+
+ 1 = The operation completed successfully.
+
+ 0 = This means that the method got an error proccessing your request.
+ Perhaps an invalid parameter?
+
+ -1 = This return value means that there was not sufficient permision to
+ read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
=cut
@@ -365,7 +652,30 @@
=head1
-delete
-
- deletes the current file
+METHOD
+ delete
+
+SYNOPSIS
+
+ my $return = $file->delete();
+
+DESCRIPTION
+
+ Removes the file specified in the constructor.
+
+PARAMETERS
+
+ none.
+
+RETURN CODES
+
+ 1 = The operation completed successfully.
+
+ 0 = This means that the method got an error proccessing your request.
+ Perhaps an invalid parameter?
+
+ -1 = This return value means that there was not sufficient permision to
+ read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
=cut
@@ -390,7 +700,29 @@
=head1
-delete_folder
-
- deletes the current folder
+METHOD
+ delete_folder
+
+SYNOPSIS
+
+ my $return = $file->delete_folder();
+
+DESCRIPTION
+
+ Removes the folder specified in the constructor.
+
+PARAMETERS
+
+ none.
+
+RETURN CODES
+
+ 1 = The operation completed successfully.
+
+ 0 = This means that the method got an error proccessing your request.
+ Perhaps an invalid parameter?
+
+ -1 = This return value means that there was not sufficient permision to
+ read the files specified, or they did not exist.
+
=cut
@@ -417,7 +749,31 @@
=head1
-copy
-
- copies the current file
+METHOD
+ copy
+
+SYNOPSIS
+
+ my $return = $file->copy( tofile => "alternate_name.c" );
+
+DESCRIPTION
+
+ Creates an exact copy of the file.
+
+PARAMETERS
+
+ tocopy (type: string) (required)
+ Contains the full path and filename of the copy.
+
+RETURN CODES
+
+ 1 = The operation completed successfully.
+
+ 0 = This means that the method got an error proccessing your request.
+ Perhaps an invalid parameter?
+
+ -1 = This return value means that there was not sufficient permision to
+ read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
=cut
@@ -443,7 +799,32 @@
=head1
-rename
-
- renames the current file
+METHOD
+ rename
+
+SYNOPSIS
+
+ my $return = $file->rename( tofile => "alternate_name.c" );
+
+DESCRIPTION
+
+ Renames an existing file. This is the same thing as a move,
+ as far as the file system and operating system are concerned.
+
+PARAMETERS
+
+ tocopy (type: string) (required)
+ Contains the full path and filename of the new file.
+
+RETURN CODES
+
+ 1 = The operation completed successfully.
+
+ 0 = This means that the method got an error proccessing your request.
+ Perhaps an invalid parameter?
+
+ -1 = This return value means that there was not sufficient permision to
+ read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
=cut
|
|
From: Rob H. <for...@us...> - 2003-01-06 09:27:01
|
Update of /cvsroot/sandweb/sandweb/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv10000/bin
Modified Files:
sandweb.cgi
Log Message:
quick&dirty POD conversion, mostly just encapsulated important
comments.
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.338
retrieving revision 1.339
diff -U2 -r1.338 -r1.339
--- sandweb.cgi 6 Jan 2003 08:07:20 -0000 1.338
+++ sandweb.cgi 6 Jan 2003 09:26:58 -0000 1.339
@@ -2,5 +2,17 @@
# Sandweb CGI
#
-# SandWeb (Web-based VCS client)
+
+=pod
+=head1
+
+
+SandWeb (Web-based VCS client)
+
+This is the main application that uses the SandWeb library.
+It is intended to be called as a CGI from a web server.
+
+
+=cut
+
#
# Copyright (C) 2002 Nick Jennings
@@ -25,4 +37,12 @@
use strict;
+=head1
+
+uses SandWeb, SandWeb::Repository, SandWeb::Browse, SandWeb::File,
+ SandWeb::Config, Data::Dumpber, CGI::Carp, CGI
+
+=cut
+
+
# SandWeb Distribution Modules
use SandWeb;
@@ -43,6 +63,11 @@
$progname =~ s:^.*/::;
+=head1
+
+We define a couple global variables :
+config_file and config_dir
+
+=cut
-# changeable global vars
my $config_file = 'sandweb.cfg';
my $config_dir = '../etc';
@@ -51,8 +76,20 @@
my $message = '';
-# object creation, all objects global throughout CGI
+=head1
+
+We create one instance of the CGI class and reuse it throughout the
+application.
+
+=cut
my $cgi = new CGI;
+=head1
+
+We call the SandWeb class's start_up method to get some data
+structures that we will use throughout the application.
+
+=cut
+
my $return = SandWeb::->start_up(
config_dir => $config_dir,
@@ -69,7 +106,17 @@
}
-# assign local references to the "global" objects
-# these should generally always be loaded, no matter
-# what action is going on.
+
+=head1
+
+We make the data structues ( hash tables ) we get from SandWeb->startup()
+global throughout the whole application, these are :
+
+config
+log
+ui
+auth
+
+=cut
+
my $config = $return->{'data'}->{'config'};
my $log = $return->{'data'}->{'log'};
@@ -91,4 +138,6 @@
my $system_password;
+=head1
+
###############################################################################
# main
@@ -100,4 +149,7 @@
# action - name of the action the user has requested.
###############################################################################
+
+=cut
+
sub main {
my $action = $cgi->param('action') || '';
@@ -519,4 +571,20 @@
}
+=head1
+
+The application's subroutines are split into three main groups, "Menus",
+"Committers", and "Functions".
+
+All user interaction is determined by a "menu", and all
+user input is handled by a "commit".
+
+The naming convention used is action_menu and action_commit, e.g.
+the "login_menu" would present the user with a login screen, and the
+"login_commit" would take the user's input and attempt to log them in.
+
+"Functions" are reusable subroutines for the application, like login,
+logout, write config data, etc.
+
+
###############################################################################
###############################################################################
@@ -524,4 +592,8 @@
##
+=cut
+
+=head1
+
###############################################################################
# login menu
@@ -532,4 +604,7 @@
# No args.
###############################################################################
+
+=cut
+
sub login_menu {
my %args = @_;
@@ -565,4 +640,5 @@
}
+=head1
###############################################################################
@@ -574,4 +650,6 @@
# ck_auth - cookie data.
###############################################################################
+
+=cut
sub debug_menu {
my %args = @_;
@@ -597,4 +675,6 @@
}
+=head1
+
###############################################################################
# sandbox menu
@@ -608,4 +688,6 @@
###############################################################################
+=cut
+
sub sandbox_menu {
my %args = @_;
@@ -692,4 +774,6 @@
}
+=head1
+
###############################################################################
# browse module menu
@@ -706,5 +790,7 @@
# users_dir - location of user sandbox directories.
###############################################################################
-#
+
+=cut
+
sub browse_module_menu {
my %args = @_;
@@ -876,4 +962,5 @@
}
+=head1
###############################################################################
@@ -885,4 +972,7 @@
# ck_auth - the sessions cookie
###############################################################################
+
+=cut
+
sub configuration_menu {
my %args = @_;
@@ -926,4 +1016,5 @@
}
+=head1
###############################################################################
@@ -943,4 +1034,7 @@
# root - root of VCS repository
###############################################################################
+
+=cut
+
sub repository_menu {
my %args = @_;
@@ -1126,4 +1220,5 @@
}
+=head1
###############################################################################
@@ -1144,4 +1239,7 @@
# users_dir - location of user sandbox directories.
###############################################################################
+
+=cut
+
sub view_file_menu {
my %args = @_;
@@ -1313,4 +1411,6 @@
}
+=head1
+
###############################################################################
# XXX FIXME the inline editor is disabled until such time as we can replace
@@ -1335,4 +1435,7 @@
# users_dir - location of user sandbox directories.
###############################################################################
+
+=cut
+
sub edit_file_menu {
my %args = @_;
@@ -1397,4 +1500,5 @@
}
+=head1
###############################################################################
# delete menu
@@ -1410,4 +1514,6 @@
###############################################################################
+=cut
+
sub delete_menu {
my %args = @_;
@@ -1498,4 +1604,5 @@
}
+=head1
###############################################################################
# rename file menu
@@ -1514,4 +1621,7 @@
# users_dir - location of user sandbox directories.
###############################################################################
+
+=cut
+
sub rename_menu {
my %args = @_;
@@ -1590,4 +1700,5 @@
}
+=head1
###############################################################################
# create file menu
@@ -1603,4 +1714,6 @@
###############################################################################
+=cut
+
sub create_file_menu {
my %args = @_;
@@ -1632,4 +1745,5 @@
);
}
+=head1
###############################################################################
# create folder menu
@@ -1645,4 +1759,6 @@
###############################################################################
+=cut
+
sub create_folder_menu {
my %args = @_;
@@ -1676,4 +1792,5 @@
}
+=head1
###############################################################################
# upload folder menu
@@ -1688,4 +1805,7 @@
# users_dir - location of user sandbox directories.
###############################################################################
+
+=cut
+
sub upload_menu {
my %args = @_;
@@ -1719,4 +1839,5 @@
}
+=head1
###############################################################################
# vcs menu
@@ -1739,4 +1860,6 @@
###############################################################################
+=cut
+
sub vcs_menu {
my %args = @_;
@@ -1843,4 +1966,5 @@
}
+=head1
###############################################################################
# tag menu
@@ -1856,4 +1980,6 @@
###############################################################################
+=cut
+
sub tag_menu {
my %args = @_;
@@ -1897,4 +2023,5 @@
}
+=head1
###############################################################################
# branch menu
@@ -1910,4 +2037,6 @@
###############################################################################
+=cut
+
sub branch_menu {
my %args = @_;
@@ -1951,10 +2080,13 @@
}
-
+=head1
###############################################################################
###############################################################################
-## Commit Menu Data
+## Committers
##
+=cut
+
+=head1
###############################################################################
# XXX FIXME the inline editor is disabled until such time as we can replace
@@ -1977,4 +2109,6 @@
###############################################################################
+=cut
+
sub edit_file_commit {
my %args = @_;
@@ -2017,4 +2151,5 @@
}
+=head1
###############################################################################
# delete_commit is called to delete one or more files
@@ -2031,4 +2166,7 @@
# users_dir - location of user sandbox directories.
###############################################################################
+
+=cut
+
sub delete_commit {
# delete a file
@@ -2130,4 +2268,5 @@
}
+=head1
###############################################################################
# rename_commit is called by rename_menu to rename a file
@@ -2145,4 +2284,7 @@
# users_dir - location of user sandbox directories.
###############################################################################
+
+=cut
+
sub rename_commit {
my %args = @_;
@@ -2174,4 +2316,5 @@
}
+=head1
###############################################################################
# create_file_commit is called by create_file_menu to create a new, empty file
@@ -2188,4 +2331,7 @@
# users_dir - location of user sandbox directories.
###############################################################################
+
+=cut
+
sub create_file_commit {
my %args = @_;
@@ -2215,4 +2361,5 @@
}
+=head1
###############################################################################
# create_folder_commit is called by create_folder_menu to create a new, empty folder
@@ -2229,4 +2376,7 @@
# users_dir - location of user sandbox directories.
###############################################################################
+
+=cut
+
sub create_folder_commit {
my %args = @_;
@@ -2253,4 +2403,5 @@
}
+=head1
###############################################################################
# upload_commit is called by upload_menu to save uploaded data
@@ -2267,4 +2418,7 @@
# users_dir - location of user sandbox directories.
###############################################################################
+
+=cut
+
sub upload_commit {
my %args = @_;
@@ -2301,4 +2455,5 @@
}
+=head1
###############################################################################
# download_file_commit is called to save downloaded data.
@@ -2315,4 +2470,7 @@
# users_dir - location of user sandbox directories.
###############################################################################
+
+=cut
+
sub download_file_commit {
my %args = @_;
@@ -2337,4 +2495,5 @@
}
+=head1
###############################################################################
# vcs_commit
@@ -2357,4 +2516,6 @@
###############################################################################
+=cut
+
sub vcs_commit {
my %args = @_;
@@ -2612,4 +2773,5 @@
}
+=head1
###############################################################################
# sandbox commit
@@ -2623,4 +2785,6 @@
###############################################################################
+=cut
+
sub sandbox_commit {
my %args = @_;
@@ -2749,4 +2913,5 @@
}
+=head1
###############################################################################
# configuration commit
@@ -2757,4 +2922,7 @@
# ck_auth - the sessions cookie
###############################################################################
+
+=cut
+
sub configuration_commit {
my %args = @_;
@@ -2783,4 +2951,5 @@
}
+=head1
###############################################################################
# repository commit
@@ -2799,4 +2968,7 @@
# root - root of VCS repository
###############################################################################
+
+=cut
+
sub repository_commit {
my %args = @_;
@@ -2911,4 +3083,5 @@
}
+=head1
###############################################################################
# tag commit
@@ -2927,4 +3100,6 @@
###############################################################################
+=cut
+
sub tag_commit {
my %args = @_;
@@ -3117,5 +3292,5 @@
}
-
+=head1
###############################################################################
# branch commit
@@ -3136,4 +3311,6 @@
###############################################################################
+=cut
+
sub branch_commit {
my %args = @_;
@@ -3328,4 +3505,5 @@
+=head1
###############################################################################
###############################################################################
@@ -3333,4 +3511,7 @@
##
+=cut
+
+=head1
###############################################################################
# load prefs
@@ -3343,4 +3524,7 @@
#
###############################################################################
+
+=cut
+
sub load_config {
my $no_error = shift;
@@ -3381,5 +3565,5 @@
}
-
+=head1
###############################################################################
# write config data
@@ -3388,4 +3572,7 @@
#
###############################################################################
+
+=cut
+
sub write_config {
$log->debug("write_config()");
@@ -3407,4 +3594,5 @@
}
+=head1
###############################################################################
# login
@@ -3419,4 +3607,6 @@
###############################################################################
+=cut
+
sub login {
my %args = @_;
@@ -3447,4 +3637,5 @@
}
+=head1
###############################################################################
# logout
@@ -3454,4 +3645,7 @@
# No args.
###############################################################################
+
+=cut
+
sub logout {
my $stat = $auth->logout();
@@ -3466,4 +3660,5 @@
}
+=head1
###############################################################################
# set error
@@ -3473,4 +3668,7 @@
# No args.
###############################################################################
+
+=cut
+
sub set_message {
if (! $message) {
|
|
From: Rob H. <for...@us...> - 2003-01-06 09:02:30
|
Update of /cvsroot/sandweb/sandweb/templates
In directory sc8-pr-cvs1:/tmp/cvs-serv2901/templates
Modified Files:
framework.html
Log Message:
made it possible to install the image dir as part of the standard
sandweb install, also backed the logo image out of framework.html
( need to investigate the ramifications of this more )
Index: framework.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/framework.html,v
retrieving revision 1.25
retrieving revision 1.26
diff -U2 -r1.25 -r1.26
--- framework.html 6 Jan 2003 08:07:20 -0000 1.25
+++ framework.html 6 Jan 2003 09:02:27 -0000 1.26
@@ -27,5 +27,5 @@
</td>
<td width="25%" align="right">
- <img src="/robert/images/sandweb-logo.png" title="SandWeb" alt="SandWeb">
+ <img src="<TMPL_VAR NAME=IMAGES_DIR>/sandweb-logo.png" title="SandWeb" alt="SandWeb">
<!-- <font size="4"><b><TMPL_VAR NAME=MENU_TITLE></b></font> -->
</td>
|
|
From: Rob H. <for...@us...> - 2003-01-06 09:02:30
|
Update of /cvsroot/sandweb/sandweb/tools
In directory sc8-pr-cvs1:/tmp/cvs-serv2901/tools
Modified Files:
install_script.pl instimages.pl
Log Message:
made it possible to install the image dir as part of the standard
sandweb install, also backed the logo image out of framework.html
( need to investigate the ramifications of this more )
Index: install_script.pl
===================================================================
RCS file: /cvsroot/sandweb/sandweb/tools/install_script.pl,v
retrieving revision 1.19
retrieving revision 1.20
diff -U2 -r1.19 -r1.20
--- install_script.pl 6 Jan 2003 08:15:20 -0000 1.19
+++ install_script.pl 6 Jan 2003 09:02:27 -0000 1.20
@@ -23,5 +23,5 @@
my $cfgdir = $config::cfgdir || '/usr/local/etc';
my $cgidir = $config::cgidir || '/var/www/cgi-bin';
-my $imgdir = $config::cgidir || '/var/www/images';
+my $imgdir = $config::imgdir || '/var/www/images';
my $tmpldir = $config::tmpldir || "$PREFIX/lib/sandweb/templates";
my $cachedir = $config::cachedir || '/var/cache/sandweb';
@@ -89,5 +89,5 @@
# Images
-$cgidir = instimages($imgdir);
+$imgdir = instimages($imgdir);
exit(3) if (!$imgdir);
@@ -121,6 +121,4 @@
# updating config file
-system('tools/change-entry.pl', "$cfgdir/sandweb.cfg", 'image_dir="/images"', "image_dir=\"$imgdir\"");
-system('tools/change-entry.pl', "$cfgdir/sandweb.cfg", 'cgi_path="/cgi-bin"', "cgi_path=\"$cgidir\"");
system('tools/change-entry.pl', "$cfgdir/sandweb.cfg", 'template_dir="../templates"', "template_dir=\"$tmpldir\"");
system('tools/change-entry.pl', "$cfgdir/sandweb.cfg", 'log_dir="../var/log"', "log_dir=\"$logdir\"");
@@ -179,4 +177,5 @@
print CFG '$cfgdir = ' . "'$cfgdir';\n";
print CFG '$cgidir = ' . "'$cgidir';\n";
+print CFG '$imgdir = ' . "'$imgdir';\n";
print CFG '$tmpldir = ' . "'$tmpldir';\n";
print CFG '$cachedir = ' . "'$cachedir';\n";
Index: instimages.pl
===================================================================
RCS file: /cvsroot/sandweb/sandweb/tools/instimages.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -U2 -r1.1 -r1.2
--- instimages.pl 6 Jan 2003 08:15:19 -0000 1.1
+++ instimages.pl 6 Jan 2003 09:02:28 -0000 1.2
@@ -1,5 +1,5 @@
#!/usr/bin/perl -w
#
-# instimages.pl : script for installing sandweb images
+# instimages.pl : script for installing SandWeb images
#
@@ -8,10 +8,10 @@
my $imgdir = $_[0];
- if (!$imgdir) {
- print("-------------------------------\n");
- print("Installing SandWeb images...\n\n");
- print("Specify the location you wish to install the SandWeb images.\n");
+ if (!-d $imgdir) {
+ print("-------------------------\n");
+ print("Installing images...\n\n");
+ print("Specify the location you wish to install the images.\n");
print("Enter the full path [default: $imgdir] : ");
-
+
my $tmp = '';
chomp($tmp = <STDIN>);
@@ -20,25 +20,32 @@
}
}
+ print("Installing images into $imgdir... ");
- if (system('tools/mkdirto.pl', '755', "$imgdir")) {
- return(0);
+ my $create = 1;
+ if (!-d $imgdir) {
+ $tmp = 'y';
+ print("That directory does not exist, do you wish to create it?(Y/n): ");
+ chomp($tmp = <STDIN>);
+ if (($tmp eq 'n') || ($tmp eq 'N')) {
+ # exiting
+ return(0);
+ }
+ system('tools/mkdirto.pl', 755, $imgdir);
}
-
- print("Installing SandWeb images into $imgdir... ");
-
+
opendir(DIR, "images/");
- my @files = readdir(DIR);
- closedir(DIR);
-
- foreach my $filename (@files) {
- next if (($filename !~ /\.html$/) && ($filename !~ /\.js$/));
- if (system('cp', "images/$filename", "$imgdir/")) {
- print("working directory: ", `pwd`);
- return(0);
+ my @files = readdir(DIR);
+ closedir(DIR);
+
+ foreach my $filename (@files) {
+ next if ($filename !~ /\.png$/);
+ if (system('cp', "images/$filename", "$imgdir/")) {
+ print("working directory: ", `pwd`);
+ return(0);
}
}
-
print("done.\n");
return($imgdir);
-}
+}
+
1;
|
|
From: Rob H. <for...@us...> - 2003-01-06 08:51:58
|
Update of /cvsroot/sandweb/sandweb/etc
In directory sc8-pr-cvs1:/tmp/cvs-serv609
Modified Files:
sandweb.cfg
Log Message:
adding "image_dir"
Index: sandweb.cfg
===================================================================
RCS file: /cvsroot/sandweb/sandweb/etc/sandweb.cfg,v
retrieving revision 1.26
retrieving revision 1.27
diff -U2 -r1.26 -r1.27
--- sandweb.cfg 15 Aug 2002 08:02:41 -0000 1.26
+++ sandweb.cfg 6 Jan 2003 08:51:55 -0000 1.27
@@ -31,4 +31,5 @@
<webserver mime-types_location="/etc/apache"
mime-types_file="mime.types"
+ image_dir="/images"
/>
|
|
From: Rob H. <for...@us...> - 2003-01-06 08:17:40
|
Update of /cvsroot/sandweb/sandweb In directory sc8-pr-cvs1:/tmp/cvs-serv23577 Modified Files: install.cfg Log Message: adding imgdir to install.cfg Index: install.cfg =================================================================== RCS file: /cvsroot/sandweb/sandweb/install.cfg,v retrieving revision 1.20 retrieving revision 1.21 diff -U2 -r1.20 -r1.21 --- install.cfg 15 Aug 2002 08:02:41 -0000 1.20 +++ install.cfg 6 Jan 2003 08:17:37 -0000 1.21 @@ -5,4 +5,5 @@ $cfgdir = '/usr/local/etc/sandweb'; $cgidir = '/var/www/cgi-bin'; +$imgdir = '/var/www/images'; $tmpldir = '/usr/local/lib/sandweb/templates'; $cachedir = '/usr/local/share/sandweb'; @@ -13,3 +14,3 @@ $cvs_bin = '/usr/bin/cvs'; -1; \ No newline at end of file +1; |
|
From: Rob H. <for...@us...> - 2003-01-06 08:15:22
|
Update of /cvsroot/sandweb/sandweb/tools
In directory sc8-pr-cvs1:/tmp/cvs-serv23130/tools
Modified Files:
install_script.pl
Added Files:
instimages.pl
Log Message:
working on getting images to install
--- NEW FILE ---
#!/usr/bin/perl -w
#
# instimages.pl : script for installing sandweb images
#
sub instimages($) {
return(0) if (!$_[0]);
my $imgdir = $_[0];
if (!$imgdir) {
print("-------------------------------\n");
print("Installing SandWeb images...\n\n");
print("Specify the location you wish to install the SandWeb images.\n");
print("Enter the full path [default: $imgdir] : ");
my $tmp = '';
chomp($tmp = <STDIN>);
if ($tmp) {
$imgdir = $tmp;
}
}
if (system('tools/mkdirto.pl', '755', "$imgdir")) {
return(0);
}
print("Installing SandWeb images into $imgdir... ");
opendir(DIR, "images/");
my @files = readdir(DIR);
closedir(DIR);
foreach my $filename (@files) {
next if (($filename !~ /\.html$/) && ($filename !~ /\.js$/));
if (system('cp', "images/$filename", "$imgdir/")) {
print("working directory: ", `pwd`);
return(0);
}
}
print("done.\n");
return($imgdir);
}
1;
Index: install_script.pl
===================================================================
RCS file: /cvsroot/sandweb/sandweb/tools/install_script.pl,v
retrieving revision 1.18
retrieving revision 1.19
diff -U2 -r1.18 -r1.19
--- install_script.pl 5 Jan 2003 22:18:32 -0000 1.18
+++ install_script.pl 6 Jan 2003 08:15:20 -0000 1.19
@@ -11,4 +11,5 @@
"cfgdir = $config::cfgdir\n".
"cgidir = $config::cgidir\n".
+ "imgdir = $config::imgdir\n".
"tmpldir = $config::tmpldir\n".
"cachedir = $config::cachedir\n".
@@ -22,4 +23,5 @@
my $cfgdir = $config::cfgdir || '/usr/local/etc';
my $cgidir = $config::cgidir || '/var/www/cgi-bin';
+my $imgdir = $config::cgidir || '/var/www/images';
my $tmpldir = $config::tmpldir || "$PREFIX/lib/sandweb/templates";
my $cachedir = $config::cachedir || '/var/cache/sandweb';
@@ -33,4 +35,5 @@
require 'tools/instbin.pl';
require 'tools/instcgi.pl';
+require 'tools/instimages.pl';
require 'tools/insttemplates.pl';
require 'tools/instcachedir.pl';
@@ -85,4 +88,8 @@
exit(3) if (!$cgidir);
+# Images
+$cgidir = instimages($imgdir);
+exit(3) if (!$imgdir);
+
# Templates
$tmpldir = insttemplates($tmpldir);
@@ -114,4 +121,6 @@
# updating config file
+system('tools/change-entry.pl', "$cfgdir/sandweb.cfg", 'image_dir="/images"', "image_dir=\"$imgdir\"");
+system('tools/change-entry.pl', "$cfgdir/sandweb.cfg", 'cgi_path="/cgi-bin"', "cgi_path=\"$cgidir\"");
system('tools/change-entry.pl', "$cfgdir/sandweb.cfg", 'template_dir="../templates"', "template_dir=\"$tmpldir\"");
system('tools/change-entry.pl', "$cfgdir/sandweb.cfg", 'log_dir="../var/log"', "log_dir=\"$logdir\"");
|
|
From: Rob H. <for...@us...> - 2003-01-06 08:15:22
|
Update of /cvsroot/sandweb/sandweb In directory sc8-pr-cvs1:/tmp/cvs-serv23130 Modified Files: MANIFEST Log Message: working on getting images to install Index: MANIFEST =================================================================== RCS file: /cvsroot/sandweb/sandweb/MANIFEST,v retrieving revision 1.15 retrieving revision 1.16 diff -U2 -r1.15 -r1.16 --- MANIFEST 5 Jan 2003 05:12:08 -0000 1.15 +++ MANIFEST 6 Jan 2003 08:15:20 -0000 1.16 @@ -65,5 +65,5 @@ doc/API/Repository.txt -images/sandweb-logo.jpg +images/sandweb-logo.png tools/instcgi.pl |
|
From: Rob H. <for...@us...> - 2003-01-06 08:07:23
|
Update of /cvsroot/sandweb/sandweb/templates
In directory sc8-pr-cvs1:/tmp/cvs-serv20757/templates
Modified Files:
branch.html create_file.html create_folder.html framework.html
tag.html
Log Message:
general image cleanup, making sure things are laid out OK
Index: branch.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/branch.html,v
retrieving revision 1.5
retrieving revision 1.6
diff -U2 -r1.5 -r1.6
--- branch.html 16 Sep 2002 05:06:48 -0000 1.5
+++ branch.html 6 Jan 2003 08:07:20 -0000 1.6
@@ -19,5 +19,5 @@
<td align="left">
<input type="text" name="branch_sync">
- <input type="submit">
+ <input type="submit" value="Go">
</td>
</td>
@@ -29,5 +29,5 @@
<td align="left">
<input type="text" name="branch_switch">
- <input type="submit">
+ <input type="submit" value="Go">
</td>
</td>
@@ -40,5 +40,5 @@
</td>
<td align="left">
- <input type="submit" name="trunk_sync" value="Submit">
+ <input type="submit" name="trunk_sync" value="Go">
</td>
</tr>
@@ -48,5 +48,5 @@
</td>
<td align="left">
- <input type="submit" name="trunk_switch" value="Submit">
+ <input type="submit" name="trunk_switch" value="Go">
</td>
</tr>
@@ -61,5 +61,5 @@
<td align="left">
<input name="create_branch" type="text">
- <input type="submit">
+ <input type="submit" value="Go">
</td>
</tr>
@@ -69,5 +69,5 @@
<td align="left">
<input name="remove_branch" type="text">
- <input type="submit" name="Submit">
+ <input type="submit" value="Go">
</td>
<tr>
Index: create_file.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/create_file.html,v
retrieving revision 1.21
retrieving revision 1.22
diff -U2 -r1.21 -r1.22
--- create_file.html 6 Jan 2003 01:25:56 -0000 1.21
+++ create_file.html 6 Jan 2003 08:07:20 -0000 1.22
@@ -10,5 +10,4 @@
<input name="Submit" value="1" type="hidden">
Enter filename :
- <br>
<input name="filename" type="text"><br>
<input type="hidden" name="Submit">
Index: create_folder.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/create_folder.html,v
retrieving revision 1.20
retrieving revision 1.21
diff -U2 -r1.20 -r1.21
--- create_folder.html 6 Jan 2003 01:25:56 -0000 1.20
+++ create_folder.html 6 Jan 2003 08:07:20 -0000 1.21
@@ -12,5 +12,5 @@
<input name="Submit" value="1" type="hidden">
Enter foldername:<br>
-<input name="filename" type="text"><br>
+<input name="filename" type="text">
<input type="hidden" name="Submit">
<a href="javascript:{document.create_folder.Submit.value='Done';document.create_folder.submit();}"><img src="<TMPL_VAR NAME=IMAGE_DIR>/go.png" alt="Go" title="Go" border="0"></a>
Index: framework.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/framework.html,v
retrieving revision 1.24
retrieving revision 1.25
diff -U2 -r1.24 -r1.25
--- framework.html 16 Sep 2002 05:06:48 -0000 1.24
+++ framework.html 6 Jan 2003 08:07:20 -0000 1.25
@@ -27,5 +27,6 @@
</td>
<td width="25%" align="right">
- <font size="4"><b><TMPL_VAR NAME=MENU_TITLE></b></font>
+ <img src="/robert/images/sandweb-logo.png" title="SandWeb" alt="SandWeb">
+ <!-- <font size="4"><b><TMPL_VAR NAME=MENU_TITLE></b></font> -->
</td>
<td width="25%" align="left">
Index: tag.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/tag.html,v
retrieving revision 1.15
retrieving revision 1.16
diff -U2 -r1.15 -r1.16
--- tag.html 16 Sep 2002 05:06:48 -0000 1.15
+++ tag.html 6 Jan 2003 08:07:20 -0000 1.16
@@ -20,5 +20,5 @@
<td align="left">
<input type="text" name="tag_sync">
- <input type="submit">
+ <input type="submit" value="Go">
</td>
</td>
@@ -30,5 +30,5 @@
<td align="left">
<input type="text" name="tag_switch">
- <input type="submit">
+ <input type="submit" value="Go">
</td>
</td>
@@ -41,5 +41,5 @@
</td>
<td align="left">
- <input type="submit" name="trunk_sync" value="Submit">
+ <input type="submit" name="trunk_sync" value="Go">
</td>
</tr>
@@ -49,5 +49,5 @@
</td>
<td align="left">
- <input type="submit" name="trunk_switch" value="Submit">
+ <input type="submit" name="trunk_switch" value="Go">
</td>
</tr>
@@ -62,5 +62,5 @@
<td align="left">
<input name="create_tag" type="text">
- <input type="submit">
+ <input type="submit" value="Go">
</td>
</tr>
@@ -70,5 +70,5 @@
<td align="left">
<input name="remove_tag" type="text">
- <input type="submit" name="Submit">
+ <input type="submit" value="Go">
</td>
<tr>
|
|
From: Rob H. <for...@us...> - 2003-01-06 08:07:23
|
Update of /cvsroot/sandweb/sandweb/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv20757/bin
Modified Files:
sandweb.cgi
Log Message:
general image cleanup, making sure things are laid out OK
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.337
retrieving revision 1.338
diff -U2 -r1.337 -r1.338
--- sandweb.cgi 6 Jan 2003 01:25:56 -0000 1.337
+++ sandweb.cgi 6 Jan 2003 08:07:20 -0000 1.338
@@ -1239,4 +1239,6 @@
}
+ my $image_dir = $config->{'webserver'}->{'image_dir'};
+
my $toolbar_menu = $ui->get_menu(
MENU => 'tool_bar',
@@ -1245,4 +1247,5 @@
REPO_NAME => $repo_name,
LOCATION => $location,
+ IMAGE_DIR => $image_dir,
);
|
|
From: Rob H. <for...@us...> - 2003-01-06 08:06:54
|
Update of /cvsroot/sandweb/sandweb/images
In directory sc8-pr-cvs1:/tmp/cvs-serv20651/images
Added Files:
sandweb-logo.png
Removed Files:
sandweb-logo.jpg
Log Message:
grabbed the sandweb logo and put it on a transparent background,
cleaned it up as best I could.
--- NEW FILE ---
PNG
à
òEû¿'S
á,õÝûíöÔÜCÀ0aLcÂp$ýÔ¦Ê ú`ïþr®
ôd°
oY ÓFNK 'èñx¦DÏ;gÚ·o_Æ¡CtUUã}}}:
`NÌ0áA
BÈÈÈàýýýdÓ¦M
@éÕ«WC
ÍÍÍXºt)ÚÛÛEQPQQçW¯\q'ÉùªUù|¾W7lø&
!}gq$b14"gø¯Ý;}Þ}®ÎS¿û=ç|5«{½<§ $%Féʪ ãÁþ£ÞÎ÷_Zx÷sùaï
{/ {i q*à`DDV¶&³S2)"Iz×ÚÕAïà`2àóù<ÐñãÇÝÝÝ,Ë4 »Ýn´¶¶¢¨¨H Ñ·ß~û·µµµüwÞ!K,ùcnnîȪU«Ä¥t
¢(+Ýnw;c,+
ÏÍͽØÔÔtùرcèéé!v»]F£w¼ð ˲üG ©ljjvx½^ÓòåËr~üñý
øo\À "òÜ(·ú'Å·3F¬ `à@1 ã
$ ó)gùÃÊgW E£ÇãèëëÃ¥K °ZÎyòÍ7ß<²|ùrèºòòr><<üµ'ND"÷9søm·ÝÖ÷á |д`Á¢X(¥%²,ß¾wï^B°uëV< ·×ÔÔàìÙ³D"xäGÐÒÒò\uuu_ϵk't]G4Å w®ÄdÊHËn{xd-i ~ÑÝvÌE`Éúé*Épóø´Ò1
8¤0ØÛþÁÊ»kæü¯È¹³&2Ô É1,)V¿-§d
'xÂ<kÖ¬îÚÚZ/ç ׯ_'aî¿ÿþ3n·ÛÌ97|òɧvíÚ§zªúÚµkIMÓÀ9ÛívÍ9sþ=÷ÜÓýúë¯ÿzíÚµû^~ùeêõz
²¹ÊógT'9Dp. ] §ÐÑqñe a²dÂ(aï CK&³Ë
øìòr
N¨, lEÔ¬D<îÒ¥|Cݺ%k?¿dE
ô]øC©1³ÕÖBÈnÍ ÎmLã6¦òL>t¹wÚìU¡ÖAÂívÕÖÖ¢ªªJÐV__ÿj}}ý¤Ã
Á=í.£rõw9@i:?céîdºL 0>¡³>
Ëg 7[ÈB©ÿû¿!d²
--- sandweb-logo.jpg DELETED ---
|
Update of /cvsroot/sandweb/sandweb/images In directory sc8-pr-cvs1:/tmp/cvs-serv28175 Modified Files: create_folder.png create_folder.xcf delete.png delete.xcf font.txt go.png go.xcf rename.png rename.xcf upload.png upload.xcf Log Message: these look a little better, still off center though Index: create_folder.png =================================================================== RCS file: /cvsroot/sandweb/sandweb/images/create_folder.png,v retrieving revision 1.1 retrieving revision 1.2 diff -U2 -r1.1 -r1.2 Binary files /tmp/cvs2MRbzV and /tmp/cvsYjPzWG differ Index: create_folder.xcf =================================================================== RCS file: /cvsroot/sandweb/sandweb/images/create_folder.xcf,v retrieving revision 1.1 retrieving revision 1.2 diff -U2 -r1.1 -r1.2 Binary files /tmp/cvsScptH1 and /tmp/cvsSwmV4S differ Index: delete.png =================================================================== RCS file: /cvsroot/sandweb/sandweb/images/delete.png,v retrieving revision 1.1 retrieving revision 1.2 diff -U2 -r1.1 -r1.2 Binary files /tmp/cvsPJwkj8 and /tmp/cvsqZZyq6 differ Index: delete.xcf =================================================================== RCS file: /cvsroot/sandweb/sandweb/images/delete.xcf,v retrieving revision 1.1 retrieving revision 1.2 diff -U2 -r1.1 -r1.2 Binary files /tmp/cvsOZhH2k and /tmp/cvs4YsIOv differ Index: font.txt =================================================================== RCS file: /cvsroot/sandweb/sandweb/images/font.txt,v retrieving revision 1.1 retrieving revision 1.2 diff -U2 -r1.1 -r1.2 --- font.txt 15 Aug 2002 02:46:50 -0000 1.1 +++ font.txt 6 Jan 2003 04:02:27 -0000 1.2 @@ -1 +1,2 @@ -arial,bold,8 pts +newcenturyscklbk, bold, 16 pts + Index: go.png =================================================================== RCS file: /cvsroot/sandweb/sandweb/images/go.png,v retrieving revision 1.1 retrieving revision 1.2 diff -U2 -r1.1 -r1.2 Binary files /tmp/cvsUdw7Gw and /tmp/cvscTcecT differ Index: go.xcf =================================================================== RCS file: /cvsroot/sandweb/sandweb/images/go.xcf,v retrieving revision 1.1 retrieving revision 1.2 diff -U2 -r1.1 -r1.2 Binary files /tmp/cvsx7AUZx and /tmp/cvsyZaWKV differ Index: rename.png =================================================================== RCS file: /cvsroot/sandweb/sandweb/images/rename.png,v retrieving revision 1.1 retrieving revision 1.2 diff -U2 -r1.1 -r1.2 Binary files /tmp/cvsQ4moJG and /tmp/cvsk95Udd differ Index: rename.xcf =================================================================== RCS file: /cvsroot/sandweb/sandweb/images/rename.xcf,v retrieving revision 1.1 retrieving revision 1.2 diff -U2 -r1.1 -r1.2 Binary files /tmp/cvsi6YkyZ and /tmp/cvs0QE2VO differ Index: upload.png =================================================================== RCS file: /cvsroot/sandweb/sandweb/images/upload.png,v retrieving revision 1.1 retrieving revision 1.2 diff -U2 -r1.1 -r1.2 Binary files /tmp/cvsyfMPLY and /tmp/cvsqgyXkN differ Index: upload.xcf =================================================================== RCS file: /cvsroot/sandweb/sandweb/images/upload.xcf,v retrieving revision 1.1 retrieving revision 1.2 diff -U2 -r1.1 -r1.2 Binary files /tmp/cvs1brBf0 and /tmp/cvsGLODjQ differ |
Update of /cvsroot/sandweb/sandweb/templates
In directory sc8-pr-cvs1:/tmp/cvs-serv17125/templates
Modified Files:
commit.html configuration.html create_file.html
create_folder.html delete.html rename.html repository.html
upload.html vcs.html
Log Message:
images are implemented, the installer needs some work to really
support it ( the image_dir is configurable in the /etc/sandweb.cfg )
and the "Go" button _really_ sucks, but here it is :)
Index: commit.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/commit.html,v
retrieving revision 1.17
retrieving revision 1.18
diff -U2 -r1.17 -r1.18
--- commit.html 16 Sep 2002 05:06:48 -0000 1.17
+++ commit.html 6 Jan 2003 01:25:56 -0000 1.18
@@ -3,5 +3,5 @@
<td width="center">
Please enter a commit message for <TMPL_VAR NAME=LOCATION>/<TMPL_VAR NAME=FILENAME> :
- <form submit="<TMPL_VAR NAME=PROGNAME>">
+ <form name="commit" submit="<TMPL_VAR NAME=PROGNAME>">
<input type="hidden" name="action" value="vcs">
<input type="hidden" name="vcs_command" value="commit">
@@ -12,5 +12,6 @@
<input name="Submit" value="1" type="hidden">
<input type="text" name="message">
- <input type="submit" name="commit" value="Done">
+ <input type="hidden" name="commit">
+ <a href="javascript:{document.commit.commit.value='Done';document.commit.submit();}"><img src="<TMPL_VAR NAME=IMAGE_DIR>/go.png" alt="Go" title="Go" border="0"></a>
</form>
</td>
Index: configuration.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/configuration.html,v
retrieving revision 1.7
retrieving revision 1.8
diff -U2 -r1.7 -r1.8
--- configuration.html 5 Oct 2002 05:57:40 -0000 1.7
+++ configuration.html 6 Jan 2003 01:25:56 -0000 1.8
@@ -1,3 +1,3 @@
-<form submit="<TMPL_VAR NAME=PROGNAME>">
+<form name="configuration" submit="<TMPL_VAR NAME=PROGNAME>">
<input type="hidden" name="action" value="configuration">
<table width="100%" border="0" align="center" cellspacing="0" cellpadding="0">
@@ -36,5 +36,6 @@
</td>
<td width="10%" align="center">
- <input type="submit" name="Submit" Value="Done">
+ <input type="hidden" name="Submit">
+ <a href="javascript:{document.configuration.Submit.value='Done';document.configuration.submit();}"><img src="<TMPL_VAR NAME=IMAGE_DIR>/go.png" alt="Go" title="Go" border="0"></a>
</td>
<td width="75%" align="center">
Index: create_file.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/create_file.html,v
retrieving revision 1.20
retrieving revision 1.21
diff -U2 -r1.20 -r1.21
--- create_file.html 16 Sep 2002 05:06:48 -0000 1.20
+++ create_file.html 6 Jan 2003 01:25:56 -0000 1.21
@@ -2,5 +2,5 @@
<tr>
<td width="100%">
-<form action="<TMPL_VAR NAME=PROGNAME>" target="mainWindow" onsubmit="setTimeout('window.close()',2000)">
+<form name="create_file" action="<TMPL_VAR NAME=PROGNAME>" target="mainWindow" onsubmit="setTimeout('window.close()',2000)">
<input name="action" value="create_file" type="hidden">
<input name="file_command" value="create_file" type="hidden">
@@ -12,5 +12,7 @@
<br>
<input name="filename" type="text"><br>
-<input name="Submit" type="submit" value="Done"><br>
+<input type="hidden" name="Submit">
+<a href="javascript:{document.create_file.Submit.value='Done';document.create_file.submit();}"><img src="<TMPL_VAR NAME=IMAGE_DIR>/go.png" alt="Go" title="Go" border="0"></a>
+<br>
</form>
</td>
Index: create_folder.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/create_folder.html,v
retrieving revision 1.19
retrieving revision 1.20
diff -U2 -r1.19 -r1.20
--- create_folder.html 16 Sep 2002 05:06:48 -0000 1.19
+++ create_folder.html 6 Jan 2003 01:25:56 -0000 1.20
@@ -2,5 +2,5 @@
<tr>
<td width="100%">
-<form action="<TMPL_VAR NAME=PROGNAME>" target="mainWindow" onsubmit="setTimeout('window.close()',2000)">
+<form name="create_folder" action="<TMPL_VAR NAME=PROGNAME>" target="mainWindow" onsubmit="setTimeout('window.close()',2000)">
<input name="action" value="create_folder" type="hidden">
<input name="file_command" value="create_folder" type="hidden">
@@ -13,5 +13,7 @@
Enter foldername:<br>
<input name="filename" type="text"><br>
-<input name="Submit" type="submit" value="Done"><br>
+<input type="hidden" name="Submit">
+<a href="javascript:{document.create_folder.Submit.value='Done';document.create_folder.submit();}"><img src="<TMPL_VAR NAME=IMAGE_DIR>/go.png" alt="Go" title="Go" border="0"></a>
+<br>
</form>
</td>
Index: delete.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/delete.html,v
retrieving revision 1.4
retrieving revision 1.5
diff -U2 -r1.4 -r1.5
--- delete.html 6 Jan 2003 00:35:16 -0000 1.4
+++ delete.html 6 Jan 2003 01:25:56 -0000 1.5
@@ -2,5 +2,5 @@
<tr>
<center>
- <form submit="<TMPL_VAR NAME=PROGNAME>">
+ <form name="dform" submit="<TMPL_VAR NAME=PROGNAME>">
<input type="hidden" name="action" value="delete">
<input type="hidden" name="main_window_url" value="<TMPL_VAR NAME=MAIN_WINDOW_URL>">
@@ -16,5 +16,6 @@
<input type="hidden" name="module_name" value="<TMPL_VAR NAME=MODULE_NAME>">
<input type="hidden" name="repo_name" value="<TMPL_VAR NAME=REPO_NAME>">
- <input name="Submit" value="1" type="submit" value="Done">
+ <input type="hidden" name="Submit">
+ <a href="javascript:{document.dform.Submit.value='Done';document.dform.submit();}"><img src="<TMPL_VAR NAME=IMAGE_DIR>/go.png" alt="Go" title="Go" border="0"></a>
</form>
</center>
Index: rename.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/rename.html,v
retrieving revision 1.6
retrieving revision 1.7
diff -U2 -r1.6 -r1.7
--- rename.html 16 Sep 2002 05:06:48 -0000 1.6
+++ rename.html 6 Jan 2003 01:25:56 -0000 1.7
@@ -3,5 +3,5 @@
<td width="center">
Rename <TMPL_VAR NAME=LOCATION>/<TMPL_VAR NAME=FILENAME> to :
- <form submit="<TMPL_VAR NAME=PROGNAME>" target="mainWindow" onsubmit="setTimeout('window.close()',2000)">
+ <form name="rename" submit="<TMPL_VAR NAME=PROGNAME>" target="mainWindow" onsubmit="setTimeout('window.close()',2000)">
<input type="hidden" name="action" value="rename">
<input type="hidden" name="filename" value="<TMPL_VAR NAME=FILENAME>">
@@ -12,5 +12,5 @@
<input name="Submit" value="1" type="hidden">
<input type="text" name="tofile">
- <input type="submit" name="Submit" value="Done">
+ <a href="javascript:{document.rename.Submit.value='Done';document.rename.submit();}"><img src="<TMPL_VAR NAME=IMAGE_DIR>/go.png" alt="Go" title="Go" border="0"></a>
</form>
</td>
Index: repository.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/repository.html,v
retrieving revision 1.22
retrieving revision 1.23
diff -U2 -r1.22 -r1.23
--- repository.html 6 Jan 2003 00:35:16 -0000 1.22
+++ repository.html 6 Jan 2003 01:25:56 -0000 1.23
@@ -98,9 +98,9 @@
<input type="hidden" name="Submit">
- <a href="javascript:{document.repository.Submit.value='Commit';doSubmit('Commit');}"><img src="<TMPL_VAR NAME=IMAGE_DIR>/commit.png" alt="Commit" title="Commit"</a>
+ <a href="javascript:{document.repository.Submit.value='Commit';doSubmit('Commit');}"><img src="<TMPL_VAR NAME=IMAGE_DIR>/go.png" alt="Commit" title="Commit" border="0"></a>
- <a href="javascript:{document.repository.Submit.value='Delete';doSubmit('Delete');}"><img src="<TMPL_VAR NAME=IMAGE_DIR>/delete.png" alt="Delete" title="Delete"</a>
+ <a href="javascript:{document.repository.Submit.value='Delete';doSubmit('Delete');}"><img src="<TMPL_VAR NAME=IMAGE_DIR>/delete.png" alt="Delete" title="Delete" border="0"></a>
<!--
Index: upload.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/upload.html,v
retrieving revision 1.10
retrieving revision 1.11
diff -U2 -r1.10 -r1.11
--- upload.html 16 Sep 2002 05:06:48 -0000 1.10
+++ upload.html 6 Jan 2003 01:25:56 -0000 1.11
@@ -2,5 +2,5 @@
<tr>
<td width="100%">
-<form method="post" action="<TMPL_VAR NAME=PROGNAME>" target="mainWindow" onsubmit="setTimeout('window.close()',2000)" enctype="multipart/form-data">
+<form name="upload" method="post" action="<TMPL_VAR NAME=PROGNAME>" target="mainWindow" onsubmit="setTimeout('window.close()',2000)" enctype="multipart/form-data">
<input name="action" value="upload" type="hidden">
<input name="file_command" value="upload" type="hidden">
@@ -13,5 +13,6 @@
Enter a file to upload:<br>
<input name="filehandle" type="file"><br>
-<input name="Submit" type="submit" value="Done"><br>
+<a href="javascript:{document.upload.Submit.value='Done';document.upload.submit();}"><img src="<TMPL_VAR NAME=IMAGE_DIR>/go.png" alt="Go" title="Go" border="0"></a>
+<br>
</form>
</td>
Index: vcs.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/vcs.html,v
retrieving revision 1.5
retrieving revision 1.6
diff -U2 -r1.5 -r1.6
--- vcs.html 6 Jan 2003 00:35:16 -0000 1.5
+++ vcs.html 6 Jan 2003 01:25:56 -0000 1.6
@@ -2,5 +2,5 @@
<tr>
<center>
- <form submit="<TMPL_VAR NAME=PROGNAME>" type="POST">
+ <form name="vcs" submit="<TMPL_VAR NAME=PROGNAME>" type="POST">
<input type="hidden" name="action" value="vcs">
<input type="hidden" name="main_window_url" value="<TMPL_VAR NAME=MAIN_WINDOW_URL>">
@@ -17,5 +17,7 @@
<input type="hidden" name="vcs_command" value="<TMPL_VAR NAME=VCS_COMMAND>">
<input type="hidden" name="vcs_message" value="<TMPL_VAR NAME=VCS_MESSAGE>">
- <input name="Submit" value="1" type="submit" value="Done">
+ <input name="Submit" value="1" type="hidden">
+ <a href="javascript:{document.vcs.Submit.value='Done';document.vcs.submit();}"><img src="<TMPL_VAR NAME=IMAGE_DIR>/go.png" alt="Go" title="Go" border="0"></a>
+
</form>
</center>
|
3 messages has been excluded from this view by a project administrator.
