/[simile]/svn/index.cgi
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /svn/index.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 44 by dpavlin, Mon Oct 27 19:38:41 2008 UTC revision 48 by dpavlin, Mon Oct 27 22:03:31 2008 UTC
# Line 15  my $debug = $ENV{'DEBUG'} || 0; Line 15  my $debug = $ENV{'DEBUG'} || 0;
15    
16  my $config_path = $0;  my $config_path = $0;
17  $config_path =~ s/.cgi/.js/;  $config_path =~ s/.cgi/.js/;
18    
19    my $hostname = `hostname -s`;
20    chomp($hostname);
21    $hostname .= '.js';
22    $config_path = $hostname if -e $hostname;
23    
24  my $config = from_json( read_file( $config_path ) );  my $config = from_json( read_file( $config_path ) );
25  my $repository_dir = $config->{repository_dir} || die "no repository_dir in $config_path";  my $repository_dir = $config->{repository_dir} || die "no repository_dir in $config_path";
26  my $svnweb = $config->{svnweb} || die "no svnweb in $config_path";  my $svnweb = $config->{svnweb} || die "no svnweb in $config_path";
# Line 49  sub select_repository { Line 55  sub select_repository {
55          return (          return (
56                  $q->start_form( -name => 'current_repository', -id => 'current_repository', -method => 'post' ),                  $q->start_form( -name => 'current_repository', -id => 'current_repository', -method => 'post' ),
57                  "From repository ",                  "From repository ",
58                  $q->popup_menu( -name => 'repository', -values => [ @repositories ], -onChange => $onChange ),                  $q->param('did_submit') ?
59                            $q->popup_menu( -name => 'repository', -values => [ @repositories ], -onChange => $onChange ) :
60                            $q->radio_group( -name => 'repository', -values => [ @repositories ], -onChange => $onChange ), # , -linebreak => 'true' ),
61                  " show ",                  " show ",
62                  $q->popup_menu( -name => 'limit', -values => [ qw/100 500 1000 5000 10000/ ], -onChange => $onChange ),                  $q->popup_menu( -name => 'limit', -values => [ qw/100 500 1000 5000 10000/ ], -onChange => $onChange ),
63                  " revisions and ",                  " revisions and ",
64                  $q->checkbox(-name=>'path', -checked=>1, -value=>'ON', -label=>'path modifications', -onChange => $onChange ),                  $q->checkbox(-name=>'path', -checked=>1, -value=>'ON', -label=>'path modifications', -onChange => $onChange ),
65                  " ",                  " ",
66                  $q->submit(-name=>'did_submit', -value=>'in Exhibit'),                  $q->submit(-value=>'in Exhibit'),
67                    $q->hidden(-name=>'did_submit', -value=>1),
68                  $q->end_form                  $q->end_form
69          );          );
70  }  }
Legend:
Removed from v.44  
changed lines
  Added in v.48
  ViewVC Help
Powered by ViewVC 1.1.26