- or download this
my$temp = '/home/dlandgre/perl/reputer/'; # where data files are sav
+ed
my$public_access = ''; # 'yes' disables config, downloads, and exter
+nal program functions
my$bodytag = '<body bgcolor="#aaaaaa" text="#000000">';
my$form_method = 'get'; # get or post, 'get' shows params in url
- or download this
my$temp = '/home/dlandgre/perl/reputer/'; # where data file
+s are saved
my$public_access = ''; # 'yes' disables config, downloads, and exter
+nal program functions
my$bodytag = '<body bgcolor="#aaaaaa" text="#000000">';
my$form_method = 'get'; # get or post, 'get' shows params in url
- or download this
my($mode,$td,$ta,$rd,$ra,$ca,$cd) = '';
- or download this
my($mode,$td,$ta,$rd,$ra,$ca,$cd) = ('','','','','','','');
- or download this
my $mode = '';
my $td = '';
my $ta = '';
- or download this
unless($i{'n'} eq 'logout'){
if($ins > 1){$s='s'}
&begin_html('fu');
print qq~$bq $bq $bq
- or download this
$var += 2 unless $condition;
- or download this
#! /usr/bin/perl -w
...
print DAT Data::Dumper->Dump( [$root], ['$root'] );
close DAT;
- or download this
print DAT Data::Dumper->Dump( [$root], ['$root'] );
- or download this
$var = 'root';
$Data::Dumper::Varname = "$var";
print DAT Dumper($root);
- or download this
#! /usr/bin/perl -w
...
'eval & dump' => \&via_eval_dump,
'retrieve & store' => \&via_retrieve_store,
}
- or download this
sub graph
{ # calculate and display the graphs
my($hm1,$hm2,$hm3,$bdr,$cs,$spacer,$mode,$descr);
...
print qq~<tr bgcolor="#b0b0b0">
<td><b>$nb rep $nb</td><td><b>$nb num $nb</td><td> </td></tr></ta
+ble><p>~;
}